Add gruntmaster-genallpages and write Makefile.PL

[plack-app-gruntmaster.git] / gruntmaster-genallpages

diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages
new file mode 100755 (executable)
index 0000000..2a08af0
--- /dev/null
+++ b/gruntmaster-genallpages
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+use v5.14;
+
+use Gruntmaster::Page;
+
+sub generate{
+  my $what = shift;
+  say STDERR "Generating $what";
+  Gruntmaster::Page::generate $what;
+}
+
+generate "${_}index.html" for '', 'ct/';
+generate "$_/index.html" for grep {-d} <ct/*>;
+
+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/*>;
+}