From 712b98c33f9a4db7346e62203ca293ae5e7426a6 Mon Sep 17 00:00:00 2001
From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Tue, 2 Dec 2003 17:00:18 +0000
Subject: [PATCH]  * Se agrega opcion -d . Si es usada se arma todo en base a
 la salida del "svn log", si no, se usa    el archivo ChangeLog  * Ahora los
 resultados son reales ... Y sagar aparece mas seguido :-)

---
 log_trace.pl | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/log_trace.pl b/log_trace.pl
index 428893b..f4a2d01 100755
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -6,27 +6,31 @@
 #
 # The PlaQui Development Team
 
-#open("log.txt", LOG);
-#@lines = <LOG>;
-#close(LOG);
+my %hash, %users, $texto. $max;
 
-#$texto = `svn log | grep rev | grep lines`;
-$texto = `cat log.txt | grep rev | grep lines`;
+if (shift eq "-d") {
+	$texto = `svn log | grep rev | grep line`;
+} else {
+	$texto = `cat ChangeLog | grep rev | grep line`;
+}
 @lines = split(/\n/, $texto);
-my %hash, %users;
 
+$max = -1;
 foreach $line (@lines) {
 	@datos = split(/ /, $line);
 	$hash{$datos[5]}++;
 	$users{$datos[5]}{$datos[3]}++;
+	if ($hash{$datos[5]} > $max) {
+		$max = $hash{$datos[5]};
+	}
 }
 
 print "PlaQui - Grafica de Progreso SVN\n";
 print "--------------------------------\n\n";
-print "Fecha  Commits\n";
+print "Fech\t\tCommits\n";
 
 foreach $date (sort keys %hash) {
-	print "$date     ";
+	print "$date\t";
 	
 	$win = "";
 	$win_pts = -1;
@@ -35,22 +39,24 @@ foreach $date (sort keys %hash) {
 			$win = $name;
 			$win_pts = $users{$date}{$name};
 		} else {
-			if ($users{$date}{$name} = $win_pts) {
+			if ($users{$date}{$name} == $win_pts) {
 				$win = $win."|".$name;
 			}
 		}
 	}
 
-	#Imprimo el Ganador
-
-	for($i=0; $i<$hash{$date}; $i++) {
-		print "*";
+	for($i=0; $i<$max; $i++) {
+		if ($i < $hash{$date}) {
+			print "*";
+		} else {
+			print " ";
+		}
 	}
-	print "($win)";
+	print "  ($win)";
 	print "\n";
 }
 
 print "\n";
-print "( ) = Máximo Commiteador del Día\n";
+print "( ) = Máximo/s Commiteador/es del Día\n";
 print "* == 1 Commit\n";
 
-- 
2.43.0