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

use Gruntmaster::Page;
use Gruntmaster::Page::Log;
use Gruntmaster::Data qw/contests jobcard problems/;

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

generate "index.html";
generate "learn.html";
generate "ct/index.html";
generate "ct/$_/index.thml" for contests;
generate "ct/$_/log/st.html" for contests;

for my $ct (undef, contests) {
	local $Gruntmaster::Data::contests = $ct;
	my $ctp = defined $ct ? "ct/$ct/" : '';
	generate "${ctp}log/index.html";
	my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE;
	generate "${ctp}log/$_.html" for 1 .. $pagecnt;
	generate "${ctp}log/job/$_.html" for 1 .. jobcard;
	generate "${ctp}submit.html";
	generate "${ctp}pb/index.html";
	generate "${ctp}pb/$_.html" for problems;
}