]>
Commit | Line | Data |
---|---|---|
27eae7c3 MG |
1 | #!/usr/bin/perl -w |
2 | use v5.14; | |
3 | ||
4 | use Gruntmaster::Page; | |
5 | ||
6 | sub generate{ | |
7 | my $what = shift; | |
8 | say STDERR "Generating $what"; | |
9 | Gruntmaster::Page::generate $what; | |
10 | } | |
11 | ||
12 | generate "${_}index.html" for '', 'ct/'; | |
13 | generate "$_/index.html" for grep {-d} <ct/*>; | |
14 | ||
15 | for my $ct ('', <ct/*/>) { | |
16 | generate "${ct}log/index.html"; | |
5bbf0128 | 17 | generate "${ct}log/st.html" if length $ct; |
27eae7c3 MG |
18 | generate "${ct}pb/index.html"; |
19 | generate "${ct}submit.html"; | |
20 | generate "$_/index.html" for grep {-d} <${ct}log/*>, <${ct}pb/*>; | |
21 | } |