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::Page::Log;
+
+use constant FORMAT_EXTENSION => {
+ C => 'c',
+ CPP => 'cpp',
+ MONO => 'cs',
+ JAVA => 'java',
+ PASCAL => 'pas',
+ PERL => 'pl',
+ PYTHON => 'py',
+ RUBY => 'rb',
+};
sub aputs{
my ($r, $str) = @_;
sub submit{
my $r = shift;
my $req = Apache2::Request->new($r);
- my ($problem, $format, $contest, $private) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest', 'private';
- my $prog;
- $req->upload('prog')->slurp($prog);
+ my ($problem, $format, $contest, $private, $prog) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';
+ my $upload = $req->upload('prog');
+ if (defined $upload) {
+ my $temp;
+ $upload->slurp($temp);
+ $prog = $temp if $temp
+ }
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,
defined $private ? (private => $private) : (),
defined $contest ? (contest => $contest, private => 1) : (),
filesize => length $prog,
- extension => Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format},
+ extension => FORMAT_EXTENSION->{$format},
);
set_job_inmeta $job, {
files => {
prog => {
format => $format,
- name => 'prog.' . Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format},
+ name => 'prog.' . FORMAT_EXTENSION->{$format},
content => $prog,
}
}
};
- PUBLISH 'jobs', $job;
+ $contest //= '';
+ PUBLISH 'jobs', "$contest.$job";
$r->print("Job submitted");
OK
}