autenticar con perl y ldap

[Jorge Ponce T.]

NYARLATHOTEP El Caos Reptante wrote:

>[..]
>
>use Net::LDAP;
>use Crypt::PasswdMD5;
>
>chomp(my $user = <stdin>);
>chomp(my $passwd = <stdin>);
>
>#para autenticar con ldap
>my $dn = "uid=$user,ou=People,dc=misitio,dc=com";
>my $salt = crypt($passwd,$passwd);
>warn ($salt."\n");
>my $passwd_crypt = unix_md5_crypt($passwd,$salt);
>my $ldap = Net::LDAP->new('127.0.0.1:389');
>
>#si la comparacion es correcta, permitir que ingrese, de lo contrario
>cerrar conexion
>  
>
pero en ningun lado haces el bind!!! la variable $ldap es siempre 
verdadera por que
lo unico que haces es generar la conexion con el servidor, luego debes 
logearte,
segun la documentación:

$mesg = $ldap->bind( $dn, password => $passwd);


http://search.cpan.org/~gbarr/perl-ldap-0.3202/lib/Net/LDAP.pod

Salu2.
Jpt.


>De antemano gracias....
>
>Ezk
>  
>