hi,
i have a big problem with the following perl code:
use strict;
use warnings;
use Net::LDAP;
my $ldapserver = shift or die usage();
my $uid = shift or die usage();
my $passwd = shift or die usage();
my $basedn = "ou=People,dc=domain,dc=com";
my $binddn = "uid=$uid,$basedn";
my $ldap;
#-- connect and bind with uid and passwd to ldap server --#
print "connecting to LDAP Server on host $ldapserver.....";
eval {
$ldap = Net::LDAP->new($ldapserver);
};
die "[FAILED]\n$@" if $@;
print "[OK]\nusing bindn $binddn to authenticate.....";
my $bind_mesg = $ldap->bind( $binddn, password => $passwd, version => 3 );
if ($bind_mesg->code()) {
die "[FAILED]\nLDAP Binding Error: " . $bind_mesg->error() . "\n";
} else { print "[OK]\n"; }
...
...
...
...
...
# and so on..
the output of that script is as follows:
connecting to LDAP Server on host xxxxx.....[OK]
using bindn uid=test,ou=People,dc=domain,dc=com to authenticate.....[FAILED]
LDAP Binding Error: Invalid credentials
facts around:
the OpenLDAP 2.1.4 server is in use correctly: it replaces nis with pam and nss and is
therefore "heavy" tested.
the same problem appears with Apache::AuthNetLDAP 0.19. i get an log entry in
error_log with code 49...
uid, passwd and dc's are chosen correctly!
can anybody help me please!
regards
t
