Commit 50e88a68 authored by Clément Oudot's avatar Clément Oudot

Manage X-FORWARDED-FOR with multiple IP

parent de51daa6
......@@ -704,7 +704,10 @@ sub setSessionInfo {
# Store IP address and start time
$self->{sessionInfo}->{ipAddr} = $ENV{REMOTE_ADDR};
$self->{sessionInfo}->{xForwardedForAddr} = $ENV{HTTP_X_FORWARDED_FOR} || $ENV{REMOTE_ADDR};
# Extract client IP from X-FORWARDED-FOR header
my $xheader = $ENV{HTTP_X_FORWARDED_FOR};
$xheader =~ s/(.*?)(\,)+.*/$1/;
$self->{sessionInfo}->{xForwardedForAddr} = $xheader || $ENV{REMOTE_ADDR};
$self->{sessionInfo}->{startTime} =
&POSIX::strftime( "%Y%m%d%H%M%S", localtime() );
$self->lmLog("Store ipAddr: ".$self->{sessionInfo}->{ipAddr}." in session",'debug');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment