Re: strong bind fails

[Graham Barr]

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.