X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-genallpages;h=2d1709e7479724351e769ad1cf3645b7fd813cbb;hb=a94f84535623ae0de44b63290aa4c8b1bf3e5eaa;hp=5ba2bfdbc814b8d1e4bc98e86c5821821a428276;hpb=5bbf0128012c09c78462ee49b874f968385b0978;p=plack-app-gruntmaster.git

diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages
index 5ba2bfd..2d1709e 100755
--- 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;
 }