]> iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Log/Entry.pm
2c4aa3acb5cfc1bec533ddf6e673a08e5c80e642
[gruntmaster-page.git] / lib / Gruntmaster / Page / Log / Entry.pm
1 package Gruntmaster::Page::Log::Entry;
2
3 use 5.014000;
4 use strict;
5 use warnings;
6 use Gruntmaster::Page::Base log_entry => 'Job <tmpl_var id>';
7 our @ISA = qw/Gruntmaster::Page::Base/;
8 our $VERSION = '0.001';
9
10 use constant TEMPLATES => {
11 en => <<'HTML',
12 Compiler output:
13 <pre><tmpl_var errors></pre>
14
15 Results:
16 <table border>
17 <thead>
18 <tr><th>Test number<th>Result<th>Time
19 <tbody>
20 <tmpl_loop tests><tr><td><tmpl_var id><td class="r<tmpl_var result>"><tmpl_var result_text><td><tmpl_var time>
21 </tmpl_loop>
22 </table>
23 HTML
24 };
25
26 sub _generate{
27 my ($self, $htc, $path, $lang) = @_;
28
29 $path =~ m,^(?:ct/([^/]+)/)?log/job/([^/]+)\.html$,;
30 local $Gruntmaster::Data::contest = $1;
31 my $id = $2;
32
33 my @tests = ();
34
35 eval {
36 @tests = map {
37 $_->{time} = sprintf "%.4fs", $_->{time};
38 $_
39 } @{job_results $id};
40 };
41
42 $htc->param(id => $id);
43 $htc->param(tests => \@tests);
44 $htc->param(errors => job_errors $id)
45 }
46
47 1
This page took 0.042096 seconds and 3 git commands to generate.