Fix some bugs

[gruntmaster-page.git] / app.psgi

diff --git a/app.psgi b/app.psgi
index 2e3f6405c7b7848c5ee1e8ffde433430f92e2260..2f92d9ac68da1b13cded09d5a2fcaecd5541ad25 100644 (file)
--- a/app.psgi
+++ b/app.psgi
@@ -61,6 +61,7 @@ sub mangle_request {
                        $env->{'gruntmaster.problem'} = $1 if s,^/pb/$word/,/,;
                        $env->{'gruntmaster.contest'} = $1 if s,^/ct/$word/,/,;
                        $env->{'gruntmaster.user'}    = $1 if s,^/us/$word/,/,;
+                       $env->{'gruntmaster.page'}  //= -1 if m,^/log/$,;
                }
                $app->($env);
        }
@@ -90,6 +91,7 @@ sub authenticate {
 
 Log::Log4perl->init('log.conf');
 my $access_logger = Log::Log4perl->get_logger('access');
+$ENV{DBIC_NULLABLE_KEY_NOWARN} = 1;
 
 builder {
        enable_if { $_[0]->{PATH_INFO} eq '/ok' } sub { sub{ [200, [], []] }};