X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=app.psgi;h=2f92d9ac68da1b13cded09d5a2fcaecd5541ad25;hb=a46fb222e6ce50102b7c61a95af435afc74f5e33;hp=b657a9abcd09cd6d0655faaf3be4ae93931d2504;hpb=d3200993969efcd4d9c0ce6a5666a012815ad2d5;p=plack-app-gruntmaster.git

diff --git a/app.psgi b/app.psgi
index b657a9a..2f92d9a 100644
--- a/app.psgi
+++ b/app.psgi
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -w
 use v5.14;
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
 
 use Apache2::Authen::Passphrase qw/pwcheck/;
 use Apache2::AuthzCaps qw/hascaps/;
@@ -49,6 +50,23 @@ sub require_admin {
 	}
 }
 
+sub mangle_request {
+	my $app = $_[0];
+	sub {
+		local *__ANON__ = 'mangle_request_middleware';
+		my $env = $_[0];
+		my ($number, $word) = (qr,(\d+),a, qr,(\w+),a);
+		for ($env->{PATH_INFO}) {
+			$env->{'gruntmaster.page'}    = $1 if s,/page/$number$,/,;
+			$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);
+	}
+}
+
 my %authen_cache;
 
 sub authenticate {
@@ -73,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, [], []] }};
@@ -84,6 +103,7 @@ builder {
 	enable 'Log4perl', category => 'plack';
 	enable \&require_admin;
 	enable_if \&some_auth_required, 'Auth::Basic', authenticator => \&authenticate, realm => 'Gruntmaster 6000';
+	enable \&mangle_request;
 	enable sub { my $app = $_[0]; sub { $_[0]->{'gruntmaster.dbic'} = $db; $app->($_[0]) } };
 	Plack::App::Gruntmaster->to_app
 }