2012-04-02 16:11:22 +02:00
|
|
|
package Hydra::Controller::JobsetEval;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use base 'Catalyst::Controller';
|
|
|
|
use Hydra::Helper::Nix;
|
|
|
|
use Hydra::Helper::CatalystUtils;
|
|
|
|
|
|
|
|
|
|
|
|
sub eval : Chained('/') PathPart('eval') CaptureArgs(1) {
|
|
|
|
my ($self, $c, $evalId) = @_;
|
|
|
|
|
|
|
|
my $eval = $c->model('DB::JobsetEvals')->find($evalId)
|
|
|
|
or notFound($c, "Evaluation $evalId doesn't exist.");
|
|
|
|
|
|
|
|
$c->stash->{eval} = $eval;
|
|
|
|
$c->stash->{project} = $eval->project;
|
|
|
|
$c->stash->{jobset} = $eval->jobset;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub view : Chained('eval') PathPart('') Args(0) {
|
|
|
|
my ($self, $c) = @_;
|
|
|
|
|
|
|
|
$c->stash->{template} = 'jobset-eval.tt';
|
|
|
|
|
|
|
|
my $eval = $c->stash->{eval};
|
|
|
|
|
|
|
|
my ($eval2) = $eval->jobset->jobsetevals->search(
|
|
|
|
{ hasnewbuilds => 1, id => { '<', $eval->id } },
|
|
|
|
{ order_by => "id DESC", rows => 1 });
|
|
|
|
|
|
|
|
my @builds = $eval->builds->search({}, { order_by => ["job", "system", "id"], columns => [@buildListColumns] });
|
|
|
|
my @builds2 = $eval2->builds->search({}, { order_by => ["job", "system", "id"], columns => [@buildListColumns] });
|
|
|
|
|
|
|
|
$c->stash->{stillSucceed} = [];
|
|
|
|
$c->stash->{stillFail} = [];
|
|
|
|
$c->stash->{nowSucceed} = [];
|
|
|
|
$c->stash->{nowFail} = [];
|
2012-04-02 16:45:05 +02:00
|
|
|
$c->stash->{new} = [];
|
|
|
|
$c->stash->{removed} = [];
|
2012-04-02 15:23:42 +00:00
|
|
|
$c->stash->{unfinished} = [];
|
2012-04-02 16:11:22 +02:00
|
|
|
|
|
|
|
my $n = 0;
|
|
|
|
foreach my $build (@builds) {
|
|
|
|
my $d;
|
|
|
|
while ($n < scalar(@builds2)) {
|
|
|
|
my $build2 = $builds2[$n];
|
|
|
|
my $d = $build->get_column('job') cmp $build2->get_column('job')
|
|
|
|
|| $build->get_column('system') cmp $build2->get_column('system');
|
|
|
|
if ($d == 0) {
|
2012-04-02 16:45:05 +02:00
|
|
|
$n++;
|
2012-04-02 15:23:42 +00:00
|
|
|
if ($build->finished == 0 || $build2->finished == 0) {
|
|
|
|
push @{$c->stash->{unfinished}}, $build;
|
|
|
|
} elsif ($build->buildstatus == 0 && $build2->buildstatus == 0) {
|
2012-04-02 16:11:22 +02:00
|
|
|
push @{$c->stash->{stillSucceed}}, $build;
|
|
|
|
} elsif ($build->buildstatus != 0 && $build2->buildstatus != 0) {
|
|
|
|
push @{$c->stash->{stillFail}}, $build;
|
|
|
|
} elsif ($build->buildstatus == 0 && $build2->buildstatus != 0) {
|
|
|
|
push @{$c->stash->{nowSucceed}}, $build;
|
|
|
|
} elsif ($build->buildstatus != 0 && $build2->buildstatus == 0) {
|
|
|
|
push @{$c->stash->{nowFail}}, $build;
|
2012-04-02 16:45:05 +02:00
|
|
|
} else { die; }
|
|
|
|
last;
|
|
|
|
} elsif ($d == -1) {
|
|
|
|
push @{$c->stash->{new}}, $build;
|
2012-04-02 16:11:22 +02:00
|
|
|
last;
|
|
|
|
}
|
2012-04-02 16:45:05 +02:00
|
|
|
push @{$c->stash->{removed}}, { job => $build2->get_column('job'), system => $build2->get_column('system') };
|
2012-04-02 16:11:22 +02:00
|
|
|
$n++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
$c->stash->{full} = ($c->req->params->{full} || "0") eq "1";
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
1;
|