]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Ct/Entry.pm
bba2991c6e8a13d5fbeebbd473cbd440cb2806a4
1 package Gruntmaster
::Page
::Ct
::Entry
;
6 use parent qw
/Exporter/;
7 our @EXPORT_OK = qw
/generate/;
8 our $VERSION = '0.001';
10 use HTML
::Template
::Compiled
;
11 use POSIX qw
/strftime/;
12 use Gruntmaster
::Page
::Common qw
/cook_templates reload_templates/;
13 use Gruntmaster
::Data qw
/contest_name contest_start contest_end/;
15 my %orig_templates = (
17 Contest start time: <tmpl_var start><br>
18 Contest end time: <tmpl_var end><p>
20 <tmpl_if started><a href="pb/">Problems</a><br>
21 <a href="log/">Job log</a><br>
22 <a href="log/st.var">Standings</a></tmpl_if>
26 my %templates = cook_templates
%orig_templates, ct_entry
=> '<tmpl_var name>';
29 %templates = cook_templates
%orig_templates, ct_entry
=> '<tmpl_var name>' if reload_templates
;
30 my ($path, $lang) = @_;
31 $path = ($path =~ m
,ct
/(.*)/index
,)[0];
32 my $template = $templates{$lang};
33 my $htc = HTML
::Template
::Compiled
->new(scalarref
=> \
$template);
35 $htc->param(id
=> $path);
36 $htc->param(name
=> contest_name
$path);
37 $htc->param(start
=> strftime
'%c', contest_start
);
38 $htc->param(end
=> strftime
'%c', contest_end
);
39 $htc->param(started
=> time >= contest_start
);
This page took 0.042056 seconds and 3 git commands to generate.