Foro - Perl en Español

por **palafox87** » 2012-06-23 00:47 @074

¡Hola de nuevo!

Les comento que estoy trabajando en un sencillo script de Perl que permita a un usuario de un equipo montado en Linux (Ubuntu 11.10) registrarse con la cuenta que ya tiene en dicho equipo. Todo esto desde el navegador web.

El raro problema que tengo es que en la mañana funcionaba perfectamente, dejé el equipo apagado, regresé en la tarde y cual sería mi sorpresa que al registrarme ¡el script me manda error de login!

Revisé todo el pequeño script y todo está bien, cuando lo ejecuto desde la línea de comandos funcionó bien.

¿Qué creen que pueda estar pasando?

El archivo ya cuenta con los permisos necesarios para su ejecución.

Aquí el código del script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
use CGI qw(:all);
use Authen::Simple::PAM;
 
my $cgi = new CGI;
 
my $pam = Authen::Simple::PAM->new(
        service => 'login'
      );
 
print $cgi->header();
 
 
if( $pam->authenticate( "user", "123456" ) ) {
            print "OK!";
} else {
            print "Error! intenta nuevamente...";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

De antemano, ¡¡muchas gracias!!

Saludos.

Si el programa ha funcionado, entonces el programa está bien.

Quizás ha cambiado alguna de las condiciones externas... Al reiniciar la máquina, quizás el usuario que ejecuta el servidor web/cgi es distinto. O falta por arrancar un servicio. ¿Ha desaparecido el usuario? ¿El PAM está conectado a una base de datos y ésta no ha arrancado?

¿No sale nada en el registro de actividad del servidor web (error.log)?

por **palafox87** » 2012-06-23 11:27 @519

Hola explorer, gusto en saludarte.

No, el módulo PAM no está conectado a una BD, en la documentación del módulo se menciona que lo que hace el módulo es leer el archivo "passwd".

Por otro lado, en el archivo error.log no hay ningún error.

Te comento que el archivo se lo asigné al usuario de Apache (en mi caso www-data), ya lo cambié a root, pero sigue igual.

¡Saludos!

por **explorer** » 2012-06-23 12:38 @568

Ejecútalo desde la línea de comandos, a ver qué saca.

por **palafox87** » 2012-06-23 19:01 @834

Gracias explorer.

Desde la línea de comandos funciona perfectamente.

Saludos.

por **palafox87** » 2012-06-24 01:58 @123

explorer:

Te comento que después de muchos intentos fallidos por hacer funcionar el módulo en entorno web, me he desesperado y he intentado otra forma (con el mismo módulo) pero que ahora sí funciona. Te explico:

Sabiendo que el script funciona desde la línea de comandos he separado en dos archivos, el login:

login_mod.pl: Este archivo hace el login (este archivo le pertenece a root):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Authen::Simple::PAM;
 
my $pam = Authen::Simple::PAM->new(
                service => 'login'
                );
 
my $user = $ARGV[0];
my $pass = $ARGV[1];
 
   if ( $pam->authenticate($user,$pass ) ) {
        exit 0;
    }
    else
    {
        exit 1;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

login.cgi: Este archivo será el encargado de recibir los parámetros desde el formulario (este archivo le pertenece al usuario de apache, www-data):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI qw(:all);
 
my $cgi = new CGI;
print $cgi->header();
 
my $login_mod = "./login_mod.pl";
 
#Ejecuto el script que hace login
system qq(sudo $login_mod 'user' '123456');
 
#Capturo su salida    
my $resultado = $? >> 8;
 
if($resultado == 0){
  print "OK!";
}else{
  print "Error!";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pensándolo bien, este método es más seguro, ya que me permite más control sobre el script del login debido a que éste mismo se debe ejecutar con privilegios de super-usuario, mismos que puedo controlar con el archivo sudoers como te lo comenté en un post anterior: problema-para-ejecutar-script-en-perl-via-web-t7169.html

Saludos y de nuevo, ¡muchas gracias, explorer!

Foro - Perl en Español

Problema con módulo Authen::Simple::PAM

Problema con módulo Authen::Simple::PAM

Publicidad

Re: Problema con módulo Authen::Simple::PAM

Re: Problema con módulo Authen::Simple::PAM

Re: Problema con módulo Authen::Simple::PAM

Re: Problema con módulo Authen::Simple::PAM

Re: Problema con módulo Authen::Simple::PAM

¿Quién está conectado?