[gruntmaster-page.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;
}
Commit	Line	Data
	1	#!/usr/bin/perl -w
	2	use v5.14;
	3
	4	use Gruntmaster::Page;
	5	use Gruntmaster::Page::Log;
	6	use Gruntmaster::Data qw/contests jobcard problems users PUBLISH/;
	7
	8	sub generate{
	9	my $what = shift;
	10	say STDERR "Generating page $what";
	11	PUBLISH genpage => $what;
	12	}
	13
	14	generate "ct/index.html";
	15	generate "ct/$_/index.html" for contests;
	16
	17	generate "us/index.html";
	18	generate "us/$_.html" for users;
	19
	20	for my $ct (undef, contests) {
	21	local $Gruntmaster::Data::contest = $ct;
	22	my $ctp = defined $ct ? "ct/$ct/" : '';
	23	generate "${ctp}log/st.html";
	24	generate "${ctp}log/index.html";
	25	my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE;
	26	generate "${ctp}log/$_.html" for 1 .. $pagecnt;
	27	generate "${ctp}log/job/$_.html" for 1 .. jobcard;
	28	generate "${ctp}submit.html";
	29	generate "${ctp}pb/index.html";
	30	generate "${ctp}pb/$_.html" for problems;
	31	}