lix-project/hydra
3
0
Fork 6
Code Issues Pull requests Packages Projects Releases Wiki Activity

hydra: handle case where build to keep set to 0

Browse source
This commit is contained in:
Rob Vermaas 2010-11-23 09:05:09 +00:00
parent 91fe70522f
commit 0cee7c0909
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/script/hydra_update_gc_roots.pl.in
View file

@ -40,12 +40,17 @@ foreach my $project ($db->resultset('Projects')->all) {
foreach my $jobset ($project->jobsets->all) {
my $keepnr = $jobset->keepnr;
# If the jobset has been disabled for more than one week, than
# don't keep its builds anymore.
if ($jobset->enabled == 0 && (time() - $jobset->lastcheckedtime > (7 * 24 * 3600))) {
print STDERR "*** skipping disabled jobset ", $project->name, ":", $jobset->name, "\n";
next;
}
# If the jobset has been disabled for more than one week, than
# don't keep its builds anymore.
if ($jobset->enabled == 0 && (time() - $jobset->lastcheckedtime > (7 * 24 * 3600))) {
print STDERR "*** skipping disabled jobset ", $project->name, ":", $jobset->name, "\n";
next;
}
if ($keepnr <= 0 ) {
print STDERR "*** jobset ", $project->name, ":", $jobset->name, " set to keep 0 builds\n";
next;
}
# Go over all jobs in this jobset.
foreach my $job ($jobset->jobs->all) {
@ -68,8 +73,8 @@ foreach my $project ($db->resultset('Projects')->all) {
, rows => $keepnr
});
keepBuild $_ foreach @recentBuilds;
}
}
}
}
}
# Go over all views in this project.