Add contest/multispace support

[gruntmaster-page.git] / lib / Gruntmaster / Page.pm

diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm
index 5c63f642174ff4046837cfe57aac8df05ee71ad3..d014ac18fa8064ca71d15db4c24edc3e356e6d11 100644 (file)
--- a/lib/Gruntmaster/Page.pm
+++ b/lib/Gruntmaster/Page.pm
@@ -32,7 +32,7 @@ my %header_templates = (
 <div id="title"><span class="i">i</span><span class="Eval">Eval</span></div>
 <div id="subtitle">TITLE_GOES_HERE</div>
 
-<nav><ul><li><a href="/">Home</a><li><a href="/log/">View job log</a><li><a href="/submit.var">Submit job</a><li><a href="/pb/">Problem list</a></ul></nav>
+<nav><ul><li><a href="/">Home</a><li><a href="/log/">View job log</a><li><a href="/submit.var">Submit job</a><li><a href="/pb/">Problem list</a><li><a href="/ct/">Contests</a></ul></nav>
 
 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) = @_;