paragkalra has asked for the wisdom of the Perl Monks concerning the following question:

Hello All

Just installed LDAP server (OpenLDAP) on Ubuntu with following base root dn settings: cn=admin,dc=nodomian

Added few organisation units to it using command line utility 'ldapadd' and few using ldap browser - 'phpldapadmin'

Now I felt like playing with Perl to connect to LDAP server and wrote following script:

$ldap_host = "localhost"; $admin = "admin"; $domain = "nodomain"; $dn = "cn=$admin,o=$domain"; $password = "mypassword"; $ldap = Net::LDAP->new($ldap_host) or die "Could not establish connect +ion to LDAP server - $ldap_host \n"; $ldap->bind($dn,password=>$password) or die "Could not bind to LDAP se +rver - $ldap_host \n";

If I set wrong '$ldap_host', it shouts saying - 'could not bind to LDAP server'

However if I set wrong '$password' or wrong '$dn' scripts still executes successfully and doesn't shout...

Where am I going wrong...?

Replies are listed 'Best First'.
Re: First LDAP-Perl Script.
by paragkalra (Scribe) on Sep 20, 2009 at 17:45 UTC

    I think I got what was going wrong...If I am not wrong 'bind' method uses authentication hence credentials only while making any changes (add/modify/delete) to ldap server.

    So if I will use wrong credentials to modify ldap database then it will surely shout...