use utf8;

}
sub end : ActionClass('RenderView') {
    my ($self, $c) = @_;
    if (scalar @{$c->error}) {
        $c->stash->{json}->{error} = join "\n", @{$c->error};
        $c->forward('View::JSON');
        $c->clear_errors;
    }

}
sub triggerJobset {
    my ($self, $c, $jobset) = @_;
    txn_do($c->model('DB')->schema, sub {
        $jobset->update({ triggertime => time });
    });
    push @{$c->{stash}->{json}->{jobsetsTriggered}}, $jobset->project->name . ":" . $jobset->name;
}
sub push : Chained('api') PathPart('push') Args(0) {
    my ($self, $c) = @_;
    $c->{stash}->{json}->{jobsetsTriggered} = [];
    my @jobsets = split /,/, ($c->request->params->{jobsets} // "");
    foreach my $s (@jobsets) {
        my ($p, $j) = parseJobsetName($s);
        my $jobset = $c->model('DB::Jobsets')->find($p, $j) or notFound($c, "Jobset ‘$p:$j’ does not exist.");
        next unless $jobset->project->enabled && $jobset->enabled;
        triggerJobset($self, $c, $jobset);
    }
    my @repos = split /,/, ($c->request->params->{repos} // "");
    foreach my $r (@repos) {
        triggerJobset($self, $c, $_) foreach $c->model('DB::Jobsets')->search(
            { 'project.enabled' => 1, 'me.enabled' => 1 },
            { join => 'project'
            , where => \ [ 'exists (select 1 from JobsetInputAlts where project = me.project and jobset = me.name and value = ?)', [ 'value', $r ] ]
            });
    }
    $c->forward('View::JSON');

    # !!! strip the json prefix
    $c->stash->{jsonBuildId} = $build->id;
    $c->stash->{jsonDrvPath} = $build->drvpath;

    $c->stash->{json}->{buildId} = $build->id;
    $c->stash->{json}->{drvPath} = $build->drvpath;

    $c->stash->{jsonOutPath} = $out->path if defined $out;

    $c->stash->{json}->{outPath} = $out->path if defined $out;

    parseJobsetName

sub parseJobsetName {
    my ($s) = @_;
    $s =~ /^($projectNameRE):($jobsetNameRE)$/ or die "invalid jobset specifier ‘$s’\n";
    return ($1, $2);
}

  data_type: 'integer'
  is_nullable: 1
=head2 triggertime

  "triggertime",
  { data_type => "integer", is_nullable => 1 },

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2013-01-22 13:29:36
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:9smV/zbSSxQNLiBcnADFXA

# Created by DBIx::Class::Schema::Loader v0.07033 @ 2013-02-25 19:10:12
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:SvBgR0iH9NjVH4jvBATYPA

        expose_stash => qr/^json/,

        expose_stash => 'json'

my $minCheckInterval = 1;

my $minCheckInterval = 5 * 60;

    my $triggerTime = $jobset->triggertime;

        });
    }
    if (defined $triggerTime) {
        txn_do($db, sub {
            # Only clear the trigger time if the jobset hasn't been
            # triggered in the meantime.  In that case, we need to
            # evaluate again.
            my $new = $jobset->get_from_storage();
            $jobset->update({ triggertime => undef })
                if $new->triggertime == $triggerTime;

# Check the jobset that hasn't been checked for the longest time.

    # If any jobset has been triggered by a push, check it.

        { 'project.enabled' => 1, 'me.enabled' => 1

        { 'project.enabled' => 1, 'me.enabled' => 1, 'triggertime' => { '!=', undef },
        , -or => [ 'lastcheckedtime' => undef, 'lastcheckedtime' => { '<', time() - $minCheckInterval } ] },
        { join => 'project', order_by => [ 'triggertime' ], rows => 1 });
    # Otherwise, check the jobset that hasn't been checked for the
    # longest time (but don't check more often than the minimal check
    # interval).
    ($jobset) = $db->resultset('Jobsets')->search(
        { 'project.enabled' => 1, 'me.enabled' => 1,

        { join => 'project', order_by => [ 'lastcheckedtime nulls first' ], rows => 1 });

        { join => 'project', order_by => [ 'lastcheckedtime nulls first' ], rows => 1 })
        unless defined $jobset;

    triggerTime   integer, -- set if we were triggered by a push event

alter table Jobsets add column triggerTime integer;