-my %orig_templates = (
- en => <<'HTML',
-<form action="https://gm.ieval.ro/action/submit" method="POST" enctype="multipart/form-data">
-<label>Problem:<br>
-<select name="problem" required>
-<tmpl_loop problems><option value="<tmpl_var id>"><tmpl_var name></option>
-</tmpl_loop></select></label><p>
-
-<label>File:<br>
-<input name="prog" required type="file"></label><p>
+sub generate{
+ my ($self, $frm, $env) = @_;
+ my $r = Plack::Request->new($env);
+ my ($problem, $format, $contest, $private, $prog) = map {scalar $r->param($_)} 'problem', 'prog_format', 'contest', 'private', 'source_code';
+ my $upload = $r->upload('prog');
+ if (defined $upload) {
+ my $temp = read_file $upload->path;
+ $prog = $temp if $temp
+ }
+ die if defined $contest && $contest !~ /^\w+$/ ;
+ die if defined $contest && (time > contest_end $contest);
+ return reply 'A required parameter was not supplied' if grep { !defined } $problem, $format, $prog;