Re: ldap->bind not sending passwords

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

On Fri, May 26, 2000 at 02:31:30PM +0100, Graham Barr wrote:
> On Fri, May 26, 2000 at 01:06:40PM +0100, Chris Ridd wrote:
> > I am of the opinion that unbind leaves the TCP connection open, and it 
> > looks like Simon is too. Kurt was of the opinion that unbind closed the 
> > TCP connection.
> 
> If you look at the packet trace there was no unbind() sent to the
> server. The question is why was no password sent in the second
> bind packet.

And the answer is

  while(my($param,$type) = each %ptype) {
    if (exists $arg->{$param}) {
      ($auth_type,$passwd) = ($type,$arg->{$param});
      last;
    }
  }

the iterator for each %ptype is not reset and the last causes the loop
to exit early.

Adding

  keys %ptype

before the while should fix it. (perldoc -f each will explain)

Thanks to Simon for investigating this and nudging my memory :)

Graham.