B:BD[
9.9901] → [
11.1417:1437]
∅:D[
11.1437] → [
12.1752:1831]
∅:D[
6.2518] → [
12.1752:1831]
B:BD[
9.9901] → [
12.1752:1831]
B:BD[
12.1831] → [
10.2999:3066]
∅:D[
10.3066] → [
13.3184:3288]
B:BD[
7.4467] → [
13.3184:3288]
∅:D[
12.1951] → [
9.10169:10175]
∅:D[
6.2592] → [
9.10169:10175]
∅:D[
13.3288] → [
9.10169:10175]
∅:D[
7.4735] → [
9.10169:10175]
B:BD[
9.10169] → [
9.10169:10175]
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;