Add X-Forever

[plack-app-gruntmaster.git] / gruntmaster-genallpages

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

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

sub generate{
  my $what = shift;
  say STDERR "Generating page $what";
  PUBLISH genpage => $what;
}

generate "ct/index.html";
generate "ct/$_/index.html" for contests;

generate "us/index.html";
generate "us/$_.html" for users;

for my $ct (undef, contests) {
	local $Gruntmaster::Data::contest = $ct;
	my $ctp = defined $ct ? "ct/$ct/" : '';
	generate "${ctp}log/st.html";
	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;
}