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

Continuation of commit r2833 (#596)

Browse Source 
so that a group rule may involve another, previously computed group
This commit is contained in:
François-Xavier Deltombe 2013-05-21 09:34:01 +00:00
parent 3909d708d1
commit 3c81802f3c
1 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2061,8 +2061,9 @@ sub setSessionInfo {
#@return Lemonldap::NG::Portal constant
sub setMacros {
my $self = shift;
foreach (sort keys %{ $self->{macros} }) {
$self->{sessionInfo}->{$_} = $self->safe->reval( $self->{macros}->{$_} );
foreach ( sort keys %{ $self->{macros} } ) {
$self->{sessionInfo}->{$_} =
$self->safe->reval( $self->{macros}->{$_} );
}
PE_OK;
}
@ -2072,27 +2073,16 @@ sub setMacros {
# * store all groups name that the user match in $self->{sessionInfo}->{groups}
#@return Lemonldap::NG::Portal constant
sub setLocalGroups {
my $self = shift;
my $groups = "";
foreach (sort keys %{ $self->{groups} } ) {
$groups .= $_ . $self->{multiValuesSeparator}
my $self = shift;
foreach ( sort keys %{ $self->{groups} } ) {
$self->{sessionInfo}->{groups} .= $self->{multiValuesSeparator} . $_
if ( $self->safe->reval( $self->{groups}->{$_} ) );
}
# Join local and UserDB groups
if ($groups) {
$self->{sessionInfo}->{groups} .=
$self->{multiValuesSeparator} . $groups;
}
# Clear values separator at begin or end
# Clear values separator at the beginning
if ( $self->{sessionInfo}->{groups} ) {
$self->{sessionInfo}->{groups} =~
s/^\Q$self->{multiValuesSeparator}\E//;
$self->{sessionInfo}->{groups} =~
s/\Q$self->{multiValuesSeparator}\E$//;
}
PE_OK;
}