#!/usr/bin/perl
#
# Scrip que muestra en forma grafica la evolucion de los commits
#
# by Ricardo Markiewicz <rmarkie@fi.uba.ar>
#
# The PlaQui Development Team

#open("log.txt", LOG);
#@lines = <LOG>;
#close(LOG);

#$texto = `svn log | grep rev | grep lines`;
$texto = `cat log.txt | grep rev | grep lines`;
@lines = split(/\n/, $texto);
my %hash, %users;

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

print "PlaQui - Grafica de Progreso SVN\n";
print "--------------------------------\n\n";
print "Fecha  Commits\n";

foreach $date (sort keys %hash) {
	print "$date     ";
	
	$win = "";
	$win_pts = -1;
	foreach $name (keys %{$users{$date}}) {
		if ($users{$date}{$name} > $win_pts) {
			$win = $name;
			$win_pts = $users{$date}{$name};
		} else {
			if ($users{$date}{$name} = $win_pts) {
				$win = $win."|".$name;
			}
		}
	}

	#Imprimo el Ganador

	for($i=0; $i<$hash{$date}; $i++) {
		print "*";
	}
	print "($win)";
	print "\n";
}

print "\n";
print "( ) = Máximo Commiteador del Día\n";
print "* == 1 Commit\n";

