+++ /dev/null
-#!/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;
-}