#!/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`;
@lines = split(/\n/, $texto);
my %hash;

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

print "PlaQui - Grafica de Progreso SVN\n";
foreach $date (sort keys %hash) {
	print "$date\t";
	for($i=0; $i<$hash{$date}; $i++) {
		print "*";
	}
	print "\n";
}

