]>
Commit | Line | Data |
---|---|---|
27eae7c3 MG |
1 | #!/usr/bin/perl -w |
2 | use v5.14; | |
3 | ||
4 | use Gruntmaster::Page; | |
5a505a29 | 5 | use Gruntmaster::Page::Log; |
4aa8ba86 | 6 | use Gruntmaster::Data qw/contests jobcard problems users/; |
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"; |
4aa8ba86 | 16 | |
5a505a29 MG |
17 | generate "ct/index.html"; |
18 | generate "ct/$_/index.thml" for contests; | |
19 | generate "ct/$_/log/st.html" for contests; | |
27eae7c3 | 20 | |
4aa8ba86 MG |
21 | generate "us/index.html"; |
22 | generate "us/$_.html" for users; | |
23 | ||
5a505a29 MG |
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; | |
27eae7c3 | 34 | } |