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

diff --git a/app.psgi b/app.psgi
index b657a9a..2e3f640 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,22 @@ 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/,/,;
+		}
+		$app->($env);
+	}
+}
+
 my %authen_cache;
 
 sub authenticate {
@@ -84,6 +101,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
 }