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

Relay in progress...

Browse Source
This commit is contained in:
Xavier Guimard 2009-09-23 13:35:19 +00:00
parent 48ac5bd591
commit 947ee7f7c6
3 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthRelay.pm
View File

@ -40,17 +40,27 @@ that delegates authentication to a remote Lemonldap::NG portal.
=head1 SYNOPSIS
use Lemonldap::NG::Portal::Simple;
my $portal = new Lemonldap::NG::Portal::Simple(
use Lemonldap::NG::Portal::SharedConf;
my $portal = new Lemonldap::NG::Portal::SharedConf(
# AUTHENTICATION PART
# REQUIRED PARAMETERS
authentication => 'Relay',
userDB => 'Relay',
soapAuthService => 'https://remote.lemonldap-ng.com/',
# OTHER PARAMETERS
# remoteCookieName (default: same name)
remoteCookieName => 'lemonldap',
# soapSessionService (default ${soapAuthService}index.pl/sessions)
soapSessionService =>
'https://remote.lemonldap-ng.com/index.pl/sessions',
);
=head1 DESCRIPTION
Authentication module for Lemonldap::NG portal that forward credentials to a
remote portal using SOAP.
remote Lemonldap::NGportal using SOAP request. Note that the remote portal must
accept SOAP requests ("Soap=>1").
=head1 SEE ALSO

7
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -502,7 +502,8 @@ sub _deleteSession {
my ( $self, $h ) = @_;
if ( my $id2 = $h->{_httpSession} ) {
my $h2 = $self->getApacheSession($id2);
tied(%$h2)->delete();
eval {tied(%$h2)->delete()};
$self->lmLog( $@, 'error' ) if ($@);
# Delete cookie
push @{ $self->{cookie} },
@ -516,7 +517,9 @@ sub _deleteSession {
@_,
);
}
my $r = tied(%$h)->delete();
my $r;
eval {$r = tied(%$h)->delete()};
$self->lmLog( $@, 'error' ) if ($@);
# Delete cookie
push @{ $self->{cookie} },

4
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Relay.pm
View File

@ -81,8 +81,10 @@ sub setSessionInfo {
"Unable to get attributes for $self->{user} " );
return PE_ERROR;
}
foreach ( keys %{ $res->{attributes} } ) {
$self->{sessionInfo}->{$_} ||= $res->{attributes}->{$_}
foreach ( keys %{ $res->{attributes} } );
unless(/^_/);
}
$self->{_setSessionInfoDone}++;
PE_OK;
}