X-Forwarded-For Header in SOAP request sent by LL::NG::Handler::AuthBasic (#572)

This commit is contained in:
François-Xavier Deltombe 2013-01-03 19:56:44 +00:00
parent 27bbde63b6
commit a8382125c7

View File

@ -71,8 +71,17 @@ sub run ($$) {
unless ( $refLocalStorage and $datas = $refLocalStorage->get($id) ) {
# 2.3 Authentication by Lemonldap::NG::Portal using SOAP request
# Add client IP as X-Forwarded-For IP in SOAP request
my $xheader = lmHeaderIn( $apacheRequest, 'X-Forwarded-For' );
$xheader .= ", " if ($xheader);
$xheader .= $apacheRequest->connection->remote_ip;
my $soapHeaders =
HTTP::Headers->new( "X-Forwarded-For" => $xheader );
my $soap =
SOAP::Lite->proxy( $class->portal() )
SOAP::Lite->proxy( $class->portal(),
default_headers => $soapHeaders )
->uri('urn:Lemonldap::NG::Common::CGI::SOAPService');
$user = decode_base64($user);
( $user, $pass ) = ( $user =~ /^(.*?):(.*)$/ );