#! /usr/bin/perl


open FILE, ">>stats" || die;

for( my $rev = 6982; $rev <= 11492 ; $rev++ )
{
    my $diffcommand = "svn diff -r ".($rev - 1 ).":".$rev;
    $diff = `$diffcommand`;

    my @lines = split( '\n', $diff );

    my $add = 0;
    my $remove = 0;
    foreach $line (@lines)
    {
	if( $line =~ /^\+.*/ && $line !=~ /\+\+\+/ )
	{ $add++; }
	if( $line =~ /^\-.*/ && $line !=~ /---/ )
	{ $remove++; }
    }
    
    my $logcommand = "svn log -r $rev";
    $log = `$logcommand`;
    @lines = split( '\n', $log);
    foreach $line(@lines)
    {
	if( $line =~ /^r[0-9]*\ \|\ ([0-9A-z]*)\ \|.*$/ )
	{
		$author = $1;
	}
    }

    print FILE "$rev $add $remove $author\n";
    print "R$rev. +".$add." -".$remove." Author ".$author."\n"; 
}