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