* Provide a channel for each project containing all the latest
succesful builds for each job in the project (under http://server/project/<name>/channel/latest).
This commit is contained in:
parent
af936d7c91
commit
dad2f31099
|
@ -3,6 +3,7 @@ package Hydra::Controller::Project;
|
|||
use strict;
|
||||
use warnings;
|
||||
use base 'Hydra::Base::Controller::ListBuilds';
|
||||
use base 'Hydra::Base::Controller::NixChannel';
|
||||
use Hydra::Helper::Nix;
|
||||
use Hydra::Helper::CatalystUtils;
|
||||
|
||||
|
@ -224,6 +225,17 @@ sub updateProject {
|
|||
}
|
||||
|
||||
|
||||
# Hydra::Base::Controller::NixChannel needs this.
|
||||
sub nix : Chained('project') PathPart('channel/latest') CaptureArgs(0) {
|
||||
my ($self, $c) = @_;
|
||||
eval {
|
||||
$c->stash->{channelName} = $c->stash->{curProject}->name . "-latest";
|
||||
getChannelData($c, scalar $c->stash->{curProject}->builds);
|
||||
};
|
||||
error($c, $@) if $@;
|
||||
}
|
||||
|
||||
|
||||
# Hydra::Base::Controller::ListBuilds needs this.
|
||||
sub get_builds : Chained('project') PathPart('') CaptureArgs(0) {
|
||||
my ($self, $c) = @_;
|
||||
|
|
|
@ -237,22 +237,11 @@ sub job :Local {
|
|||
|
||||
sub nix : Chained('/') PathPart('channel/latest') CaptureArgs(0) {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
eval {
|
||||
$c->stash->{channelName} = "hydra-all-latest";
|
||||
|
||||
my @builds = @{getLatestBuilds($c, $c->model('DB::Builds'), {buildStatus => 0})};
|
||||
|
||||
my @storePaths = ();
|
||||
foreach my $build (@builds) {
|
||||
# !!! better do this in getLatestBuilds with a join.
|
||||
next unless $build->buildproducts->find({type => "nix-build"});
|
||||
next unless isValidPath($build->outpath);
|
||||
push @storePaths, $build->outpath;
|
||||
my $pkgName = $build->nixname . "-" . $build->system . "-" . $build->id . ".nixpkg";
|
||||
$c->stash->{nixPkgs}->{$pkgName} = $build;
|
||||
getChannelData($c, $c->model('DB::Builds'));
|
||||
};
|
||||
|
||||
$c->stash->{storePaths} = [@storePaths];
|
||||
error($c, $@) if $@;
|
||||
}
|
||||
|
||||
|
||||
|
|
|
@ -3,10 +3,11 @@ package Hydra::Helper::CatalystUtils;
|
|||
use strict;
|
||||
use Exporter;
|
||||
use Readonly;
|
||||
use Hydra::Helper::Nix;
|
||||
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT = qw(
|
||||
getBuild getBuildStats getLatestBuilds
|
||||
getBuild getBuildStats getLatestBuilds getChannelData
|
||||
error notFound
|
||||
requireLogin requireProjectOwner requireAdmin
|
||||
trim
|
||||
|
@ -66,6 +67,25 @@ sub getLatestBuilds {
|
|||
}
|
||||
|
||||
|
||||
sub getChannelData {
|
||||
my ($c, $builds) = @_;
|
||||
|
||||
my @builds = @{getLatestBuilds($c, $builds, {buildStatus => 0})};
|
||||
|
||||
my @storePaths = ();
|
||||
foreach my $build (@builds) {
|
||||
# !!! better do this in getLatestBuilds with a join.
|
||||
next unless $build->buildproducts->find({type => "nix-build"});
|
||||
next unless isValidPath($build->outpath);
|
||||
push @storePaths, $build->outpath;
|
||||
my $pkgName = $build->nixname . "-" . $build->system . "-" . $build->id . ".nixpkg";
|
||||
$c->stash->{nixPkgs}->{$pkgName} = $build;
|
||||
};
|
||||
|
||||
$c->stash->{storePaths} = [@storePaths];
|
||||
}
|
||||
|
||||
|
||||
sub error {
|
||||
my ($c, $msg) = @_;
|
||||
$c->error($msg);
|
||||
|
|
Loading…
Reference in a new issue