set_job_results $job, \@full_results if scalar @full_results;
set_job_errors $job, $errors;
- my $log = $meta->{contest} ? "ct/$meta->{contest}/log" : 'log';
- PUBLISH gensrc => $job;
+ my $log = $Gruntmaster::Data::contest ? "ct/$Gruntmaster::Data::contest/log" : 'log';
+ PUBLISH gensrc => "$Gruntmaster::Data::contest.$job";
PUBLISH genpage => "$log/job/$job.html";
PUBLISH genpage => "$log/index.html";
PUBLISH genpage => "$log/st.html";
}
sub got_job{
- my $job = shift;
- get_logger->debug("Taking job $job...");
+ $_[0] =~ /^(\w*)\.(\d+)$/;
+ my $job = $2;
+ local $Gruntmaster::Data::contest = $1 if $1;
+ get_logger->debug("Taking job $job@{[defined $1 ? \" of contest $1\" : '']}...");
if (set_job_daemon $job, hostname . ":$$") {
get_logger->debug("Succesfully taken job $job");
process $job;