perl-ldap-dev

new version of perl-ldap-0.20

[Karl-Heinz R. <kar...@co...>]

just to keep track of changes:

Anonymous bind does no more work with my old version (top), but I had to change
the
code (see below).

#-------------------------------------------------------------
# sub ldapbind returns ldap-object OLD
#-------------------------------------------------------------
sub f_ldapbind {
my ($cref,$vref) = @_;
my ($ldap,$ldap_ref,$msg,$msg_ref,$dn,$uid,$pwd);
my %cookie = %$cref;
my %v = %$vref;
$uid = $cookie{$v{'authuid'}} || "";
$pwd = $cookie{$v{'authpwd'}} || "";
$dn = "uid=" . $uid . "," . $cookie{$v{'base'}};

$ldap = new Net::LDAP($cookie{$v{'servername'}}, port=>$cookie{$v{'serverport'}}
);
$msg = $ldap->bind( $dn ,
                    password => $pwd,
                    version => 3        );
$ldap_ref = \$ldap;
$msg_ref = \$msg;

return ($msg_ref, $ldap_ref);
}
#--------------------------------------------------------------------------------------------------------------------

#-------------------------------------------------------------
# sub ldapbind returns ldap-object NEW
#-------------------------------------------------------------
sub f_ldapbind {
my ($cref,$vref) = @_;
my ($ldap,$ldap_ref,$msg,$msg_ref,$dn,$uid,$pwd);
my %cookie = %$cref;
my %v = %$vref;
$uid = $cookie{$v{'authuid'}} || "";
$pwd = $cookie{$v{'authpwd'}} || "";
$dn = "uid=" . $uid . "," . $cookie{$v{'base'}};

$ldap = new Net::LDAP($cookie{$v{'servername'}},
port=>$cookie{$v{'serverport'}});

if ($uid and $pwd) {
        $msg = $ldap->bind( $dn ,
                            password => $pwd,
                            version => 3        );
} else {
        $msg = $ldap->bind;
}
$ldap_ref = \$ldap;
$msg_ref = \$msg;

return ($msg_ref, $ldap_ref);
}

Re: [Fwd] Does it work with Windows 2000

[Clif H. <cl...@di...>]

> 
> ----- Forwarded message from "DENOUEL Jacques" <jde...@no...> -----
> 
> From: "DENOUEL Jacques" <jde...@no...>
> To: <gb...@po...>
> Subject: Does it work with Windows 2000
> Date: Mon, 7 Aug 2000 22:58:39 +0200
> X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)
> 
> Hi, 
> 
> I would like to search on my Windows 2000 Ldap server some informations ..
> 
> 
> How to do this.
> Where is mozilla::LDAP::conn.pm  ?
> 
> 
> Please help me.
> 

Well it is not in perl-ldap module.

You will find in the Netscape PERLdap module.

You can get the code from; http://www.mozilla.org/directory/

Regards,

Clif Harden           INTERNET:  c-h...@ti...

[Fwd] Does it work with Windows 2000

[Graham B. <gb...@po...>]

----- Forwarded message from "DENOUEL Jacques" <jde...@no...> -----

From: "DENOUEL Jacques" <jde...@no...>
To: <gb...@po...>
Subject: Does it work with Windows 2000
Date: Mon, 7 Aug 2000 22:58:39 +0200
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2910.0)

Hi, 

I would like to search on my Windows 2000 Ldap server some informations ..


How to do this.
Where is mozilla::LDAP::conn.pm  ?


Please help me.





----- End forwarded message -----

Re: Antwort: Re: new version of perl-ldap-0.20

[Graham B. <gb...@po...>]

On Tue, Aug 08, 2000 at 04:08:59PM +0200, Karl-Heinz Rastofer wrote:
> I must admit I read the documentation after I sent the note.
> 
> I think because of problems distinguishing an empty list from a nonexisting
> attribute the
> new version is to prefer.But that's the opinion from a newcomer to Perl.

Well we will wait to see what anyone else says.

Graham.

Antwort: Re: new version of perl-ldap-0.20

[Karl-Heinz R. <kar...@co...>]

I must admit I read the documentation after I sent the note.

I think because of problems distinguishing an empty list from a nonexisting
attribute the
new version is to prefer.But that's the opinion from a newcomer to Perl.

mfg  / regards

Karl-Heinz Rastofer
-------------------------------------------------
ICA GmbH
Büttnerstraße 21, Raum 502
D-30165 Hannover
423 - Produktions- und Kompetenz-Team,
Communication Services
Tel. +49-511-938 - 25691 / Fax - 825691
notes - Karl-Heinz Rastofer/VB/DE/CONTI/DE
internet - mailto:kar...@no...

Re: new version of perl-ldap-0.20

[Graham B. <gb...@po...>]

On Tue, Aug 08, 2000 at 02:32:24PM +0200, Karl-Heinz Rastofer wrote:
> I just installed the new version.
> 
> $entry->get(attribute) now gives back a reference to an array and no more the
> value.
> $entry->dn gives back the dn .
> 
> (AIX 4.3 / Perl 5.00503)
> 
> Has there changed something ?

Yes, I was waiting for someone to report that, and I am surprised
it took so long.

The RELEASE_NOTES do state

* Net::LDAP::Entry->get now always returns a scalar result as documented.

The fact is ->get was never documented to return list, only a reference
to a list.

In 0.20 you can now ask for all options to an attribute so

  $entry->get('cn', alloptions => 1);

will return a hash reference which may look like

  {  'en' => "value for cn;en", 'fr' => "value for cn;fr" };

It was in adding this I noticed the list return for get.

The problem with the list return is that if an attribute exists,
but is empty you cannot tell because you get the empty list, just
like you do if the attribute does not exist.

However I can see how people might like the list return so for single valued
entries you get

  my $cn = $entry->get('cn');

as opposed to

  my $cn = $entry->get('cn')->[0];

I am open to suggestions. The only thing I can think of is to revert to
what was there, allow the hash return in a list context too and add and
exists method to check if an attribute exists.

Comments.

Graham.

new version of perl-ldap-0.20

[Karl-Heinz R. <kar...@co...>]

I just installed the new version.

$entry->get(attribute) now gives back a reference to an array and no more the
value.
$entry->dn gives back the dn .

(AIX 4.3 / Perl 5.00503)

Has there changed something ?

mfg  / regards
Karl-Heinz Rastofer
-------------------------------------------------
ICA GmbH
Büttnerstraße 21, Raum 502
D-30165 Hannover
423 - Produktions- und Kompetenz-Team,
Communication Services
Tel. +49-511-938 - 25691 / Fax - 825691
notes - Karl-Heinz Rastofer/VB/DE/CONTI/DE
internet - mailto:kar...@no...

Re: getting LDAP_ALREADY_EXISTS when trying to modify

[Graham B. <gb...@po...>]

On Tue, Aug 08, 2000 at 08:47:59AM +0100, Chris Ridd wrote:
> > % cat ldif.final
> > dn: uid=sally, ou=People, dc=mydomain, dc=com
> > changetype: modify
> > replace: managerchain
> > managerchain: joe lisa john bill larry
> 
> The LDIF looks OK to me.

Did you read the LDIF with ->read or ->read_cmd ?

You should have read it with read_cmd

Graham.

Re: getting LDAP_ALREADY_EXISTS when trying to modify

[Chris R. <chr...@me...>]

Giulia Carcione <gi...@be...> wrote:
> i'm using Net::LDAP::LDIF and Net::LDAP::Entry to attempt to modify
> directory entries, while bound to the directory as directory manager.
>
> i get LDAP_ALREADY_EXISTS, which i don't understand--
> isn't it true that an update using changetype: modify will overwrite the
> existing value for the attribute?

LDAP_ALREADY_EXISTS is actually the LDAP error entryAlreadyExists, which 
you would only get back if you tried to add an entry which was already 
there. It is not an error you would expect back if you were modifying some 
attributes - you'd get back something like noSuchAttribute 
(LDAP_NO_SUCH_ATTRIBUTE) or constraintViolation (LDAP_CONSTRAINT_VIOLATION) 
or attributeOrValueExists (LDAP_TYPE_OR_VALUE_EXISTS) if something went 
wrong during a modify. (This is not an exhaustive list of errors :-)

Try setting debug => 12 when calling 'new', to see the protocol between the 
client and the server, and please post the output. (Delete any passwords 
etc from the output...)

> % cat ldif.final
> dn: uid=sally, ou=People, dc=mydomain, dc=com
> changetype: modify
> replace: managerchain
> managerchain: joe lisa john bill larry
>
>
> thanks,
>
> giulia
>

The LDIF looks OK to me.

Cheers,

Chris

Re: Authnetldap

[wiLL <wol...@sk...>]

Thanks !

At 03:49 AM 8/8/00 , Mark Wilcox wrote:
>It sounds like you gave an incorrect password. The password is normally
>stored in the userpassword attribute, though check with your server
>documentation to make sure.
>
>Mark
>
>On Wed, 2 Aug 2000, wiLL wrote:
>
>> 
>> I'm now testing authnetldap to authenticate with my ldap server ... and I
>> get the ff. errors whenever I enter a username and passwd for the
>> particular restricted directory ... The username  exists as an entry to my
>> ldap tree ... I'm also binding a passwd which is an attribute of the
>> username - is this correct ?
>> 
>> here is the error log:
>> 
>> [Wed Aug  2 14:39:38 2000] [error] access to /casper/index.html failed for
>> 208.150.136.1, reason: user wolivete: LDAP Connection Failed: 48
>> 
>> 
>> -------------------------------------
>> wiLL S. Olivete Jr.
>> wol...@sk...
>> pgp key id : 0x2D85D7BF
>> office voice: 63.74.443.5657
>> mobile: 0917.972.6384
>> pager: ec 963576 
>> 
>> 
> 

-------------------------------------
wiLL S. Olivete Jr.
wol...@sk...
pgp key id : 0x2D85D7BF
office voice: 63.74.443.5657
mobile: 0917.972.6384
pager: ec 963576 

getting LDAP_ALREADY_EXISTS when trying to modify

[Giulia C. <gi...@be...>]

i'm using Net::LDAP::LDIF and Net::LDAP::Entry to attempt to modify 
directory entries, while bound to the directory as directory manager.

i get LDAP_ALREADY_EXISTS, which i don't understand--
isn't it true that an update using changetype: modify will overwrite the 
existing value for the attribute?
 
i'd really appreciate feedback on the following:

##################################
$debug = 1;

$ldap = Net::LDAP->new('ldapserver.mydomain.com') or die "$@";

$br = $ldap->bind ( #bind to directory with privs
                dn => 'cn=Special Someone',
                password => "blahblah"
                ) || die $@;

$bind_result = Net::LDAP::Util::ldap_error_name($br->code);
print "Result of attempt to bind was $bind_result \n" if $debug;

$ldif_final = "ldif.final";
$updateldif = Net::LDAP::LDIF->new("$ldif_final", "r") or die "$@";
        while( $finalentry = $updateldif->read() ) { 
        $final_dn = $finalentry->dn;
        @final_attrs = $finalentry->attributes;
        print "final dn of entry is $final_dn\n" if $debug;
        print "final attributes of entry are @final_attrs\n" if $debug;

        $ur = $finalentry->update( $ldap ); #update directory server
        $update_result = Net::LDAP::Util::ldap_error_name($ur->code);
        print "The result of the modify of $final_dn is: $update_result \n" if
$debug;

        }

$ldap->unbind();
##################################




% cat ldif.final
dn: uid=sally, ou=People, dc=mydomain, dc=com
changetype: modify
replace: managerchain
managerchain: joe lisa john bill larry


thanks,

giulia

Re: Authnetldap

[Mark W. <mew...@un...>]

It sounds like you gave an incorrect password. The password is normally
stored in the userpassword attribute, though check with your server
documentation to make sure.

Mark

On Wed, 2 Aug 2000, wiLL wrote:

> 
> I'm now testing authnetldap to authenticate with my ldap server ... and I
> get the ff. errors whenever I enter a username and passwd for the
> particular restricted directory ... The username  exists as an entry to my
> ldap tree ... I'm also binding a passwd which is an attribute of the
> username - is this correct ?
> 
> here is the error log:
> 
> [Wed Aug  2 14:39:38 2000] [error] access to /casper/index.html failed for
> 208.150.136.1, reason: user wolivete: LDAP Connection Failed: 48
> 
> 
> -------------------------------------
> wiLL S. Olivete Jr.
> wol...@sk...
> pgp key id : 0x2D85D7BF
> office voice: 63.74.443.5657
> mobile: 0917.972.6384
> pager: ec 963576 
> 
> 

Re: Retrieving DN

[Chris R. <chr...@me...>]

Graham Barr <gb...@po...> wrote:
>>    $ldap->unbind;
>
> Not needed and some servers may not like it.

That's not the whole story. Unbind itself is required by the RFCs, but the 
sequence of unbind followed by another bind *on the same connection* is 
something that causes problems on some servers. (Some servers treat the 
unbind as a request to close the TCP connection.)

If you're going to bind twice on the same connection, don't unbind first.

Cheers,

Chris

Re: Retrieving DN

[Graham B. <gb...@po...>]

On Mon, Aug 07, 2000 at 09:12:12AM -0700, Howard, Michael J wrote:
> Hello, I'm new to LDAP.  I am trying to use it for authentication.  How do I
> retrieve the dn using a uid?  Here is the code I'm using.  I can successfully
> bind anonymously and perform a search on the LDAP, however, I am not sure how to
> retrieve the DN.  Could someone point me in the right direction? 
> 
>    $ldap = Net::LDAP->new('[LDAP SERVER]') or die "$@";
> 
>    $mesg = $ldap->bind;
>  
>    $base = "o=[my company], c=[country]";
> 
>    my $result = $ldap->search(
>        base => "$base",
>        scope => "sub",
>        filter => "uid = $user", 
>    );
> 
>    my $dn = $result->dn();

$result is a container for all results. As there can be more than
one entry returned by a search (although you would hope not in your case)

So you need to do

  $entry = $result->entry(0);
  my $dn = $entry->dn();

Although don't forget to check the ->code for $result to ensure
that your search was OK.

>    $ldap->unbind;

Not needed and some servers may not like it.


>    if ( $result->count != 0 ) {

     if ( $dn ) {

>      $mesg = $ldap->bind( 
>            dn => "$dn",
>            password => "$sent_pw"
>      );
>      
>      $ldap->unbind;
> 
>      if ($mesg->code) {
>        return "Failed - User Entered Incorrect password";
>      }
>      else {
>        return 0;
>      } 
>    }
>    else {
>      return "Failed - You do not exist in the LDAP Server";
>    }

Re: Retrieving DN

[Chris R. <chr...@me...>]

"Howard, Michael J" <Mic...@pn...> wrote:
> Hello, I'm new to LDAP.  I am trying to use it for authentication.  How
> do I retrieve the dn using a uid?  Here is the code I'm using.  I can
> successfully bind anonymously and perform a search on the LDAP, however,
> I am not sure how to retrieve the DN.  Could someone point me in the
> right direction?

The object returned by search doesn't contain the search results itself - 
you have to ask it for the entries one by one (using ->entry(index)) or all 
of them at once (using ->entries())


>    $ldap = Net::LDAP->new('[LDAP SERVER]') or die "$@";
>
>    $mesg = $ldap->bind;
>
>    $base = "o=[my company], c=[country]";
>
>    my $result = $ldap->search(
>        base => "$base",
>        scope => "sub",
>        filter => "uid = $user",
>    );
>
>    my $dn = $result->dn();

     die "No unique match" if $result->count() != 1;

     my $dn = $result->entry(0)->dn();

As you probably ought to check count before selecting an entry to read.

Cheers,

Chris

Retrieving DN

[Howard, M. J <Mic...@pn...>]

Hello, I'm new to LDAP.  I am trying to use it for authentication.  How do I
retrieve the dn using a uid?  Here is the code I'm using.  I can successfully
bind anonymously and perform a search on the LDAP, however, I am not sure how to
retrieve the DN.  Could someone point me in the right direction? 

   $ldap = Net::LDAP->new('[LDAP SERVER]') or die "$@";

   $mesg = $ldap->bind;
 
   $base = "o=[my company], c=[country]";

   my $result = $ldap->search(
       base => "$base",
       scope => "sub",
       filter => "uid = $user", 
   );

   my $dn = $result->dn();

   $ldap->unbind;

   if ( $result->count != 0 ) {

     $mesg = $ldap->bind( 
           dn => "$dn",
           password => "$sent_pw"
     );
     
     $ldap->unbind;

     if ($mesg->code) {
       return "Failed - User Entered Incorrect password";
     }
     else {
       return 0;
     } 
   }
   else {
     return "Failed - You do not exist in the LDAP Server";
   }

Michael Howard
Information Sciences and Engineering
Pacific Northwest National Laboratory
(509) 375-6981                                    ISB2 528

Re: Authnetldap

[Graham B. <gb...@po...>]

Mark has been away, but I am sure he can help you when he catches up
with things, but.

Error code 49 is LDAP_INVALID_CREDENTIALS which would seem to mean
the DN/password passed are incorrect.

Graham.

On Thu, Aug 03, 2000 at 11:39:13AM +0800, wiLL wrote:
> 
> I'm now testing authnetldap to authenticate with my ldap server ... and I
> get the ff. errors whenever I enter a username and passwd for the
> particular restricted directory ... The username  exists as an entry to my
> ldap tree ... I'm also binding a passwd which is an attribute of the
> username - is this correct ?
> 
> here is the error log:
> 
> [Wed Aug  2 14:39:38 2000] [error] access to /casper/index.html failed for
> 208.150.136.1, reason: user wolivete: LDAP Connection Failed: 49
> 
> 
> -------------------------------------
> wiLL S. Olivete Jr.
> wol...@sk...
> pgp key id : 0x2D85D7BF
> office voice: 63.74.443.5657
> mobile: 0917.972.6384
> pager: ec 963576 
> 
> 

[Fwd] CPAN Upload: G/GB/GBARR/perl-ldap-0.20.tar.gz

[Graham B. <gb...@po...>]

It's on it's way to CPAN now. CVS on source forge is uptodate
and the dist is also avaliable from

  http://www.pobox.com/~gbarr/cpan/perl-ldap-0.20.tar.gz

Have fun
Graham.

----- Forwarded message from PAUSE <up...@p1...> -----

Date: Thu, 3 Aug 2000 19:07:53 +0200
Subject: CPAN Upload: G/GB/GBARR/perl-ldap-0.20.tar.gz
From: PAUSE <up...@p1...>
To: "Graham Barr" <gb...@po...>, cpa...@pe...

The uploaded file

    perl-ldap-0.20.tar.gz

has entered CPAN as

  file: $CPAN/authors/id/G/GB/GBARR/perl-ldap-0.20.tar.gz
  size: 130885 bytes
   md5: cd979c96dc3790c24341574646ea98f1

No action is required on your part
Request entered by: GBARR (Graham Barr)
Request entered on: Thu, 03 Aug 2000 17:07:46 GMT
Request completed:  Thu, 03 Aug 2000 17:07:53 GMT

	Virtually Yours,
	Id: paused,v 1.68 1999/10/22 14:39:12 k Exp k 


----- End forwarded message -----

Re: cvs problem

[Graham B. <gb...@po...>]

You don't need to enter anonymous for the password, just press enter.

Graham.

On Thu, Aug 03, 2000 at 05:09:37PM +0200, Arvid Requate wrote:
> Hi,
> 
> I seem to be to stupid to check out the current code via command line:
> 
> shell$ cvs -d:pserver:ano...@cv...:/cvsroot/perl-ldap
> login
> 
> with password anonymous fails with:
> cvs [login aborted]: authorization failed: server cvs.perl-ldap.sourceforge.net
> rejected access
> 
> sorry to bother you but I couldn't find anything in the archives.
> 
>  Arvid
> 
> 
> 

cvs problem

[Arvid R. <ar...@Te...>]

Hi,

I seem to be to stupid to check out the current code via command line:

shell$ cvs -d:pserver:ano...@cv...:/cvsroot/perl-ldap
login

with password anonymous fails with:
cvs [login aborted]: authorization failed: server cvs.perl-ldap.sourceforge.net
rejected access

sorry to bother you but I couldn't find anything in the archives.

 Arvid

Re: Simultaneous Authentications?

[Graham B. <gb...@po...>]

Can you post some sample code.

Graham.

On Wed, Aug 02, 2000 at 05:47:59PM -0400, Eric Nichols wrote:
> I'm trying to authenticate to 2 different servers at the same time.
> 
> I can bind and authenticate to the first , but can only bind to the second.
> The script hangs when it trys to perform the second authentication.  I am
> using a different variable for each bind ($source & $dest).
> Help?
> Thanks
> Eric
> 
> 

Re: Simultaneous Authentications?

[Chris R. <chr...@me...>]

Eric Nichols <eni...@cp...> wrote:
>
> New LDAP Object to make TCP/IP connection (1)
> Authenticate (1)
> New LDAP Object to make TCP/IP connection (2)
> Authenticate (2)
>
> It hangs at authenticate 2.
>
> Yes the server supports simultaneous auths/binds etc.  (Active Directory).
> Thanks
> Eric

Well my code snippet works here (when I fixed the typo LDAp -> LDAP :-) 
against a non-MS directory (:-) so either there's something wrong in your 
code (can you post it?) or the server's rejecting stuff, or you're using a 
problematic version of perl (5.6.0 with threads)

If you set debug => 12 in each of the 2 LDAP objects, what gets printed out?

Is there anything in the server logs?

Cheers,

Chris

Re: Simultaneous Authentications?

[Eric N. <eni...@cp...>]

Actually you've amost got the code  Here's some pseudo:

New LDAP Object to make TCP/IP connection (1)
Authenticate (1)
New LDAP Object to make TCP/IP connection (2)
Authenticate (2)

It hangs at authenticate 2.

Yes the server supports simultaneous auths/binds etc.  (Active Directory).
Thanks
Eric

----- Original Message -----
From: "Chris Ridd" <chr...@me...>
To: "Eric Nichols" <eni...@cp...>; "perl-ldap-dev"
<per...@li...>
Sent: Thursday, August 03, 2000 5:00 AM
Subject: Re: Simultaneous Authentications?


> Eric Nichols <eni...@cp...> wrote:
>
> > I'm trying to authenticate to 2 different servers at the same time.
> >
> > I can bind and authenticate to the first , but can only bind to the
> > second. The script hangs when it trys to perform the second
> > authentication.  I am using a different variable for each bind ($source
&
> > $dest).
> > Help?
> > Thanks
> > Eric
> >
> >
>
> Hm, in LDAP binding *is* authenticating.
>
> The Net::LDAP::new method just creates a (TCP) connection to the LDAP
> server, it doesn't send any LDAP operations.
>
> The Net::LDAP::bind method does the authentication, using LDAP operations.
>
> Given the rest of your description then, you've effectively created 2 LDAP
> objects (via new), have bound using one object, but binding using the
> second  object doesn't work.
>
> Something like this, in other words:
>
> my ($ldap1,$ldap2,$res1,$res2,$code1,$code2);
> $ldap1 = new Net::LDAP('server1') or die;
> $ldap2 = new Net::LDAp('server2') or die;
> $res1 = $ldap1->bind(dn => 'some dn', password => 'some pwd') or die;
> $code1 = $res1->code;
> die "Binding to server1 failed ($code1)\n" if $code1;
> $res2 = $ldap2->bind(dn => 'other dn', password => 'other pwd') or die;
> $code2 = $res2->code;
> die "Binding to server2 failed ($code2)\n" if $code2;
>
> Which line does it hang at?
>
> Do you know if your LDAP server can support multiple binds from the same
> address?
>
> Cheers,
>
> Chris
>
>

Re: Simultaneous Authentications?

[Chris R. <chr...@me...>]

Eric Nichols <eni...@cp...> wrote:

> I'm trying to authenticate to 2 different servers at the same time.
>
> I can bind and authenticate to the first , but can only bind to the
> second. The script hangs when it trys to perform the second
> authentication.  I am using a different variable for each bind ($source &
> $dest).
> Help?
> Thanks
> Eric
>
>

Hm, in LDAP binding *is* authenticating.

The Net::LDAP::new method just creates a (TCP) connection to the LDAP 
server, it doesn't send any LDAP operations.

The Net::LDAP::bind method does the authentication, using LDAP operations.

Given the rest of your description then, you've effectively created 2 LDAP 
objects (via new), have bound using one object, but binding using the 
second  object doesn't work.

Something like this, in other words:

my ($ldap1,$ldap2,$res1,$res2,$code1,$code2);
$ldap1 = new Net::LDAP('server1') or die;
$ldap2 = new Net::LDAp('server2') or die;
$res1 = $ldap1->bind(dn => 'some dn', password => 'some pwd') or die;
$code1 = $res1->code;
die "Binding to server1 failed ($code1)\n" if $code1;
$res2 = $ldap2->bind(dn => 'other dn', password => 'other pwd') or die;
$code2 = $res2->code;
die "Binding to server2 failed ($code2)\n" if $code2;

Which line does it hang at?

Do you know if your LDAP server can support multiple binds from the same 
address?

Cheers,

Chris

Re: Authnetldap

[wiLL <wol...@sk...>]

I'm now testing authnetldap to authenticate with my ldap server ... and I
get the ff. errors whenever I enter a username and passwd for the
particular restricted directory ... The username  exists as an entry to my
ldap tree ... I'm also binding a passwd which is an attribute of the
username - is this correct ?

here is the error log:

[Wed Aug  2 14:39:38 2000] [error] access to /casper/index.html failed for
208.150.136.1, reason: user wolivete: LDAP Connection Failed: 49


-------------------------------------
wiLL S. Olivete Jr.
wol...@sk...
pgp key id : 0x2D85D7BF
office voice: 63.74.443.5657
mobile: 0917.972.6384
pager: ec 963576