On 05/15/2013 10:34 PM, Benin Technologies wrote:
well, I must be missing something, because you are the second one to tell me that the binddn and bindpw are the two first parameters of the perl functions, but it doesn't seem to be the case.
binddn and bindpw are the first two parameters of the perl function called for binds.
like I said in one of my previous posts, I printed out the parameters of my search() function (in the SampleLDAP.pm file provided by openldap), like that :
those are the parameters passed to the perl function called for search. You won't find the parameters for bind in a search call. Your perl scripts need to store the bind parameters somewhere if you intend to use them also during searches, assuming you really need them; usually, one does not need the binddn and the password when performing searches.
p.
sub search { print "@_"; .....
I get : 1st parameter : SampleLDAP=HASH(0x8657f80) 2nd : the base DN 3rd : the search scope 4th : deref and so on... (filter, attributes...)
but no sign of the bindDN and password
Le 15/05/2013 20:38, Dieter Klünter a écrit :
Am Wed, 15 May 2013 17:56:59 +0100 schrieb Benin Technologiesbenintechnologies@yahoo.fr:
yes I'm using Net::LDAP in my back-perl to access a back-hdb server and it works, but I always use the same hardcorded $bindDN and $password (for example : $binddn = cn=admin,dc=my-domain and $password = secret)
But I'd like to use the same bindDN and the same password as the one that has been used to bind to the back-perl backend
Le 15/05/2013 17:14, Brian Reichert a écrit :> On Wed, May 15, 2013 at 03:42:44PM +0100, Benin Technologies wrote:
thanks, but I'm surprised, I don't see the bindDN and password in
the>> parameter list of the perl subs
This has nothing to to with OpenLDAP.
From perl, you fird get an LDAP object:
my $ldap = Net::LDAP->new($uri->as_string); then bind: my $mesg = $ldap->bind($bindDN, password=> $passwd); then search: $mesg = $ldap->search( @search_args ); once the bind has completed, nothing retains that information; it>
was only needed to bind.
I have no idea what the architecture of your project is, but you'd
be better off asking on one of the perl lists to work this stuff out.>
What about something like
my binddn = $ARGV[0]; my bindpw = $ARGV[1];
-Dieter