gruntmaster-genallpages

   1 #!/usr/bin/perl -w
   2 use v5.14;
   3
   4 use Gruntmaster::Page;
   5
   6 sub generate{
   7   my $what = shift;
   8   say STDERR "Generating $what";
   9   Gruntmaster::Page::generate $what;
  10 }
  11
  12 generate "learn.html";
  13 generate "${_}index.html" for '', 'ct/';
  14 generate "$_/index.html" for grep {-d} <ct/*>;
  15
  16 for my $ct ('', <ct/*/>) {
  17   generate "${ct}log/index.html";
  18   generate "${ct}log/st.html" if length $ct;
  19   generate "${ct}pb/index.html";
  20   generate "${ct}submit.html";
  21   generate "$_/index.html" for grep {-d} <${ct}log/*>, <${ct}pb/*>;
  22 }