[Projects] [LrdeTools] 416: Repair svn-stats.

https://svn.lrde.epita.fr/svn/lrde-tools/trunk/build-farm Index: ChangeLog from Roland Levillain &lt;roland(a)lrde.epita.fr&gt; Repair svn-stats. * svn-stats/svn-stats: Temporarily disable TC, since we have no privileged access to the repository as of now. (commits, commits_per_contributor): Pass the year as an additional argument. Adjust callers. * svn-stats/README: Catch up with the move of svn-stats from marvejols to brasilia. README | 3 ++- svn-stats | 23 ++++++++++++----------- 2 files changed, 14 insertions(+), 12 deletions(-) Index: svn-stats/svn-stats --- svn-stats/svn-stats (revision 415) +++ svn-stats/svn-stats (working copy) @@ -37,7 +37,7 @@ "Olena 1.0 (Metalic)" => 'https://svn.lrde.epita.fr/svn/oln/trunk/metalic', "Olena 1.0 (Extended)" => 'https://svn.lrde.epita.fr/svn/oln/trunk/extended', "Olena 1.0 (Static)" => 'https://svn.lrde.epita.fr/svn/oln/trunk/static', - TC => 'https://svn.lrde.epita.fr/svn/tc', +# TC => 'https://svn.lrde.epita.fr/svn/tc', Havm => 'https://svn.lrde.epita.fr/svn/havm', Nolimips => 'https://svn.lrde.epita.fr/svn/nolimips', MonoBurg => 'https://svn.lrde.epita.fr/svn/monoburg', @@ -84,7 +84,7 @@ foreach (sort keys %proj) { print STDOUT "$_\n"; - &commits($_, $proj{$_}); + &commits($_, $proj{$_}, 2007); } my $date = localtime; @@ -98,7 +98,7 @@ close REPORT; sub commits { - my ($name, $repository) = @_; + my ($name, $repository, $year) = @_; my @commits_week; my %commits; my $revision; @@ -116,7 +116,8 @@ $name = $alias{$name} if defined $alias{$name}; $commits{$name}++; my $time = timegm(0, 0, 0, $5, $4 - 1, $3); - $commits_week[&week_from_time($time) - 1]++ if $3 eq '2006'; + $commits_week[&week_from_time($time) - 1]++ + if $3 eq $year; } print STDOUT "\n"; @@ -130,7 +131,7 @@ $max += 49; $max -= $max % 50; - &commits_per_contributor(\@data, "$report_dir/$name.1.png", $max); + &commits_per_contributor(\@data, "$report_dir/$name.$year.1.png", $max); # @data = (); # foreach (sort { $commits{$b} <=> $commits{$a} } keys %commits) { @@ -141,7 +142,7 @@ # use Data::Dumper; # print Dumper(\@data); # -# &commits_per_contributor_per_week(\@data, "$report_dir/$name.3.png"); +# &commits_per_contributor_per_week(\@data, "$report_dir/$name.$year.3.png"); my $i = 1; @data = (); @@ -159,13 +160,13 @@ $max += 9; $max -= $max % 10; - &commits_per_week(\@data, "$report_dir/$name.2.png", $max); + &commits_per_week(\@data, "$report_dir/$name.$year.2.png", $max, $year); print <<HTML; <h2>$name (<span style="color:green">$revision</span>)</h2> <div> - <img src="$name.1.png" alt="$name 1" /> - <img src="$name.2.png" alt="$name 2" /> + <img src="$name.$year.1.png" alt="$name 1" /> + <img src="$name.$year.2.png" alt="$name 2" /> </div> <hr/> HTML @@ -197,12 +198,12 @@ } sub commits_per_week { - my ($data, $filename, $max) = @_; + my ($data, $filename, $max, $year) = @_; my $graph = GD::Graph::lines->new(600, 300); $graph->set( y_label => 'Number of commits', - x_label => 'Week in 2006', + x_label => 'Week in ' . $year, title => 'Commits per week', dclrs => [ 'red' ], valuesclr => 'black', Index: svn-stats/README --- svn-stats/README (revision 415) +++ svn-stats/README (working copy) @@ -4,6 +4,7 @@ statistics on commits to the Subversion repository of the LRDE. svn-stats is to be launched regularly, through cron; for instance, the -crontab of the user `doc' on host `marjevols' contains: +crontab of the user `doc' on host `brasilia' contains: +# Calcul des statistiques sur le dépôt Subversion. 0 2 * * * /work/build/svn-stats/svn-stats && rsync -e "ssh -i /work/build/build_farm/id_dsa_build -l pm" -qr /tmp/stats/* goa::svn-stats/