epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Various old fixes

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-12 12:58:10 +02:00
commit cdb5874aab
2 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
ACU/LDAP.pm
View file

@ -338,10 +338,16 @@ sub get_rights($)
scope => "sub"
);
if ($mesg->code != 0) { die $mesg->error; }
if ($mesg->count != 1) { die "User $login not found or multiple presence"; }
for my $r ($mesg->entry(0)->get_value('intraRight')) {
push @rights, Right->new($r);
for my $entry ($mesg->entries) {
for my $r ($entry->get_value('intraRight')) {
if ($r =~ /^!(.*)$/) {
@rights = grep { ! /^\Q$r\E$/ } @rights;
}
else {
push @rights, Right->new($r);
}
}
}
@ -354,8 +360,10 @@ sub get_rights($)
if ($mesg->code != 0) { die $mesg->error; }
if ($mesg->count != 1) { die "User $login not found or multiple presence"; }
for my $r ($mesg->entry(0)->get_value('intraRight')) {
push @rights, Right->new($r);
for my $entry ($mesg->entries) {
for my $r ($entry->get_value('intraRight')) {
push @rights, Right->new($r);
}
}