dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Specific query string method to be compatible with buggy ADFS URL encoding (#677)

Browse Source
This commit is contained in:
Clément Oudot 2014-01-29 15:48:44 +00:00
parent 270254d007
commit 23627081c8
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SAML.pm
View File

@ -435,7 +435,7 @@ sub checkMessage {
if ( $self->param('SAMLResponse') ) {
# Response in query string
$response = $self->query_string();
$response = $self->getQueryString();
$self->lmLog( "HTTP-REDIRECT: SAML Response $response",
'debug' );
@ -444,7 +444,7 @@ sub checkMessage {
if ( $self->param('SAMLRequest') ) {
# Request in query string
$request = $self->query_string();
$request = $self->getQueryString();
$self->lmLog( "HTTP-REDIRECT: SAML Request $request", 'debug' );
}
@ -452,7 +452,7 @@ sub checkMessage {
if ( $self->param('SAMLart') ) {
# Artifact in query string
$artifact = $self->query_string();
$artifact = $self->getQueryString();
$self->lmLog( "HTTP-REDIRECT: SAML Artifact $artifact",
'debug' );
@ -2989,6 +2989,26 @@ sub sendSLOErrorResponse {
return $self->sendLogoutResponseToServiceProvider( $logout, $method );
}
## @method string getQueryString()
# Return query string with or without CGI query_string() method
# @return query string
sub getQueryString {
my ($self) = splice @_;
my $query_string;
if ( $self->{samlUseQueryStringSpecific} ) {
my @pairs = split( /&/, $ENV{'QUERY_STRING'} );
$query_string = join( ';', @pairs );
}
else {
$query_string = $self->query_string();
}
return $query_string;
}
1;
__END__
@ -3346,6 +3366,10 @@ Find and delete SAML sessions bounded to a primary session
Send an SLO error response
=head2 getQueryString
Get query string with or without CGI query_string() method
=head1 SEE ALSO
L<Lemonldap::NG::Portal::AuthSAML>, L<Lemonldap::NG::Portal::UserDBSAML>