lib/Gruntmaster/Page/St.pm

   1 package Gruntmaster::Page::St;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base st => 'Standings';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 use constant => TEMPLATES => {
  11         en => <<'HTML',
  12 <table border>
  13 <thead>
  14 <tr><th>Username<tmpl_loop problems><th><tmpl_var _></tmpl_loop><th>Total
  15 <tbody>
  16 <tmpl_loop st><tr><td><tmpl_var user>
  17 <tmpl_loop scores><td><tmpl_var _>
  18 </tmpl_loop><td><tmpl_var score>
  19 </tmpl_loop>
  20 </table>
  21 HTML
  22 };
  23
  24 sub _generate{
  25         my ($self, $htc, $path, $lang) = @_;
  26
  27         local $Gruntmaster::Data::contest = ($path =~ m,^ct/([^/]+)/,)[0];
  28
  29         my @problems = sort problems;
  30         my %scores;
  31         for (1 .. jobcard) {
  32                 if (job_result_text =~ m/^(\d+)/) {
  33                         $scores{job_user()}{job_problem()} = $1;
  34                 } else {
  35                         $scores{job_user()}{job_problem()} = job_result() ? 0 : 100;
  36                 }
  37         }
  38
  39         my @st = sort { $b->{score} <=> $a->{score} } map {
  40                 my $user = $_;
  41                 +{
  42                         user => $user,
  43                         score => sum (values $scores{$user}),
  44                         scores => [map { $scores{$user}{$_} // '-'} @problems],
  45                 }
  46         } keys %scores;
  47         $htc->param(problems => \@problems);
  48         $htc->param(st => \@st);
  49 }
  50
  51 1