Fix LDAP search
This commit is contained in:
parent
984cb050fa
commit
2f6b3a9812
2 changed files with 8 additions and 5 deletions
|
|
@ -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=*)"),
|
||||
|
|
|
|||
Reference in a new issue