X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FHandlers.pm;h=2ce155bc5566e0ff036dc26a7e55d6a6353bbaca;hb=2a1215b3e1653723eb89ee83a1a0e7ff3b860040;hp=cb2393f68bb327ac1e4cb51b8a2959b1a529ec57;hpb=9f02ff253257aba872a7f6d0d3d908b6b1de8576;p=gruntmaster-handlers.git

diff --git a/lib/Gruntmaster/Handlers.pm b/lib/Gruntmaster/Handlers.pm
index cb2393f..2ce155b 100644
--- a/lib/Gruntmaster/Handlers.pm
+++ b/lib/Gruntmaster/Handlers.pm
@@ -28,9 +28,15 @@ 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 ($problem, $format, $contest) = map {scalar $req->param($_)} 'problem', 'prog_format', 'contest';
   my $ext = FORMAT_EXTENSION->{$format};
   my $prog = $req->upload('prog');
+  die if defined $contest && $contest !~ /^\w+$/;
+
+  if (defined $contest) {
+	my $meta = LoadFile "ct/$contest/meta.yml";
+	die unless time >= $meta->{start} && time <= $meta->{end}
+  }
 
   my $dir = tempdir;
   $prog->link("$dir/prog.$ext");
@@ -43,6 +49,8 @@ sub submit{
 	},
 	problem => $problem,
 	user => $r->user,
+	date => time,
+	defined $contest ? (contest => $contest) : (),
   };
 
   my $jobname = int rand 1_000_000_000;