X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage.pm;fp=lib%2FGruntmaster%2FPage.pm;h=d014ac18fa8064ca71d15db4c24edc3e356e6d11;hb=fe78f0c128c35e68e65850b02057997bad6717fe;hp=5c63f642174ff4046837cfe57aac8df05ee71ad3;hpb=42546e6c1b709dc4c8d8e7048becc14278b6cdf0;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm index 5c63f64..d014ac1 100644 --- a/lib/Gruntmaster/Page.pm +++ b/lib/Gruntmaster/Page.pm @@ -32,7 +32,7 @@ my %header_templates = (
iEval
TITLE_GOES_HERE
- + HTML ); @@ -65,12 +65,19 @@ sub declaregen{ push @generators, [$regex, $gensub]; } -declaregen Index => qr'^index$'; -declaregen Log => qr'^log/index$'; -declaregen 'Log::Entry' => qr'^log/.*/index$'; -declaregen Submit => qr'^submit$'; -declaregen Pb => qr'^pb/index$'; -declaregen 'Pb::Entry' => qr'^pb/.*/index$'; +{ + my $component = qr'[^/]+'; + my $contest = qr,(?:ct/$component/)?,; + declaregen Index => qr,^index$,; + declaregen Ct => qr,^ct/index$,; + declaregen 'Ct::Entry' => qr,^ct/$component/index$,; + #declaregen St => qr,^ct/$component/st/index$,; + declaregen Log => qr,^${contest}log/index$,; + declaregen 'Log::Entry' => qr,^${contest}log/$component/index$,; + declaregen Submit => qr,^${contest}submit$,; + declaregen Pb => qr,^${contest}pb/index$,; + declaregen 'Pb::Entry' => qr,^${contest}pb/$component/index$,; +} sub generate{ my ($path) = @_;