push @results, getRelease($_, $c->stash->{jobs}) foreach
        getPrimaryBuildsForReleaseSet($c->stash->{project}, $c->stash->{primaryJob}, $page, $resultsPerPage);

    push @results, getViewResult($_, $c->stash->{jobs}) foreach
        getPrimaryBuildsForView($c->stash->{project}, $c->stash->{primaryJob}, $page, $resultsPerPage);

    my $latest = getLatestSuccessfulRelease(

    my $latest = getLatestSuccessfulViewResult(

    $c->stash->{result} = getRelease($primaryBuild, $c->stash->{jobs});

    $c->stash->{result} = getViewResult($primaryBuild, $c->stash->{jobs});

    getPrimaryBuildsForReleaseSet 

    getPrimaryBuildsForView 

    getRelease getLatestSuccessfulRelease );

    getViewResult getLatestSuccessfulViewResult );

        $attr =~ /^([\w-]+)=([\w-]*)$/ or die "invalid attribute in release set: $attr";

        $attr =~ /^([\w-]+)=([\w-]*)$/ or die "invalid attribute in view: $attr";

  my ($project, $primaryJob) = @_;
  my $allPrimaryBuilds = $project->builds->search(
    { jobset => $primaryJob->get_column('jobset'), job => $primaryJob->get_column('job'), finished => 1 },
    { join => 'resultInfo', order_by => "timestamp DESC"
    , '+select' => ["resultInfo.releasename", "resultInfo.buildstatus"]
    , '+as' => ["releasename", "buildstatus"]
    , where => \ attrsToSQL($primaryJob->attrs, "me.id")
    });
  return $allPrimaryBuilds; 

    my ($project, $primaryJob) = @_;
    my $allPrimaryBuilds = $project->builds->search(
        { jobset => $primaryJob->get_column('jobset'), job => $primaryJob->get_column('job'), finished => 1 },
        { join => 'resultInfo', order_by => "timestamp DESC"
        , '+select' => ["resultInfo.releasename", "resultInfo.buildstatus"]
        , '+as' => ["releasename", "buildstatus"]
        , where => \ attrsToSQL($primaryJob->attrs, "me.id")
        });
    return $allPrimaryBuilds; 

    return scalar(allPrimaryBuilds($project, $primaryJob)) ;

    return scalar(allPrimaryBuilds($project, $primaryJob));

sub getPrimaryBuildsForReleaseSet {

sub getPrimaryBuildsForView {

sub getRelease {

sub getViewResult {

    # The timestamp of the release is the highest timestamp of all

    # The timestamp of the view result is the highest timestamp of all

sub getLatestSuccessfulRelease {

sub getLatestSuccessfulViewResult {

    foreach my $build (getPrimaryBuildsForReleaseSet($project, $primaryJob)) {
        return $build if getRelease($build, $jobs)->{status} == 0;

    foreach my $build (getPrimaryBuildsForView($project, $primaryJob)) {
        return $build if getViewResult($build, $jobs)->{status} == 0;

    # Go over all releases in this project.

    # Go over all views in this project.

    foreach my $releaseSet ($project->releasesets->all) {
        print STDERR "*** looking for builds to keep in release set ", $project->name, ":", $releaseSet->name, "\n";

    foreach my $view ($project->views->all) {
        print STDERR "*** looking for builds to keep in view ", $project->name, ":", $view->name, "\n";

        (my $primaryJob) = $releaseSet->releasesetjobs->search({isprimary => 1});
        my $jobs = [$releaseSet->releasesetjobs->all];

        (my $primaryJob) = $view->viewjobs->search({isprimary => 1});
        my $jobs = [$view->viewjobs->all];

        # Keep all builds belonging to the most recent successful release.
        my $latest = getLatestSuccessfulRelease($project, $primaryJob, $jobs);

        # Keep all builds belonging to the most recent successful view result.
        my $latest = getLatestSuccessfulViewResult($project, $primaryJob, $jobs);

            print STDERR "keeping latest successful release ", $latest->id, " (", $latest->get_column('releasename'), ")\n";
            my $release = getRelease($latest, $jobs);
            keepBuild $_->{build} foreach @{$release->{jobs}};

            print STDERR "keeping latest successful view result ", $latest->id, " (", $latest->get_column('releasename'), ")\n";
            my $result = getViewResult($latest, $jobs);
            keepBuild $_->{build} foreach @{$result->{jobs}};