]>
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 "index.html"; | |
15 | generate "learn.html"; | |
16 | ||
17 | generate "ct/index.html"; | |
18 | generate "ct/$_/index.thml" for contests; | |
19 | generate "ct/$_/log/st.html" for contests; | |
20 | ||
21 | generate "us/index.html"; | |
22 | generate "us/$_.html" for users; | |
23 | ||
24 | for my $ct (undef, contests) { | |
25 | local $Gruntmaster::Data::contests = $ct; | |
26 | my $ctp = defined $ct ? "ct/$ct/" : ''; | |
27 | generate "${ctp}log/index.html"; | |
28 | my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE; | |
29 | generate "${ctp}log/$_.html" for 1 .. $pagecnt; | |
30 | generate "${ctp}log/job/$_.html" for 1 .. jobcard; | |
31 | generate "${ctp}submit.html"; | |
32 | generate "${ctp}pb/index.html"; | |
33 | generate "${ctp}pb/$_.html" for problems; | |
34 | } |