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 "${_}index.html" for '', 'ct/';
  13 generate "$_/index.html" for grep {-d} <ct/*>;
  14
  15 for my $ct ('', <ct/*/>) {
  16   generate "${ct}log/index.html";
  17   generate "${ct}pb/index.html";
  18   generate "${ct}submit.html";
  19   generate "$_/index.html" for grep {-d} <${ct}log/*>, <${ct}pb/*>;
  20 }