X-Git-Url: https://git.llucax.com/z.facultad/75.42/plaqui.git/blobdiff_plain/05aa00b9741daa68d2feed30860d6ca4e483ab0b..cfeb614a5aed24ab733bd5f7a38f1ffa8d20693d:/log_trace.pl diff --git a/log_trace.pl b/log_trace.pl index 929824a..003517c 100755 --- a/log_trace.pl +++ b/log_trace.pl @@ -6,12 +6,12 @@ # # 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`; } -$texto = `egrep r[0-9]+ ChangeLog`; +$texto = `egrep "rev [0-9]+" ChangeLog`; @lines = split(/\n/, $texto); @@ -20,6 +20,8 @@ foreach $line (@lines) { @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]}; } @@ -58,7 +60,9 @@ foreach $date (sort keys %hash) { 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";