]>
Commit | Line | Data |
---|---|---|
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 |