grahamc/hydra2 - Change HLYVEJX74DMSDR7VTGSLZCLUKQDZFDIK4FFDV4S27UPBN5JH4KDQC

* Keep the 3 most recent builds for every platform for every job.

Previously it just kept the 3 most recent builds for every job (contrary to what the comment said).

Created by Eelco Dolstra on February 15, 2010

HLYVEJX74DMSDR7VTGSLZCLUKQDZFDIK4FFDV4S27UPBN5JH4KDQC

Dependencies

In channels

main

Change contents

Replacement in src/script/hydra_update_gc_roots.pl at line 25 [4.472]

∅:D[2.55] → [3.223:303]

∅:D[5.1658] → [3.223:303]

B:BD[3.223] → [3.223:303]

            strftime("%Y-%m-%d %H:%M:%S", localtime($build->timestamp)), ")\n";

[2.55]

[3.303]

        $build->system, "; ",
        strftime("%Y-%m-%d %H:%M:%S", localtime($build->timestamp)), ")\n";

Replacement in src/script/hydra_update_gc_roots.pl at line 49 [4.472]

B:BD[5.1946] → [5.1946:2023]

∅:D[5.2023] → [3.1008:1221]

B:BD[3.1008] → [3.1008:1221]

B:BD[3.1221] → [6.3842:3895]

        my @recentBuilds = $job->builds->search(
            { finished => 1
            , buildStatus => 0 # == success
            },
            { join => 'resultInfo'
            , order_by => 'timestamp DESC'
            , rows => 3 # !!! should make this configurable
            });
        
        keepBuild $_ foreach @recentBuilds;

[5.1946]

[6.3896]

	my @systems = $job->builds->search({ }, { select => ["system"], distinct => 1 })->all;
	foreach my $system (@systems) {
            my @recentBuilds = $job->builds->search(
		{ finished => 1
                , buildStatus => 0 # == success
                , system => $system->system
                },
                { join => 'resultInfo'
                , order_by => 'id DESC'
                , rows => 3 # !!! should make this configurable
                });
	    keepBuild $_ foreach @recentBuilds;
	}