ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

* Do not garbage collect releases.

Browse source
This commit is contained in:
Eelco Dolstra 2009-10-26 12:47:29 +00:00
parent 1038e2ebee
commit 69f290413c
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/script/hydra_update_gc_roots.pl
View file

@ -21,7 +21,7 @@ sub registerRoot {
sub keepBuild { sub keepBuild {
my ($build) = @_; my ($build) = @_;
print STDERR "keeping build ", $build->id, " (", print STDERR " keeping build ", $build->id, " (",
strftime("%Y-%m-%d %H:%M:%S", localtime($build->timestamp)), ")\n"; strftime("%Y-%m-%d %H:%M:%S", localtime($build->timestamp)), ")\n";
if (isValidPath($build->outpath)) { if (isValidPath($build->outpath)) {
registerRoot $build->outpath; registerRoot $build->outpath;
@ -73,7 +73,14 @@ foreach my $project ($db->resultset('Projects')->all) {
keepBuild $_->{build} foreach @{$result->{jobs}}; keepBuild $_->{build} foreach @{$result->{jobs}};
} }
} }
# Keep every build in every release in this project.
print STDERR "*** keeping releases in project ", $project->name, "\n"
if scalar $project->releases > 0;
foreach my $release ($project->releases->all) {
print STDERR "keeping release ", $release->name, "\n";
keepBuild $_->build foreach $release->releasemembers;
}
} }