lib/Gruntmaster/Page/Pb/Entry.pm

   1 package Gruntmaster::Page::Pb::Entry;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base pb_entry => '<tmpl_var name>';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 use constant FORMATS => [qw/CPP/];
  11
  12 use constant TEMPLATES => {
  13         en => <<'HTML',
  14 <tmpl_var ESCAPE=0 statement>
  15
  16 <tmpl_if cansubmit>
  17 <h1>Submit solution</h1>
  18 <form action="https://gm.ieval.ro/action/submit" method="POST" enctype="multipart/form-data">
  19 <input type="hidden" name="problem" value="<tmpl_var id>">
  20 <tmpl_if_defined contest><input type="hidden" name="contest" value="<tmpl_var contest>"></tmpl_if_defined>
  21 <label>File: <input name="prog" required type="file"></label>
  22
  23 <label>File format: <select name="prog_format" required>
  24 <tmpl_loop formats><option value="<tmpl_var _>"><tmpl_var _></option>
  25 </tmpl_loop></select></label>
  26
  27 <input type="submit" value="Submit job">
  28 </form>
  29 </tmpl_if>
  30 HTML
  31 };
  32
  33 sub _generate{
  34         my ($self, $htc, $path, $lang) = @_;
  35
  36         $path =~ m,(?:ct/([^/])+/)?pb/(\w+)\.html$,;
  37
  38         my ($contest, $id) = ($1, $2);
  39
  40         $htc->param(cansubmit => 1);
  41         if (defined $contest) {
  42                 $htc->param(cansubmit => time >= contest_start $contest && time <= contest_end $contest);
  43                 $htc->param(contest => $contest);
  44         }
  45         $htc->param(formats => FORMATS);
  46         $htc->param(id => $id);
  47         local $Gruntmaster::Data::contest = $contest if $contest;
  48         $htc->param(name => problem_name $id);
  49         $htc->param(statement => problem_statement $id);
  50 }
  51
  52 1