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