[Date Prev][Date Next] [Chronological] [Thread] [Top]

Re: getting bindDN in perl script



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<benintechnologies@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







--
Pierangelo Masarati
Associate Professor
Dipartimento di Ingegneria Aerospaziale
Politecnico di Milano