sub checkJob {
    my ($project, $jobset, $inputInfo, $nixExprInput, $job, $currentBuilds) = @_;

# Check whether to add the build described by $buildInfo.
sub checkBuild {
    my ($project, $jobset, $inputInfo, $nixExprInput, $buildInfo, $currentBuilds) = @_;

    my $jobName = $job->{jobName};
    my $drvPath = $job->{drvPath};
    my $outPath = $job->{outPath};

    my $jobName = $buildInfo->{jobName};
    my $drvPath = $buildInfo->{drvPath};
    my $outPath = $buildInfo->{outPath};

    $priority = int($job->{schedulingPriority})
        if $job->{schedulingPriority} =~ /^\d+$/;

    $priority = int($buildInfo->{schedulingPriority})
        if $buildInfo->{schedulingPriority} =~ /^\d+$/;

        my $jobInDB = $jobset->jobs->update_or_create(

        my $job = $jobset->jobs->update_or_create(

        $jobInDB->update({firstevaltime => time})
            unless defined $jobInDB->firstevaltime;

        $job->update({firstevaltime => time})
            unless defined $job->firstevaltime;

        my @previousBuilds = $jobInDB->builds->search({outPath => $outPath, isCurrent => 1});

        my @previousBuilds = $job->builds->search({outPath => $outPath, isCurrent => 1});

        my $build = $jobInDB->builds->create(

        my $build = $job->builds->create(

            , description => $job->{description}
            , longdescription => $job->{longDescription}
            , license => $job->{license}
            , homepage => $job->{homepage}
            , maintainers => $job->{maintainers}
            , nixname => $job->{nixName}

            , description => $buildInfo->{description}
            , longdescription => $buildInfo->{longDescription}
            , license => $buildInfo->{license}
            , homepage => $buildInfo->{homepage}
            , maintainers => $buildInfo->{maintainers}
            , nixname => $buildInfo->{nixName}

            , system => $job->{system}

            , system => $buildInfo->{system}

        foreach my $arg (@{$job->{arg}}) {

        foreach my $arg (@{$buildInfo->{arg}}) {

        checkJob($project, $jobset, $inputInfo, $nixExprInput, $job, \%currentBuilds);

        checkBuild($project, $jobset, $inputInfo, $nixExprInput, $job, \%currentBuilds);

        foreach my $jobInDB ($jobset->jobs->all) {
            if ($failedJobNames{$jobInDB->name}) {
                $jobInDB->update({errormsg => join '\n', @{$failedJobNames{$jobInDB->name}}});

        foreach my $job ($jobset->jobs->all) {
            if ($failedJobNames{$job->name}) {
                $job->update({errormsg => join '\n', @{$failedJobNames{$job->name}}});

                $jobInDB->update({errormsg => undef});

                $job->update({errormsg => undef});

sub checkJobs {

sub checkProjects {

        checkJobs;

        checkProjects;