Re: strong bind fails

On Jan 17, 2009, at 10:01 AM, Dieter Kluenter wrote:
> Hi,
> I'am using
> perl-5.10.0
> Net::LDAP version 0.39
> Authen::SASL version 2.12
>
> My script does not initiate a strong bind, while a strong bind with
> ldapsearch succeeds, what is wrong with my script? Or with perl-5.10,
> as am not sure but I think this script has been working with perl-5.8
>
> My script:
> ,----[ perl script ]
> | $ldap = Net::LDAP->new("$host",
> |                        async => 1,
> |                        version => 3
> |                       ) or die "$@";
> |
> | $sasl = Authen::SASL->new(
> |         mechanism => 'DIGEST-MD5',
> |         debug => 4,
> |         callback => {
> |                  user => 'dieter',
> |                  pass => 'secret'
> |  }
> | ) or die "$@";
> | $msg = $ldap->bind(sasl => $sasl);
> | $msg->code && $msg->error;

You do not say how far your script gets, but if bind fails that is not  
going to tell you. did you mean $msg->code && die $msg->error;

> | $result = $ldap->search(
> |         base => $basedn,
> |         scope => $scope,
> |         filter => $filter,
> |         attrs => ["$attrs[0]","$attrs[1]","$attrs[2]","$attrs[3]" ]
> |         );
> | ....
> `----
>
> The output of perl debugging shows

perl debug is not very useful in this case. Try adding $ldap->debug(1);

Graham.