1 package Gruntmaster
::Page
::Log
;
6 use parent qw
/Exporter/;
7 our @EXPORT_OK = qw
/generate/;
8 our $VERSION = '0.001';
10 use constant PAGE_SIZE
=> 10;
12 use constant FORMAT_EXTENSION
=> {
16 use HTML
::Template
::Compiled
;
17 use POSIX qw
/strftime/;
18 use Gruntmaster
::Page
::Common qw
/cook_templates reload_templates/;
19 use Gruntmaster
::Data qw
/jobcard job_date job_extension job_filesize problem_name job_private job_problem job_result job_result_text job_user/;
21 my %orig_templates = (
25 <tr><th>ID<th>Problem<th>Date<th>Size<th>User<th>Result
27 <tmpl_loop log><tr><td><a href="job/<tmpl_var id>.var"><tmpl_var id></a>
28 <td><a href="../pb/<tmpl_var problem>"><tmpl_var name></a>
30 <td><a href="src/<tmpl_var id>.<tmpl_var extension>"<tmpl_if private> data-private</tmpl_if>><tmpl_var size></a></a>
31 <td><tmpl_var user><td class="r<tmpl_var result>"><tmpl_var result_text>
37 my %templates = cook_templates
%orig_templates, log => 'Job log';
40 %templates = cook_templates
%orig_templates, log => 'Job log' if reload_templates
;
41 $_[0] =~ m
,^(?
:ct
/([^/]+)/)?log/(\w
+)\
.html
$,;
42 local $Gruntmaster::Data
::contest
= $1;
43 my $pages = jobcard
/ PAGE_SIZE
;
44 my $page = $2 eq 'index' ?
$pages : $2;
46 my $htc = HTML
::Template
::Compiled
->new(scalarref
=> \
$templates{$_[1]});
47 my @log = sort { $b->{id
} <=> $a->{id
} } map +{
49 (job_private
() ?
(private
=> job_private
) : ()),
50 date
=> (job_date
() ? strftime
('%c' => localtime job_date
) : '?'),
51 extension
=> job_extension
,
52 name
=> problem_name job_problem
,
53 problem
=> job_problem
,
55 result_text
=> job_result_text
,
56 size
=> sprintf ("%.2f KiB", job_filesize
() / 1024),
57 user
=> job_user
}, ($page - 1) * PAGE_SIZE
+ 1 .. $page == $pages ? jobcard
: $page * PAGE_SIZE
;
58 $htc->param(log => \
@log);