fix IP redirection by pulling the X-Real-IP header

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
index c0533db..b2dda54 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
@@ -58,7 +58,7 @@ sub handler {
     my $cgi = CGI->new( $apache );
     my $hostname = $cgi->server_name();
     my $proto = ($cgi->https) ? 'https' : 'http';
-    my $user_ip = $ENV{REMOTE_ADDR};
+    my $user_ip = $apache->headers_in->{'X-Real-IP'};
 
     # Extract the port number from the user requested URL.
     my $port = '';