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

Somes fixes

Browse Source
This commit is contained in:
Xavier Guimard 2010-02-08 10:16:28 +00:00
parent fad774f41b
commit be93f8dc47
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@ BEGIN {
eval "use constant GLIB => 0";
}
else {
eval "use constant GLIB => 0";
eval "use constant GLIB => 1";
}
# Load Lasso.pm
@ -112,6 +112,8 @@ sub checkLassoError {
return 1;
}
our $_samlCache;
## @method Lasso::Server createServer(string metadata, string private_key, string private_key_password, string certificate)
# Load service metadata and create Lasso::Server object
# @param string metadata
@ -121,14 +123,18 @@ sub checkLassoError {
# @return Lasso::Server object
sub createServer {
my ( $self, $metadata, $private_key, $private_key_password, $certificate) = splice @_;
my $server;
my $server = $_samlCache->{$metadata};
return $server if($server);
eval {
$server = Lasso::Server::new_from_buffers( $metadata, $private_key,
$private_key_password, $certificate );
};
return unless $self->checkLassoError($@);
if($@) {
$self->checkLassoError($@);
return;
}
return $server;
}
@ -187,11 +193,17 @@ sub getOrganizationName {
# Get provider from server
eval { $provider = Lasso::Server::get_provider( $server, $idp ); };
return unless $self->checkLassoError($@);
if($@) {
$self->checkLassoError($@);
return;
}
# Get organization node
eval { $node = Lasso::Provider::get_organization($provider); };
return unless $self->checkLassoError($@);
if($@) {
$self->checkLassoError($@);
return;
}
# Extract organization name
my $xs = XML::Simple->new();