From 5be7519199498d5ab6364c875d54bc81078c062b Mon Sep 17 00:00:00 2001
From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Tue, 2 Dec 2003 07:44:31 +0000
Subject: [PATCH] Se agrega un log tracer, para ver en forma grafica la
 evolucion de los commits

---
 log_trace.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 log_trace.pl

diff --git a/log_trace.pl b/log_trace.pl
new file mode 100755
index 0000000..f1716d3
--- /dev/null
+++ b/log_trace.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+#
+# Scrip que muestra en forma grafica la evolucion de los commits
+#
+# by Ricardo Markiewicz <rmarkie@fi.uba.ar>
+#
+# The PlaQui Development Team
+
+#open("log.txt", LOG);
+#@lines = <LOG>;
+#close(LOG);
+
+$texto = `svn log | grep rev | grep lines`;
+@lines = split(/\n/, $texto);
+my %hash;
+
+foreach $line (@lines) {
+	@datos = split(/ /, $line);
+	$hash{$datos[5]}++;
+}
+
+print "PlaQui - Grafica de Progreso SVN\n";
+foreach $date (sort keys %hash) {
+	print "$date\t";
+	for($i=0; $i<$hash{$date}; $i++) {
+		print "*";
+	}
+	print "\n";
+}
+
-- 
2.43.0