User Authentification with perl/cgi

[Aníbal J. Avelar(MCIC)]

Puedes usar POP3

use Net::POP3;

 my $pop = Net::POP3->new($host,Timeout => 60);
 my $valida=$pop->login($username,$passwd);

      if($valida eq "") {
      return(0);
      }

Lo malo es que necesita POP3, este usa passwd sin shadow. Pero hay otros
modules para Perl que si usan shadow. checa en www.cpan.org

Bye.



-------------------------------------------------------------------------------
Ing. Anibal Jesus Avelar Rosales        Tel-Celu:  044-25-33-1097

Maestria en Ciencia e Ingenieria de la Computacion, MCIC
Instituto de Investigaciones en Matematicas Avanzadas y en Sistemas, IIMAS

Site : http://www.mcc.unam.mx/~avelar
Powered by Linux!  Linux User: 170607

On Tue, 29 Aug 2000, 'Aztec Eagle' Turbo wrote:

> ¡Saludos!
> 
> Andamos por acá haciendo un sistemilla con perl/cgi/postgress y
> para poder liberarlo a los usuarios necesitamos identificar al
> usuario mediante el esquema clásico de nombre y contraseña (todo
> por no decir login/password).
> 
> Con getpwnam() podemos verificar el login, pero ¿cómo podemos
> verificar la contraseña? Usamos shadow y md5 y como es de
> esperarse el CGI corre como usuario normal (uid=gid)!=root.
> 
> ¿Alguien sabe como verificar esto? ¿Dónde debemos leer? Estoy
> seguro que se debe poder (todo se puede en Perl) pero NPI de por
> dónde empezar.
> 
> Agradeceremos su ayuda.
> 
> ---
> Ing. Héctor Daniel Cortés González <hdcg en cie.unam.mx>
> http://www.cie.unam.mx/W_Personal/hdcg.html
> 
> ---------------------------------------------------------
> para salir de la lista, enviar un mensaje con las palabras
> "unsubscribe ayuda" en el cuerpo a majordomo en linux.org.mx
> 

---------------------------------------------------------
para salir de la lista, enviar un mensaje con las palabras
"unsubscribe ayuda" en el cuerpo a majordomo en linux.org.mx