use File::Basename qw/fileparse/;
use File::Temp qw/tempdir/;
use File::Copy qw/move/;
-use Gruntmaster::Data qw/contest_start contest_end push_job set_job_inmeta insert_user PUBLISH/;
+use Gruntmaster::Data;
use constant FORMAT_EXTENSION => {
C => 'c',
}
die if defined $contest && $contest !~ /^\w+$/ ;
die if defined $contest && (time < contest_start $contest || time > contest_end $contest);
+ return aputs 'A required parameter was not supplied' if grep { !defined } $problem, $format, $prog;
+
+ local $Gruntmaster::Data::contest = $contest;
my $job = push_job (
date => time,
}
};
- PUBLISH 'jobs', $job;
+ $contest //= '';
+ PUBLISH 'jobs', "$contest.$job";
$r->print("Job submitted");
OK
}
aputs $r, 'Password changed successfully';
}
+sub problem_mark_open{
+ my $r = shift;
+ $r->uri =~ m,/ct/([^/]*)/pb/([^.]*),;
+ $r->log_error("Marking open for contest $1 problem $2 and user " . $r->user);
+ local $Gruntmaster::Data::contest = $1;
+ my $problem = $2;
+ mark_open $problem, $r->user;
+}
+
=begin comment
sub private{