package Gantry::Utils::PerlbalFixup;
use strict;
sub handler {
my $r = shift;
$r->connection->remote_ip( $r->header_in('X-Forwarded-For') )
if $r->header_in('X-Forwarded-For') ne "";
return 1;
}
1;
=head1 NAME
Gantry::Utils::PerlbalFixup - This module will set the client ip
=head1 SYNOPSIS
#httpd.conf or some such
#can be any Perl*Handler
PerlInitHandler Gantry::Utils::PerlbalFixup
=head1 DESCRIPTION
This module will set the proper client ip using the X-Forwarded-For header
which is set by Perlbal and other proxy methods. This module should be loaded
at the PerlInitHandler or PerlReadParseHeaders phase during the request life-
cycle
=head1 METHODS
=head2 handler
The apache fixup handler. Stores the value of the X-Forwarded-For header
in the remote_ip of the request's connection, so apps behind a perlbal proxy
can tell who their client is.
=head1 SEE ALSO
mod_perl(3)
=head1 AUTHOR
Tim Keefer <tkeefer@gmail.com>