Add extensions for GCCGO, GOLANG, HASKELL

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

diff --git a/lib/Gruntmaster/Page/Submit.pm b/lib/Gruntmaster/Page/Submit.pm
index 5f7d7279006a0d0804c04e28fd537537e6d07d8e..41184ab7307bf6951add3a29e48102cdb7dc58ef 100644 (file)
--- a/lib/Gruntmaster/Page/Submit.pm
+++ b/lib/Gruntmaster/Page/Submit.pm
@@ -5,6 +5,9 @@ use Gruntmaster::Page::Base;
 use constant FORMAT_EXTENSION => {
        C => 'c',
        CPP => 'cpp',
+       GCCGO => 'go',
+       GOLANG => 'go',
+       HASKELL => 'hs',
        MONO => 'cs',
        JAVA => 'java',
        PASCAL => 'pas',
@@ -43,7 +46,7 @@ sub generate{
 
        $contest //= '';
        #PUBLISH 'jobs', "$contest.$job";
-       [303, [Location => $r->path =~ s,/pb/\w+/submit$,/log/,r], ['']]
+       [303, [Location => ($contest ? "/ct/$contest/log/" : '/log/')], ['']]
 }
 
 1