From: Leandro Lucarella <llucax@gmail.com>
Date: Wed, 3 Dec 2003 22:11:22 +0000 (+0000)
Subject: - Se hace que la opcion -d guarde el ChangeLog ademas de bajarlo y usarlo.
X-Git-Tag: svn_import~28
X-Git-Url: https://git.llucax.com/z.facultad/75.42/plaqui.git/commitdiff_plain/05aa00b9741daa68d2feed30860d6ca4e483ab0b?ds=inline

- Se hace que la opcion -d guarde el ChangeLog ademas de bajarlo y usarlo.
- Se agrega un ranking de commiters.
---

diff --git a/log_trace.pl b/log_trace.pl
index 2a71eb5..929824a 100755
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -9,10 +9,10 @@
 my %hash, %users, $texto. $max;
 
 if (shift eq "-d") {
-	$texto = `svn log | grep rev | grep line`;
-} else {
-	$texto = `cat ChangeLog | grep rev | grep line`;
+	$texto = `svn log > ChangeLog`;
 }
+$texto = `egrep r[0-9]+ ChangeLog`;
+
 @lines = split(/\n/, $texto);
 
 $max = -1;
@@ -27,7 +27,7 @@ foreach $line (@lines) {
 
 print "PlaQui - Grafica de Progreso SVN\n";
 print "--------------------------------\n\n";
-print "Fech\t\tCommits\n";
+print "Fecha\t\tCommits\n";
 
 foreach $date (sort keys %hash) {
 	print "$date\t";
@@ -57,6 +57,9 @@ foreach $date (sort keys %hash) {
 }
 
 print "\n";
-print "( ) = Máximo/s Commiteador/es del Día\n";
+print "Cantidad de commits por usuario:\n";
+print `egrep r[0-9]+ ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+print "\n";
+print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";