LDAP attributes are not explicitely requested
The LDAP search get all standards attributes instead of just exported attributes. As a consequence, operational attributes are never collected.
Patch is simple:
--- lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm 2011-01-25 17:37:09.000000000 +0100
+++ /usr/local/share/perl/5.10.0/Lemonldap/NG/Portal/UserDBLDAP.pm 2011-05-05 14:45:24.000000000 +0200
@@ -61,15 +61,12 @@
unless ( $self->ldap ) {
return PE_LDAPCONNECTFAILED;
}
+ my @attrs = ref( $self->{exportedVars} ) ? values( %{ $self->{exportedVars} } ) : ();
my $mesg = $self->ldap->search(
base => $self->{ldapBase},
scope => 'sub',
filter => $self->{LDAPFilter},
- (
- ref( $self->{exportedVars} )
- ? ( attrs => values( %{ $self->{exportedVars} } ) )
- : ()
- ),
+ attrs => \@attrs,
);
$self->lmLog(
'LDAP Search with base: '