sub unlockDeadJobs {
    # Unlock jobs whose building process has died.

sub unlockDeadBuilds {
    # Unlock builds whose building process has died.

        my @jobs = $db->resultset('Builds')->search(

        my @builds = $db->resultset('Builds')->search(

        foreach my $job (@jobs) {
            my $pid = $job->schedulingInfo->locker;

        foreach my $build (@builds) {
            my $pid = $build->schedulingInfo->locker;

                print "job ", $job->id, " pid $pid died, unlocking\n";
                $job->schedulingInfo->busy(0);
                $job->schedulingInfo->locker("");
                $job->schedulingInfo->update;

                print "build ", $build->id, " pid $pid died, unlocking\n";
                $build->schedulingInfo->busy(0);
                $build->schedulingInfo->locker("");
                $build->schedulingInfo->update;

sub checkJobs {
    print "looking for runnable jobs...\n";

sub checkBuilds {
    print "looking for runnable builds...\n";

    my @jobsStarted;

    my @buildsStarted;

            my @jobs = $extraAllowed == 0 ? () : $db->resultset('Builds')->search(

            my @builds = $extraAllowed == 0 ? () : $db->resultset('Builds')->search(

                "starting ", scalar(@jobs), " builds\n";

                "starting ", scalar(@builds), " builds\n";

            foreach my $job (@jobs) {
                my $logfile = getcwd . "/logs/" . $job->id;

            foreach my $build (@builds) {
                my $logfile = getcwd . "/logs/" . $build->id;

                $job->schedulingInfo->busy(1);
                $job->schedulingInfo->locker($$);
                $job->schedulingInfo->logfile($logfile);
                $job->schedulingInfo->starttime(time);
                $job->schedulingInfo->update;
                $job->buildsteps->delete_all;
                push @jobsStarted, $job;

                $build->schedulingInfo->busy(1);
                $build->schedulingInfo->locker($$);
                $build->schedulingInfo->logfile($logfile);
                $build->schedulingInfo->starttime(time);
                $build->schedulingInfo->update;
                $build->buildsteps->delete_all;
                push @buildsStarted, $build;

    foreach my $job (@jobsStarted) {
        my $id = $job->id;
        print "starting job $id (", $job->project->name, ":", $job->attrname, ") on ", $job->system, "\n";

    foreach my $build (@buildsStarted) {
        my $id = $build->id;
        print "starting build $id (", $build->project->name, ":", $build->attrname, ") on ", $build->system, "\n";

            my $logfile = $job->schedulingInfo->logfile;

            my $logfile = $build->schedulingInfo->logfile;

                warn "cannot start job " . $id;

                warn "cannot start build " . $id;

                $job->schedulingInfo->busy(0);
                $job->schedulingInfo->locker($$);
                $job->schedulingInfo->update;

                $build->schedulingInfo->busy(0);
                $build->schedulingInfo->locker($$);
                $build->schedulingInfo->update;

        unlockDeadJobs;
        checkJobs;

        unlockDeadBuilds;
        checkBuilds;