Add article support

[gruntmaster-page.git] / gruntmaster-genallpages

diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages
index efa61fb18cd87fdfeab93084222fcddeb64584b7..2d1709e7479724351e769ad1cf3645b7fd813cbb 100755 (executable)
--- a/gruntmaster-genallpages
+++ b/gruntmaster-genallpages
@@ -3,27 +3,24 @@ use v5.14;
 
 use Gruntmaster::Page;
 use Gruntmaster::Page::Log;
-use Gruntmaster::Data qw/contests jobcard problems users/;
+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";
-generate "learn.html";
-
 generate "ct/index.html";
-generate "ct/$_/index.thml" for contests;
-generate "ct/$_/log/st.html" for contests;
+generate "ct/$_/index.html" for contests;
 
 generate "us/index.html";
 generate "us/$_.html" for users;
 
 for my $ct (undef, contests) {
-       local $Gruntmaster::Data::contests = $ct;
+       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;