Commit f702783e authored by Clément OUDOT's avatar Clément OUDOT

Use Lasso thin-sessions flag (#LEMONLDAP-1052)

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@5390 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 5c2666b0
......@@ -22,7 +22,7 @@ use URI; # Get metadata URL path
#inherits Lemonldap::NG::Common::Conf::SAML::Metadata protected service_metadata
our @ISA = (qw(Lemonldap::NG::Portal::_Browser));
our $VERSION = '1.4.4';
our $VERSION = '1.4.11';
our $samlCache;
our $initGlibDone;
......@@ -48,7 +48,8 @@ BEGIN {
eval 'use Lasso;';
if ($@) {
print STDERR "Lasso.pm not loaded: $@";
eval 'use constant LASSO => 0;use constant BADLASSO => 0;';
eval
'use constant LASSO => 0;use constant BADLASSO => 0;use constant LASSOTHINSESSIONS => 0';
}
else {
no strict 'subs';
......@@ -65,6 +66,15 @@ BEGIN {
else {
eval 'use constant BADLASSO => 0';
}
# Try to set thin-sessions flag
eval 'Lasso::set_flag("thin-sessions");';
if ($@) {
eval 'use constant LASSOTHINSESSIONS => 0';
}
else {
eval 'use constant LASSOTHINSESSIONS => 1';
}
}
}
......@@ -112,6 +122,13 @@ sub loadLasso {
return 0;
}
unless (LASSOTHINSESSIONS) {
$self->lmLog( 'Lasso thin-sessions flag could not be set', 'info' );
}
else {
$self->lmLog( 'Lasso thin-sessions flag set', 'debug' );
}
$initGlibDone = 1;
return 1;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment