gruntmaster-genallpages

   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/;
   7
   8 sub generate{
   9   my $what = shift;
  10   say STDERR "Generating $what";
  11   Gruntmaster::Page::generate $what;
  12 }
  13
  14 generate "index.html";
  15 generate "learn.html";
  16 generate "ct/index.html";
  17 generate "ct/$_/index.thml" for contests;
  18 generate "ct/$_/log/st.html" for contests;
  19
  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;
  30 }