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