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 > >