Add X-Forever

[gruntmaster-page.git] / gruntmaster-genallpages

diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages
index 5ba2bfdbc814b8d1e4bc98e86c5821821a428276..2d1709e7479724351e769ad1cf3645b7fd813cbb 100755 (executable)
--- a/gruntmaster-genallpages
+++ b/gruntmaster-genallpages
@@ -2,20 +2,30 @@
 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 $what";
-  Gruntmaster::Page::generate $what;
+  say STDERR "Generating page $what";
+  PUBLISH genpage => $what;
 }
 
-generate "${_}index.html" for '', 'ct/';
-generate "$_/index.html" for grep {-d} <ct/*>;
+generate "ct/index.html";
+generate "ct/$_/index.html" for contests;
 
-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/*>;
+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;
 }