]> git.llucax.com Git - z.facultad/75.42/plaqui.git/commitdiff
- Se hace que la opcion -d guarde el ChangeLog ademas de bajarlo y usarlo.
authorLeandro Lucarella <llucax@gmail.com>
Wed, 3 Dec 2003 22:11:22 +0000 (22:11 +0000)
committerLeandro Lucarella <llucax@gmail.com>
Wed, 3 Dec 2003 22:11:22 +0000 (22:11 +0000)
- Se agrega un ranking de commiters.

log_trace.pl

index 2a71eb58f25898cba40fd0b167634245b458d677..929824ab49b6fd0def386cb4e157b5c38481e2cb 100755 (executable)
@@ -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";