LEMONLDAP::NG : Version 0.8.3.1 : LDAP groups can now be available in $groups
This commit is contained in:
parent
e96f196718
commit
3103f4b3b9
|
@ -22,3 +22,4 @@ Order rules :
|
||||||
Documentation :
|
Documentation :
|
||||||
* Security document
|
* Security document
|
||||||
* apply.conf Howto
|
* apply.conf Howto
|
||||||
|
* ldapGroupBase
|
||||||
|
|
|
@ -4,6 +4,12 @@ lemonldap-ng (0.9) unstable; urgency=low
|
||||||
|
|
||||||
-- Xavier Guimard <x.guimard@free.fr> Sun, 14 Oct 2007 12:02:33 +0200
|
-- Xavier Guimard <x.guimard@free.fr> Sun, 14 Oct 2007 12:02:33 +0200
|
||||||
|
|
||||||
|
lemonldap-ng (0.8.3.1) unstable; urgency=low
|
||||||
|
|
||||||
|
* New feature: LDAP groups are now available in $groups
|
||||||
|
|
||||||
|
-- Xavier Guimard <x.guimard@free.fr> Wed, 07 Nov 2007 16:41:07 +0100
|
||||||
|
|
||||||
lemonldap-ng (0.8.3) unstable; urgency=high
|
lemonldap-ng (0.8.3) unstable; urgency=high
|
||||||
|
|
||||||
* Syntax errors in configuration are now displayed
|
* Syntax errors in configuration are now displayed
|
||||||
|
|
|
@ -1,9 +1,11 @@
|
||||||
This package was debianized by Xavier Guimard <x.guimard@free.fr> on
|
This package was debianized by Xavier Guimard <x.guimard@free.fr> on
|
||||||
Sun, 17 Dec 2006 17:46:47 +0100.
|
Sun, 17 Dec 2006 17:46:47 +0100.
|
||||||
|
|
||||||
|
It was downloaded from: http://forge.objectweb.org/project/showfiles.php?group_id=274
|
||||||
|
|
||||||
Copyright:
|
Copyright:
|
||||||
|
|
||||||
Copyright 2004, 2005, 2006 by Xavier Guimard
|
Copyright 2004, 2005, 2006, 2007 by Xavier Guimard
|
||||||
|
|
||||||
Licence:
|
Licence:
|
||||||
Lemonldap::NG is distributed under your choice under the GNU General Public
|
Lemonldap::NG is distributed under your choice under the GNU General Public
|
||||||
|
|
|
@ -1,5 +1,8 @@
|
||||||
Revision history for Perl extension Lemonldap::NG::Portal.
|
Revision history for Perl extension Lemonldap::NG::Portal.
|
||||||
|
|
||||||
|
0.8.1 Wed Nov 7 16:44:46 2007
|
||||||
|
- Ldap groups can now be available in $groups
|
||||||
|
|
||||||
0.8 Mon Oct 15 7:58:25 2007
|
0.8 Mon Oct 15 7:58:25 2007
|
||||||
- Integration of the Liberty Alliance module issued from FederID project
|
- Integration of the Liberty Alliance module issued from FederID project
|
||||||
|
|
||||||
|
|
|
@ -86,6 +86,19 @@ sub setGroups {
|
||||||
$groups .= "$_ ";
|
$groups .= "$_ ";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
if ( $self->{ldapGroupBase} ) {
|
||||||
|
my $mesg = $self->{ldap}->search(
|
||||||
|
base => $self->{ldapGroupBase},
|
||||||
|
filter => "(|(member=" . $self->{dn} . ")(uniqueMember=" . $self->{dn} . "))",
|
||||||
|
attrs => ["cn"],
|
||||||
|
);
|
||||||
|
if ( $mesg->code() == 0 ) {
|
||||||
|
foreach my $entry ($mesg->all_entries) {
|
||||||
|
my @values = $entry->get_value("cn");
|
||||||
|
$groups .= $values[0] . " ";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
$self->{sessionInfo}->{groups} = $groups;
|
$self->{sessionInfo}->{groups} = $groups;
|
||||||
PE_OK;
|
PE_OK;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue