$build->finished(1);
        $build->timestamp(time());
        $build->update;

        $build->update({finished => 1, timestamp => time});

    
    $c->res->redirect($c->uri_for($self->action_for("view_build"), $c->req->captures));
}
sub keep : Chained('build') PathPart Args(1) {
    my ($self, $c, $newStatus) = @_;
    my $build = $c->stash->{build};
    requireProjectOwner($c, $build->project);
    die unless $newStatus == 0 || $newStatus == 1;
    $c->model('DB')->schema->txn_do(sub {
        $build->resultInfo->update({keep => int $newStatus});
    });
    $c->flash->{buildMsg} =
        $newStatus == 0 ? "Build will not be kept." : "Build will be kept.";

        [% IF build.resultInfo.buildstatus == 3 || build.resultInfo.buildstatus == 4 %]

        [% IF c.user_exists && (build.resultInfo.buildstatus == 3 || build.resultInfo.buildstatus == 4) %]

    </tr>
  [% END %]
  [% IF build.finished && build.buildproducts %]
    <tr>
      <th>Availability:</th>
      <td>
        [% IF !available %]
          <em>Build output is no longer available</em>
        [% ELSIF build.resultInfo.keep %]
          <em>Build output will be kept permanently</em>
          [% IF c.user_exists %]
            <form action="[% c.uri_for('/build' build.id 'keep' 0) %]" method="post" class="inline">
              <button id="unkeep" type="submit">Unkeep</button>
            </form>
          [% END %]
        [% ELSE %]
          <em>Build output is available, but may be garbage-collected</em>
          [% IF c.user_exists %]
            <form action="[% c.uri_for('/build' build.id 'keep' 1) %]" method="post" class="inline">
              <button id="keep" type="submit">Keep</button>
            </form>
          [% END %]
        [% END %]
      </td>

    print "keeping build ", $build->id, " (",

    print STDERR "keeping build ", $build->id, " (",

    foreach my $job ($project->builds->search({},
        {select => [{distinct => 'job'}], as => ['job']}))
    {
        print "*** looking for builds to keep in job ", $project->name, ":", $job->job, "\n";

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

        my @recentBuilds = $project->builds->search(
            { job => $job->job
            , finished => 1

        # !!! Take time into account? E.g. don't delete builds that
        # are younger than N days.
        my @recentBuilds = $job->builds->search(
            { finished => 1

        print "*** looking for builds to keep in release set ", $project->name, ":", $releaseSet->name, "\n";

        print STDERR "*** looking for builds to keep in release set ", $project->name, ":", $releaseSet->name, "\n";

            print "keeping latest successful release ", $latest->id, " (", $latest->get_column('releasename'), ")\n";

            print STDERR "keeping latest successful release ", $latest->id, " (", $latest->get_column('releasename'), ")\n";

print "*** looking for kept builds\n";

print STDERR "*** looking for kept builds\n";

print "*** looking for scheduled builds\n";

print STDERR "*** looking for scheduled builds\n";

        print "keeping scheduled build ", $build->id, " (",

        print STDERR "keeping scheduled build ", $build->id, " (",

print "*** removing unneeded GC roots\n";

print STDERR "*** removing unneeded GC roots\n";