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 Technologies<[email protected]>:
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
--
Pierangelo Masarati
Associate Professor
Dipartimento di Ingegneria Aerospaziale
Politecnico di Milano
