]>
Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl -w | |
2 | use v5.14; | |
3 | ||
4 | use Gruntmaster::Page; | |
5 | use Gruntmaster::Page::Log; | |
6 | use Gruntmaster::Data qw/contests jobcard problems users PUBLISH/; | |
7 | ||
8 | sub generate{ | |
9 | my $what = shift; | |
10 | say STDERR "Generating page $what"; | |
11 | PUBLISH genpage => $what; | |
12 | } | |
13 | ||
14 | generate "ct/index.html"; | |
15 | generate "ct/$_/index.html" for contests; | |
16 | ||
17 | generate "us/index.html"; | |
18 | generate "us/$_.html" for users; | |
19 | ||
20 | for my $ct (undef, contests) { | |
21 | local $Gruntmaster::Data::contest = $ct; | |
22 | my $ctp = defined $ct ? "ct/$ct/" : ''; | |
23 | generate "${ctp}log/st.html"; | |
24 | generate "${ctp}log/index.html"; | |
25 | my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE; | |
26 | generate "${ctp}log/$_.html" for 1 .. $pagecnt; | |
27 | generate "${ctp}log/job/$_.html" for 1 .. jobcard; | |
28 | generate "${ctp}submit.html"; | |
29 | generate "${ctp}pb/index.html"; | |
30 | generate "${ctp}pb/$_.html" for problems; | |
31 | } |