[gruntmaster-page.git] / gruntmaster-genallpages

#!/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}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/*>;
}
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	}