Se agrega un log tracer, para ver en forma grafica la evolucion de los commits

diff --git a/log_trace.pl b/log_trace.pl
new file mode 100755 (executable)
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";
+}
+