[Catalyst][Engine][CGI][perl]

Catalyst::Engine::CGIに「using_frontend_proxy」 とかいう設定があることについさっき気づいた。

124   PROXY_CHECK:
125     {
126         unless ( $c->config->{using_frontend_proxy} ) {
127             last PROXY_CHECK if $host !~ /localhost|127.0.0.1/;
128             last PROXY_CHECK if $c->config->{ignore_frontend_proxy};
129         }
130         last PROXY_CHECK unless $ENV{HTTP_X_FORWARDED_HOST};
131
132         $host = $ENV{HTTP_X_FORWARDED_HOST};
133
134         # backend could be on any port, so
135         # assume frontend is on the default port
136         $port = $c->request->secure ? 443 : 80;
137     }

http://search.cpan.org/perldoc?Catalyst::Engine::CGI