]> iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Ct/Entry.pm
Pass PSGI env to generators
[gruntmaster-page.git] / lib / Gruntmaster / Page / Ct / Entry.pm
1 package Gruntmaster::Page::Ct::Entry;
2
3 use 5.014000;
4 use strict;
5 use warnings;
6 use Gruntmaster::Page::Base ct_entry => '<tmpl_var name>';
7 our @ISA = qw/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
9
10 use constant TEMPLATES => {
11 en => <<'HTML',
12 Contest start time: <tmpl_var start><br>
13 Contest end time: <tmpl_var end><p>
14
15 <tmpl_if started><a href="<tmpl_var id>/pb/">Problems</a><br>
16 <a href="<tmpl_var id>/log/">Job log</a><br>
17 <a href="<tmpl_var id>/log/st">Standings</a></tmpl_if>
18 HTML
19 };
20
21 sub _generate{
22 my ($self, $htc, $lang, $env, $id) = @_;
23 debug $env => "language is '$lang' and id is '$id'";
24
25 $htc->param(id => $id);
26 $htc->param(name => contest_name $id);
27 $htc->param(start => strftime '%c', localtime contest_start $id);
28 $htc->param(end => strftime '%c', localtime contest_end $id);
29 $htc->param(started => time >= contest_start $id);
30 }
31
32 1
This page took 0.046143 seconds and 4 git commands to generate.