From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Wed, 3 Dec 2003 22:51:26 +0000 (+0000)
Subject:  Se cuentan la cantidad de lineas tambien
X-Git-Tag: svn_import~24
X-Git-Url: https://git.llucax.com/z.facultad/75.42/plaqui.git/commitdiff_plain/0949257d7ae221c05b1bc35f7d05528f187cc42c?ds=sidebyside

 Se cuentan la cantidad de lineas tambien
---

diff --git a/log_trace.pl b/log_trace.pl
index 40d2fe8..003517c 100755
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -6,7 +6,7 @@
 #
 # The PlaQui Development Team
 
-my %hash, %users, %commits, $texto. $max;
+my %hash, %users, %commits, %lines_count, $texto. $max;
 
 if (shift eq "-d") {
 	$texto = `svn log > ChangeLog`;
@@ -21,6 +21,7 @@ foreach $line (@lines) {
 	$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]};
 	}
@@ -60,7 +61,7 @@ foreach $date (sort keys %hash) {
 print "\n";
 print "Cantidad de commits por usuario:\n";
 foreach $user (sort keys %commits) {
-	print "\t$user\t$commits{$user}\n";
+	print "\t$user\t$commits{$user}\t($lines_count{$user} lineas)\n";
 }
 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";