Archived
1
0
Fork 0

Fix LDAP search

This commit is contained in:
Mercier Pierre-Olivier 2013-11-15 12:40:29 +01:00
commit 2f6b3a9812
2 changed files with 8 additions and 5 deletions

View file

@ -189,6 +189,9 @@ sub get_dn($$@)
my $ldap = shift // ldap_connect();
my $dn = shift;
my $base = BASE_DN;
$dn = "$dn," . BASE_DN if ($dn !~ /$base$/);
my $mesg = $ldap->search( # search
base => "$dn",
filter => Net::LDAP::Filter->new("(objectClass=*)"),