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 users/;
   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
  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 }