#!/usr/bin/perl -w
use v5.14;

use Gruntmaster::Page;

sub generate{
  my $what = shift;
  say STDERR "Generating $what";
  Gruntmaster::Page::generate $what;
}

generate "learn.html";
generate "${_}index.html" for '', 'ct/';
generate "$_/index.html" for grep {-d} <ct/*>;

for my $ct ('', <ct/*/>) {
  generate "${ct}log/index.html";
  generate "${ct}log/st.html" if length $ct;
  generate "${ct}pb/index.html";
  generate "${ct}submit.html";
  generate "$_/index.html" for grep {-d} <${ct}log/*>, <${ct}pb/*>;
}