]>
iEval git - plack-app-gruntmaster.git/blob - Page/Submit.pm
1 package Gruntmaster
::Page
::Submit
;
6 use parent qw
/Exporter/;
7 our @EXPORT_OK = qw
/generate/;
8 our $VERSION = '0.001';
10 use constant FORMATS
=> [qw
/CPP/];
12 use HTML
::Template
::Compiled
;
13 use Gruntmaster
::Page
::Common qw
/cook_templates reload_templates/;
14 use Gruntmaster
::Data qw
/problem_name problems/;
16 my %orig_templates = (
18 <form action="https://gm.ieval.ro/action/submit" method="POST" enctype="multipart/form-data">
20 <select name="problem" required>
21 <tmpl_loop problems><option value="<tmpl_var id>"><tmpl_var name></option>
22 </tmpl_loop></select></label><p>
25 <input name="prog" required type="file"></label><p>
27 <label>File format:<br>
28 <select name="prog_format" required>
29 <tmpl_loop formats><option value="<tmpl_var _>"><tmpl_var _></option>
30 </tmpl_loop></select></label><p>
32 <input type="submit" value="Submit job">
36 my %templates = cook_templates
%orig_templates, submit
=> 'Submit job';
39 %templates = cook_templates
%orig_templates, submit
=> 'Submit job' if reload_templates
;
41 my $htc = HTML
::Template
::Compiled
->new(scalarref
=> \
$templates{$_[1]});
42 my @problems = map +{ id
=> $_, name
=> problem_name
}, problems
;
43 $htc->param(problems
=> \
@problems);
44 $htc->param(formats
=> FORMATS
);
This page took 0.048412 seconds and 4 git commands to generate.