X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FLog.pm;h=6848bcfc8dbf141f7e8f97c4d2483f928fffe89c;hb=1ad43ccc6aec756b3f2cc47b9da57ba67de29165;hp=5a2b4c6a91d36cb13a846479f91f6baedb79ff05;hpb=3da9c3c228106c819530a0b8e4c646981e6f71c9;p=gruntmaster-page.git diff --git a/lib/Gruntmaster/Page/Log.pm b/lib/Gruntmaster/Page/Log.pm index 5a2b4c6..6848bcf 100644 --- a/lib/Gruntmaster/Page/Log.pm +++ b/lib/Gruntmaster/Page/Log.pm @@ -1,61 +1,35 @@ package Gruntmaster::Page::Log; -use 5.014000; -use strict; -use warnings; -use parent qw/Exporter/; -our @EXPORT_OK = qw/generate/; -our $VERSION = '0.001'; +use Gruntmaster::Page::Base log => 'Job log'; -use constant TITLE => 'Job log'; use constant PAGE_SIZE => 10; -use constant FORMAT_EXTENSION => { - CPP => 'cpp', -}; +sub _generate{ + my ($self, $htc, $lang, $env, $ct, $page) = @_; + debug $env => "language is '$lang', contest is '$ct' and page is '$page'"; + local $Gruntmaster::Data::contest = $ct if $ct; -use HTML::Template::Compiled; -use POSIX qw/strftime/; -use Gruntmaster::Page::Common qw/header footer/; -use Gruntmaster::Data qw/job_date job_file problem_name job_private job_problem job_result job_result_text job_user/; + my $pages = POSIX::floor (jobcard / PAGE_SIZE); + $pages ||= 1; + $page ||= $pages; -my %templates = ( - en => <<'HTML', -
ID | Problem | Date | Size | User | Result - |
---|---|---|---|---|---|
data-private> | |