https://svn.lrde.epita.fr/svn/lrde-tools/trunk/build-farm
Index: ChangeLog
from Roland Levillain <roland(a)lrde.epita.fr>
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/