]> iEval git - gruntmaster-handlers.git/blobdiff - lib/Gruntmaster/Handlers.pm
Use centralised pub/sub
[gruntmaster-handlers.git] / lib / Gruntmaster / Handlers.pm
index cb2393f68bb327ac1e4cb51b8a2959b1a529ec57..9e92dc264139e3b65771e23b59b1901671357099 100644 (file)
@@ -5,10 +5,6 @@ use strict;
 use warnings;
 our $VERSION = '0.001';
 
-use constant FORMAT_EXTENSION => {
-  CPP => 'cpp',
-};
-
 use Apache2::Access;
 use Apache2::AuthzCaps qw/hascaps/;
 use Apache2::RequestRec;
@@ -22,37 +18,46 @@ use Cwd qw/cwd/;
 use File::Basename qw/fileparse/;
 use File::Temp qw/tempdir/;
 use File::Copy qw/move/;
-use YAML::Any qw/LoadFile DumpFile/;
+use Gruntmaster::Data qw/contest_start contest_end push_job set_job_inmeta PUBLISH/;
+use Gruntmaster::Page::Log;
 
 sub submit{
   my $r = shift;
   chdir $r->dir_config('root');
   my $req = Apache2::Request->new($r);
-  my ($problem, $format) = ($req->param('problem'), $req->param('prog_format'));
-  my $ext = FORMAT_EXTENSION->{$format};
-  my $prog = $req->upload('prog');
-
-  my $dir = tempdir;
-  $prog->link("$dir/prog.$ext");
-  DumpFile "$dir/meta.yml", {
-       files => {
-         prog => {
-               format => $format,
-               name => 'prog.cpp',
+  my ($problem, $format, $contest, $private) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest', 'private';
+  my $prog;
+  $req->upload('prog')->slurp($prog);
+  die if defined $contest && $contest !~ /^\w+$/ ;
+  die if defined $contest && (time < contest_start $contest || time > contest_end $contest);
+
+  my $job = push_job (
+         date => time,
+         problem => $problem,
+         user => $r->user,
+         defined $private ? (private => $private) : (),
+         defined $contest ? (contest => $contest, private => 1) : (),
+         filesize => length $prog,
+         extension => Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format},
+  );
+
+  set_job_inmeta $job, {
+         files => {
+                 prog => {
+                         format => $format,
+                         name => 'prog.' . Gruntmaster::Page::Log::FORMAT_EXTENSION->{$format},
+                         content => $prog,
+                 }
          }
-       },
-       problem => $problem,
-       user => $r->user,
   };
 
-  my $jobname = int rand 1_000_000_000;
-  $jobname = int rand 1_000_000_000 while -d "jobs/$jobname";
-  move $dir, "jobs/$jobname" or die $!;
-
+  PUBLISH 'jobs', $job;
   $r->print("Job submitted");
   OK
 }
 
+=begin comment
+
 sub private{
   my $r = shift;
   my $dir = (fileparse $r->uri)[1];
@@ -74,6 +79,10 @@ sub private{
   DECLINED
 }
 
+=end comment
+
+=cut
+
 1;
 __END__
 # Below is stub documentation for your module. You'd better edit it!
This page took 0.018187 seconds and 4 git commands to generate.