Lines 51-61
sub call {
Link Here
|
51 |
my $self = shift; |
51 |
my $self = shift; |
52 |
my $env = shift; |
52 |
my $env = shift; |
53 |
|
53 |
|
54 |
if ( $env->{HTTP_X_FORWARDED_FOR} ) { |
54 |
my $ReverseProxyIpHeader = C4::Context->preference('ReverseProxyIpHeader'); |
|
|
55 |
if ( $ReverseProxyIpHeader && $env->{$ReverseProxyIpHeader} ) { |
55 |
my @trusted_proxy = $self->trusted_proxy ? @{ $self->trusted_proxy } : undef; |
56 |
my @trusted_proxy = $self->trusted_proxy ? @{ $self->trusted_proxy } : undef; |
56 |
|
57 |
|
57 |
if (@trusted_proxy) { |
58 |
if (@trusted_proxy) { |
58 |
my $addr = get_real_ip( $env->{REMOTE_ADDR}, $env->{HTTP_X_FORWARDED_FOR}, \@trusted_proxy ); |
59 |
my $addr = get_real_ip( $env->{REMOTE_ADDR}, $env->{$ReverseProxyIpHeader}, \@trusted_proxy ); |
59 |
$ENV{REMOTE_ADDR} = $addr; |
60 |
$ENV{REMOTE_ADDR} = $addr; |
60 |
$env->{REMOTE_ADDR} = $addr; |
61 |
$env->{REMOTE_ADDR} = $addr; |
61 |
} |
62 |
} |