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

Fix LDAP groups session store (#479)

Browse Source
This commit is contained in:
Clément Oudot 2012-06-20 08:41:31 +00:00
parent 96a605b286
commit 3660dc24e2
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,7 +63,7 @@ use Digest::MD5;
#inherits Apache::Session #inherits Apache::Session
#link Lemonldap::NG::Common::Apache::Session::SOAP protected globalStorage #link Lemonldap::NG::Common::Apache::Session::SOAP protected globalStorage
our $VERSION = '1.2.0'; our $VERSION = '1.2.1';
use base qw(Lemonldap::NG::Common::CGI Exporter); use base qw(Lemonldap::NG::Common::CGI Exporter);
our @ISA; our @ISA;
@ -1981,13 +1981,27 @@ sub setMacros {
# * store all groups name that the user match in $self->{sessionInfo}->{groups} # * store all groups name that the user match in $self->{sessionInfo}->{groups}
#@return Lemonldap::NG::Portal constant #@return Lemonldap::NG::Portal constant
sub setLocalGroups { sub setLocalGroups {
my $self = shift; my $self = shift;
my $groups; my $groups = "";
while ( my ( $group, $expr ) = each %{ $self->{groups} } ) { while ( my ( $group, $expr ) = each %{ $self->{groups} } ) {
$groups .= $group . $self->{multiValuesSeparator} $groups .= $group . $self->{multiValuesSeparator}
if ( $self->safe->reval($expr) ); if ( $self->safe->reval($expr) );
} }
$self->{sessionInfo}->{groups} = $groups;
# Join local and UserDB groups
if ($groups) {
$self->{sessionInfo}->{groups} .=
$self->{multiValuesSeparator} . $groups;
}
# Clear values separator at begin or end
if ( $self->{sessionInfo}->{groups} ) {
$self->{sessionInfo}->{groups} =~
s/^\Q$self->{multiValuesSeparator}\E//;
$self->{sessionInfo}->{groups} =~
s/\Q$self->{multiValuesSeparator}\E$//;
}
PE_OK; PE_OK;
} }