Bug 33168: Prevent debhelper from renaming history.txt to changelog

[koha-ffzg.git] / app.psgi

diff --git a/app.psgi b/app.psgi
index 9a0d287..0824a3e 100644 (file)
--- a/app.psgi
+++ b/app.psgi
@@ -41,12 +41,24 @@ my $port2app = {
 };
 
 builder {
+    # This middleware decides which app to run (opac or intranet) depending on
+    # SERVER_PORT.  It must be run before ReverseProxy middleware which can
+    # modify SERVER_PORT
+    enable sub {
+        my $app = shift;
+        sub {
+            my $env = shift;
+            $env->{'koha.app'} = $port2app->{$env->{SERVER_PORT}} || $intranet;
+            return $app->($env);
+        }
+    };
+
     enable 'ReverseProxy';
     enable '+Koha::Middleware::SetEnv';
     enable '+Koha::Middleware::RealIP';
+
     sub {
         my $env = shift;
-        my $app = $port2app->{$env->{SERVER_PORT}} || $intranet;
-        $app->($env);
+        $env->{'koha.app'}->($env);
     };
 }