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 PUBLISH/;
   7
   8 sub generate{
   9   my $what = shift;
  10   say STDERR "Generating page $what";
  11   PUBLISH genpage => $what;
  12 }
  13
  14 generate "ct/index.html";
  15 generate "ct/$_/index.html" for contests;
  16
  17 generate "us/index.html";
  18 generate "us/$_.html" for users;
  19
  20 for my $ct (undef, contests) {
  21         local $Gruntmaster::Data::contest = $ct;
  22         my $ctp = defined $ct ? "ct/$ct/" : '';
  23         generate "${ctp}log/st.html";
  24         generate "${ctp}log/index.html";
  25         my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE;
  26         generate "${ctp}log/$_.html" for 1 .. $pagecnt;
  27         generate "${ctp}log/job/$_.html" for 1 .. jobcard;
  28         generate "${ctp}submit.html";
  29         generate "${ctp}pb/index.html";
  30         generate "${ctp}pb/$_.html" for problems;
  31 }