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

Load CAS Storage if different from globalStorage

Browse Source
This commit is contained in:
Clément Oudot 2010-10-18 15:33:21 +00:00
parent 0d6e9acd6d
commit c8a3b80055
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,6 +215,8 @@ sub new {
$self->setDefaultValues();
# Test mandatory elements
# 1. Sessions backend
$self->abort( "Configuration error",
"You've to indicate a an Apache::Session storage module !" )
unless ( $self->{globalStorage} );
@ -222,14 +224,22 @@ sub new {
$self->abort( "Configuration error",
"Module " . $self->{globalStorage} . " not found in \@INC" )
if ($@);
# Use LemonLDAP::NG custom Apache::Session
$self->{globalStorageOptions}->{backend} = $self->{globalStorage};
$self->{globalStorage} = 'Lemonldap::NG::Common::Apache::Session';
if ( $self->{samlStorage} ne $self->{globalStorage} ) {
eval "require " . $self->{samlStorage};
# Load other storages if needed
foreach my $otherStorage ( $self->{samlStorage}, $self->{casStorage} ) {
if ( $otherStorage ne $self->{globalStorage} ) {
eval "require " . $otherStorage;
$self->abort( "Configuration error",
"Module " . $self->{samlStorage} . " not found in \@INC" )
"Module " . $otherStorage . " not found in \@INC" )
if ($@);
}
}
# 2. Domain
$self->abort( "Configuration error",
"You've to indicate a domain for cookies" )
unless ( $self->{domain} );