ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

* Provide some redirects to the latest successful build for a job (or

Browse Source 
project, or jobset, or globally, but that's not all that useful).
  This is useful if you want to link to the latest build.
This commit is contained in:
Eelco Dolstra
2009-04-07 15:49:02 +00:00
parent f2a42c0d81
commit f9572e4d1e
3 changed files with 45 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/lib/Hydra/Base/Controller/ListBuilds.pm
View File

@ -59,4 +59,34 @@ sub nix : Chained('get_builds') PathPart('channel') CaptureArgs(1) {
}
# Redirect to the latest successful build.
sub latest : Chained('get_builds') PathPart('latest') {
my ($self, $c) = @_;
my ($latest) = joinWithResultInfo($c, $c->stash->{allBuilds})
->search({finished => 1, buildstatus => 0}, {order_by => ["timestamp DESC"]});
notFound "There is no successful build to redirect to." unless defined $latest;
$c->res->redirect($c->uri_for($c->controller('Build')->action_for("view_build"), [$latest->id]));
}
# Redirect to the latest successful build for a specific platform.
sub latest_for : Chained('get_builds') PathPart('latest-for') {
my ($self, $c, $system) = @_;
notFound($c, "You need to specify a platform type in the URL.") unless defined $system;
my ($latest) = joinWithResultInfo($c, $c->stash->{allBuilds})
->search({finished => 1, buildstatus => 0, system => $system}, {order_by => ["timestamp DESC"]});
notFound($c, "There is no successful build for platform `$system' to redirect to.") unless defined $latest;
$c->res->redirect($c->uri_for($c->controller('Build')->action_for("view_build"), [$latest->id]));
}
1;