<tr><th>Priority</th><th>Project</th><th>Job</th><th>System</th><th>Timestamp</th><th>Description</th></tr>

    <tr><th>#</th><th>Priority</th><th>Project</th><th>Job</th><th>System</th><th>Timestamp</th><th>Description</th></tr>

        <td>[% job.id %]</td>

$db->storage->dbh->do("PRAGMA synchronous = OFF;");

    print "STOP ", time, "\n";

use POSIX qw(dup2);

$db->storage->dbh->do("PRAGMA synchronous = OFF;");

while (1) {

sub checkJobs {

        print "starting job ", $job->id, "\n";

        my $id = $job->id;
        print "starting job $id\n";

            system("perl -I HydraFrontend/lib -w ./build.pl " . $job->id);

            my $child = fork();
            die unless defined $child;
            if ($child == 0) {
                open LOG, ">logs/$id" or die;
                POSIX::dup2(fileno(LOG), 1) or die;
                POSIX::dup2(fileno(LOG), 2) or die;
                exec("perl", "-IHydraFrontend/lib", "-w",
                     "./build.pl", $id);
                warn "cannot start job " . $id;
                _exit(1);
            }

}

while (1) {
    eval {
        checkJobs;
    };
    warn $@ if $@;

$db->storage->dbh->do("PRAGMA synchronous = OFF;");

checkJobs;

while (1) {
    checkJobs;
    print "sleeping...\n";
    sleep 10;
}