From 98912c7ab789d2f5d07057e3e27f3562fd521af1 Mon Sep 17 00:00:00 2001
From: Ricardo Markiewicz <gazer.arg@gmail.com>
Date: Wed, 3 Dec 2003 22:44:54 +0000
Subject: [PATCH]  Se saca el feo awk y se hacen las cosas con perl

---
 log_trace.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/log_trace.pl b/log_trace.pl
index a755f3c..40d2fe8 100755
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -6,7 +6,7 @@
 #
 # The PlaQui Development Team
 
-my %hash, %users, $texto. $max;
+my %hash, %users, %commits, $texto. $max;
 
 if (shift eq "-d") {
 	$texto = `svn log > ChangeLog`;
@@ -20,6 +20,7 @@ foreach $line (@lines) {
 	@datos = split(/ /, $line);
 	$hash{$datos[5]}++;
 	$users{$datos[5]}{$datos[3]}++;
+	$commits{$datos[3]}++;
 	if ($hash{$datos[5]} > $max) {
 		$max = $hash{$datos[5]};
 	}
@@ -58,7 +59,9 @@ foreach $date (sort keys %hash) {
 
 print "\n";
 print "Cantidad de commits por usuario:\n";
-print `egrep "rev [0-9]+" ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+foreach $user (sort keys %commits) {
+	print "\t$user\t$commits{$user}\n";
+}
 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";
-- 
2.43.0