Re: Connecting apache via perl-ldap to Netscapes Directory Server...

[<ma...@mj...>]

You don't have to write this yourself, I've already done it for you ;).
Check out my AuthNetLDAP module either on CPAN or at 
http://courses.unt.edu/mewilcox/

I also have an AuthzNetLDAP module which can handle group level 
access.

Mark

On 7 Feb 01, at 11:32, Dworatzek Damian wrote:


> ...authentication does not work.
> 
> 
> 
> Hi,
> 
> I am facing a problem with perl-ldap. 
> 
> We are running Netscape products (iplanet and Directory Server) 
> and I need to connect an apache server running on an
> linux box to our ldap server (database).
> 
> The procedure should be, that the user identifies himself with an
> user-id and a passwort. If the authentification is done and true, the
> script proofs his membership to a group.
> 
> State of the art is, that the groupmembership-proof works, the
> authentication not.
> 
> The script attached is my test script, conecting to ldap database and
> reading out all the specific data of an user (in this case a dummie). 
> 
> With
> 
> my $mesg =3D $ldap->bind;
> 
> I connect to the ldap-server as ananoumys.
> 
> With (which is currently inactive #)
> 
>         my $mesg =3D $ldap->bind("uid=3D$user,$base", password =3D> "tes=
t");
> 
> the script should sign in the user under his passwort.
> 
> Unfortunately, no matter what user and what passwort is being passed,
> the script loggs in (such as with anonymous)
> 
> Everybody having an idea ? 
> 
> Thanks for the help in advance.
> 
> 
> ----script starts here ---------------- 
> 
> #!/usr/local/bin/perl -w
> 
> use Net::LDAP;
> 
> 
> $user =3D 'iuai2';
> 
> 
> local $base =3D "o=3Dsv-versicherungen";
> local $filter =3D "uid=3D$user";
> local $host =3D "dir1.svi.de";
> 
> 
> 
> 
> 
> my $ldap =3D new Net::LDAP( "$host");
> 
> #my $mesg =3D $ldap->bind("uid=3D$user,$base", password =3D> "test");
> my $mesg =3D $ldap->bind;
> 
> $mesg =3D $ldap->search (
>                                    base =3D> $base,
>                                    filter =3D> $filter
>                                    );
> 
> 
> $mesg->code && die $mesg->error;
> 
> if ($mesg->count =3D=3D 0) {
>    print "No Row Found \n";
>    }
> 
> foreach $entry ($mesg->all_entries) {$entry->dump;}
> 
> $ldap->unbind; 
> 
> __END__
> 
> -- 
> Mit freundlichem Gru=DF
> 
> 
> Damian Dworatzek
> Assistent der Gesch=E4ftsf=FChrung
> Sparkassen-Versicherung 
> Baden-W=FCrttemberg Informatikdienste GmbH (SVI)
> dam...@sv...
> www.svi.de


Mark Wilcox
ma...@mj...
Got LDAP?