From 6c0577b226f1b89aaf6eeafe262532ebe4f073e6 Mon Sep 17 00:00:00 2001
From: Petr Rockai <me@mornfall.net>
Date: Fri, 29 Mar 2013 22:57:32 +0100
Subject: [PATCH] Respect X-Request-Base header coming from a frontend proxy.
---
deps.nix | 1 +
src/lib/Hydra.pm | 5 +++++
2 files changed, 6 insertions(+)
diff --git a/deps.nix b/deps.nix
index 9a931f87..6d36d997 100644
--- a/deps.nix
+++ b/deps.nix
@@ -13,6 +13,7 @@ with pkgs;
perlPackages.CatalystViewJSON
perlPackages.CatalystViewTT
perlPackages.CatalystXScriptServerStarman
+ perlPackages.CatalystTraitForRequestProxyBase
perlPackages.CryptRandPasswd
perlPackages.DBDPg
perlPackages.DBDSQLite
diff --git a/src/lib/Hydra.pm b/src/lib/Hydra.pm
index 4f42b0f0..732d56d3 100644
--- a/src/lib/Hydra.pm
+++ b/src/lib/Hydra.pm
@@ -3,6 +3,7 @@ package Hydra;
use strict;
use warnings;
use parent 'Catalyst';
+use Moose;
use Hydra::Model::DB;
use Catalyst::Runtime '5.70';
use Catalyst qw/ConfigLoader
@@ -16,6 +17,8 @@ use Catalyst qw/ConfigLoader
AccessLog
Captcha/,
'-Log=warn,fatal,error';
+use CatalystX::RoleApplicator;
+
our $VERSION = '0.01';
@@ -77,6 +80,8 @@ __PACKAGE__->config(
},
);
+__PACKAGE__->apply_request_class_roles(qw/Catalyst::TraitFor::Request::ProxyBase/);
+
__PACKAGE__->setup();
1;