Se corrigen detalles en la documentacion.

[z.facultad/75.42/plaqui.git] / log_trace.pl

diff --git a/log_trace.pl b/log_trace.pl
index 929824ab49b6fd0def386cb4e157b5c38481e2cb..003517cbd42039f05ee6b647feb6b30c909ad2af 100755 (executable)
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -6,12 +6,12 @@
 #
 # The PlaQui Development Team
 
 #
 # The PlaQui Development Team
 

-my %hash, %users, $texto. $max;
+my %hash, %users, %commits, %lines_count, $texto. $max;

 
 if (shift eq "-d") {
        $texto = `svn log > ChangeLog`;
 }
 
 if (shift eq "-d") {
        $texto = `svn log > ChangeLog`;
 }

-$texto = `egrep r[0-9]+ ChangeLog`;
+$texto = `egrep "rev [0-9]+" ChangeLog`;

 
 @lines = split(/\n/, $texto);
 
 
 @lines = split(/\n/, $texto);
 


@@ -20,6 +20,8 @@ foreach $line (@lines) {
        @datos = split(/ /, $line);
        $hash{$datos[5]}++;
        $users{$datos[5]}{$datos[3]}++;
        @datos = split(/ /, $line);
        $hash{$datos[5]}++;
        $users{$datos[5]}{$datos[3]}++;

+       $commits{$datos[3]}++;
+       $lines_count{$datos[3]} += $datos[13];

        if ($hash{$datos[5]} > $max) {
                $max = $hash{$datos[5]};
        }
        if ($hash{$datos[5]} > $max) {
                $max = $hash{$datos[5]};
        }


@@ -58,7 +60,9 @@ foreach $date (sort keys %hash) {
 
 print "\n";
 print "Cantidad de commits por usuario:\n";
 
 print "\n";
 print "Cantidad de commits por usuario:\n";

-print `egrep r[0-9]+ ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+foreach $user (sort keys %commits) {
+       print "\t$user\t$commits{$user}\t($lines_count{$user} lineas)\n";
+}

 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";
 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";