X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FPb%2FEntry.pm;fp=lib%2FGruntmaster%2FPage%2FPb%2FEntry.pm;h=0000000000000000000000000000000000000000;hb=d3200993969efcd4d9c0ce6a5666a012815ad2d5;hp=12f5e747bebc7452d25060b7a84c739204120b8b;hpb=99f0c4ecf3eecfff5752cfb1e137fbe4aeb8722d;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page/Pb/Entry.pm b/lib/Gruntmaster/Page/Pb/Entry.pm deleted file mode 100644 index 12f5e74..0000000 --- a/lib/Gruntmaster/Page/Pb/Entry.pm +++ /dev/null @@ -1,35 +0,0 @@ -package Gruntmaster::Page::Pb::Entry; - -use Gruntmaster::Page::Base pb_entry => ''; - -use constant FORMATS => [qw/C CPP JAVA PERL PYTHON/]; - -sub _generate{ - my ($self, $htc, $lang, $env, $contest, $id) = @_; - debug $env => "language is '$lang', contest is '$contest', id is '$id'"; - my $user = $env->{REMOTE_USER}; - if ($contest && $user && time >= contest_start $contest) { - local $Gruntmaster::Data::contest = $contest; - mark_open $id, $user; - debug $env => "Marking problem $id of contest $contest open by $user"; - } - - $htc->param(cansubmit => 1); - if ($contest) { - $htc->param(cansubmit => time <= contest_end $contest); - $htc->param(contest => $contest); - } - $htc->param(formats => FORMATS); - $htc->param(id => $id); - local $Gruntmaster::Data::contest = $contest if $contest; - $htc->param(name => problem_name $id); - $htc->param(author => problem_author $id); - $htc->param(owner => problem_owner $id); - $htc->param(owner_name => do{ local $Gruntmaster::Data::contest; user_name $htc->param('owner')} ); - $htc->param(statement => problem_statement $id); -} - -sub vary { 'Authorization' } -sub max_age { 600 } - -1