perl-ldap shouldn't overwrite $sasl->user in bind()

[Jean C. D. <del...@u-...>]

Hello,

Please have a look to :

   http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=3D114555

The Debian's reportbug was an easy way to report the bug and I though
the bug report will be forwarded upstream, it's not the case so I
forward it myself ;-).

Here it is. Thanks in advance for any comment.

Package: libnet-ldap-perl
Version: 0.24-2
Severity: wishlist
Tags: patch

Hello, my sasldb doesn't contain dn's but uid's, so I tryed mutltiple
method, read many doc's (didn't find so much :() and finnally read the
source.=20

In order to have something like :

 $sasl =3D Authen::SASL->new('CRAM-MD5',=20
                           password =3D> $pas,=20
                           user =3D> $adm);
 $DN=3D"uid=3D$adm,dc=3Du-picardie,dc=3Dfr";
 $mesg =3D $ldap->bind( $DN, sasl =3D> $sasl, version =3D> 3);

to works I had to apply the following patch ;

diff -u libnet-ldap-perl-0.24/lib/Net/LDAP.pm /usr/share/perl5/Net/LDAP.p=
m
--- libnet-ldap-perl-0.24/lib/Net/LDAP.pm       Tue Jul 17 00:41:40 2001
+++ /usr/share/perl5/Net/LDAP.pm        Fri Oct  5 15:11:34 2001
@@ -233,7 +233,7 @@
=20
     my $sasl =3D $passwd;
     # Tell the SASL object our user identifier
-    $sasl->user("dn: $dn");
+    $sasl->user("dn: $dn") if (! $sasl->user);
=20
     $passwd =3D {
       mechanism   =3D> $sasl->name,



--=20
Jean Charles Del=E9pine - =C9quipe R=E9seaux T=E9l=E9coms - Universit=E9 =
de Picardie