[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]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