X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-genallpages;h=8d18eaa62a24aeca900ecc7d6cefa162505e1505;hb=1e683a56a8dccf4fbe9a94a9b3fc53f7fd02ad54;hp=2a08af01d1c9af6a7136a07a8f53bb7acd92e86c;hpb=27eae7c3dd4e0ef13f881fe6a2a2458fb1d21346;p=plack-app-gruntmaster.git

diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages
index 2a08af0..8d18eaa 100755
--- a/gruntmaster-genallpages
+++ b/gruntmaster-genallpages
@@ -2,19 +2,33 @@
 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 "index.html";
+generate "learn.html";
 
-for my $ct ('', <ct/*/>) {
-  generate "${ct}log/index.html";
-  generate "${ct}pb/index.html";
-  generate "${ct}submit.html";
-  generate "$_/index.html" for grep {-d} <${ct}log/*>, <${ct}pb/*>;
+generate "ct/index.html";
+generate "ct/$_/index.thml" for contests;
+generate "ct/$_/log/st.html" for contests;
+
+generate "us/index.html";
+generate "us/$_.html" for users;
+
+for my $ct (undef, contests) {
+	local $Gruntmaster::Data::contests = $ct;
+	my $ctp = defined $ct ? "ct/$ct/" : '';
+	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;
 }