# Don't check a jobset more than once every five minutes.
my $minCheckInterval = 1;

sub checkJobset {
    my ($project, $jobset) = @_;

sub checkJobsetWrapped {
    my ($jobset) = @_;
    my $project = $jobset->project;

sub checkJobsetWrapped {
    my ($project, $jobset) = @_;

sub checkJobset {
    my ($jobset) = @_;

    print STDERR "considering jobset ", $project->name, ":", $jobset->name, "\n";

    print STDERR "considering jobset ", $jobset->project->name, ":", $jobset->name,
        " (last checked ", time() - $jobset->lastcheckedtime, "s ago)\n";

        checkJobset($project, $jobset);

        checkJobsetWrapped($jobset);

sub checkProjects {
    foreach my $project ($db->resultset('Projects')->search({enabled => 1})) {
        print STDERR "considering project ", $project->name, "\n";
        checkJobsetWrapped($project, $_)
            foreach $project->jobsets->search({enabled => 1});
    }

# Check the jobset that hasn't been checked for the longest time.
sub checkSomeJobset {
    my ($jobset) = $db->resultset('Jobsets')->search(
        { 'project.enabled' => 1, 'me.enabled' => 1, 'lastcheckedtime' => { '<', time() - $minCheckInterval } },
        { join => 'project', order_by => [ 'lastcheckedtime' ], rows => 1 });
    return 0 unless defined $jobset;
    checkJobset($jobset);
    return 1;

    checkJobsetWrapped($jobset->project, $jobset);

    checkJobset($jobset);

        checkProjects;

        if (checkSomeJobset) {
            # Just so we don't go completely crazy if lastcheckedtime
            # isn't updated properly.
            sleep 1;
        } else {
            print STDERR "sleeping...\n";
            sleep 30;
        }

    print STDERR "sleeping...\n";
    sleep 30;