-sub process{
- my $dir = $_[0];
-
- chdir $dir;
- mkdir "in";
- for (<*>) {
- cp $_, "in" unless $_ eq 'in' || $_ eq 'pidfile';
- }
-
- my @results;
- my @full_results = ();
- my $meta = {};
- try {
- $meta = LoadFile "meta.yml";
- if (exists $meta->{problem}) {
- my $problem = $meta->{problem};
- die "No such problem: $problem" unless -d "../../pb/$problem";
- for (<../../pb/$problem/*>) {
- cp $_, '.' unless $_ eq "../../pb/$problem/meta.yml"
- }
-
- my $pbmeta = LoadFile "../../pb/$problem/meta.yml";
- $meta = {%$meta, %$pbmeta};
- }
-
- my ($files, $generator, $runner, $judge, $testcnt) = map { $meta->{$_} or die "Required parameter missing: $_"} qw/files generator runner judge testcnt/;
-
- $generator = safe_can Generator => generate => $generator;
- $runner = safe_can Runner => run => $runner;
- $judge = safe_can Judge => judge => $judge;
-
- prepare_files $dir, $meta;
- for my $test (1 .. $testcnt) {
- my $start_time = time;
- my $result;
- try {
- $generator->($test, $meta);
- $result = $runner->($test, $meta);
- } catch {
- $result = $_;
- unless (ref $result) {
- chomp $result;
- $result = [ERR, $result];
- }
- };
-
- if (ref $result) {
- get_logger->trace("Test $test result is " . $result->[1]);
- push @full_results, {id => $test, result => $result->[0], result_text => $result->[1], time => time - $start_time}
- } else {
- get_logger->trace("Test $test result is $result");
- push @full_results, {id => $test, result => 0, result_text => $result, time => time - $start_time}
- }
- push @results, $result;
- last if $meta->{judge} eq 'Absolute' && ref $result
+sub got_job{
+ my $job = $_[0];
+ my $id = $job->id;
+ get_logger->debug("Taking job $id...");
+ my $daemon = hostname . ":$$";
+ $job->update({daemon => $daemon});
+ #if (set_job_daemon $job, hostname . ":$$") {
+ if (1) {
+ get_logger->debug("Succesfully taken job $id");
+ process $id, $job;
+ get_logger->debug("Job $id done");
+ } else {
+ get_logger->debug("Job $id already taken");