Foro - Perl en Español

por **explorer** » 2011-03-29 13:57 @623

Vale, pues quita la línea 21.

Esa línea solo debería ejecutarse una vez, para la salida de la cabecera HTTP hacia el usuario.

$dbh = DBI->connect("DBI:mysql:$database:localhost",$user,$passwd) or die("Can't connect to db: ",$dbh->errstr);
my $session = CGI::Session->new();  #esta linea no la puedo eliminar por completo porque si no me da error print $session->header, ya que me dice que session no esta definido.
 
## Enviamos la cookie de sesión al usuario
print $session->header;
 
my $perfil;
 
 
## Inicialización
 
if ( not $session->param('~registrado') ) {     # si el usuario no está registrado
   
         $session = CGI::Session->load("driver:MySQL", $cgi, {Handle=>$dbh}) or die CGI::Session->errstr();
 
        if ( $session->is_expired){
           print $cgi->start_html(),
                $cgi->p("Your session timed out! Refresh the screen to start new session!"),
                $cgi->end_html();
                exit(0);
                }
 
        if ($session->is_empty){
                $session = $session->new("driver:MySQL", $cgi, {Handle=>$dbh}) or die $session->errstr;
                $session -> expire('+1m');
        }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sigue con el mismo problema, yo creo. Sigue sin salirme el mensaje de error... no entra en el if() de is_expired() pero sí en el de is_empty().

por **explorer** » 2011-03-29 16:35 @733

Repito lo dicho: el problema es la línea 2, en la que estás creando una nueva sesión. Por eso no indica que está expirada, pero sí vacía, porque se trata, precisamente, de una nueva sesión.

Pones en el código que necesitas de la línea 2 para poder hacer el print del header(). Pero no tiene por qué ser así...

Lo que puedes hacer es cambiar el new() por el load(), moviendo la línea 14 a la 2. De esa manera, tendrás creada la $session, podrás hacer print header() y podrás comprobar si está expirada o vacía.

por **noa86** » 2011-03-29 16:53 @745

Ya entiendo lo que me quieres decir, pero si hago lo que me dices me sale un error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

load(): couldn't thaw() data using CGI::Session::Serialize::default: at /var/www/cgi-bin/wei/privat/wei.interfazedicion.perlColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

es decir, por lo que entiendo yo, ese error sale porque como no está creado CGI::Session (new()) no se puede hacer load().

por **explorer** » 2011-03-29 17:02 @751

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $session = CGI::Session->load("driver:MySQL", $cgi, {Handle=>$dbh}) or die CGI::Session->errstr();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sacado de la documentación de load() en CGI::Session.

por **noa86** » 2011-03-29 17:49 @784

He reiniciado el ordenador y me ha dejado de dar ese error.

Pero poniéndolo como hemos comentado ahora sigue sin funcionarme is_expired(), y además me ha dejado de funcionar bien las sesiones, ya que cada vez que ejecuto el cgi tengo que iniciar sesión, como si no me la guardara, y cuando tenía puesto el new() una vez iniciada sesión no tenía que volver a iniciar a no ser que cerrara el navegador o expirara el tiempo...

por **explorer** » 2011-03-29 17:57 @789

Claro, como ves en el código de ejemplo del load(), si la sesión está vacía, es cuando se debe crear una nueva sesión con new().

De todas maneras, hay varias formas de controlar esto. No hay porqué seguir el orden impuesto por los manuales, aunque casi siempre tengan razón.

¿No puedes reducir tu código a la mínima expresión, para publicarlo aquí, entero? Quita todo lo que no sea necesario y deja solo la parte de inicio del programa.

por **noa86** » 2011-03-29 18:40 @820

Ahora mismo tengo el código así. ¿Sería correcto como he programado lo referente a control de sesiones? Sigo sin saber por qué no me funciona el método is_expired().

Necesito una solución...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
require("wei.conf.perl");
 
use DBI;
use CGI::Session;
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
 
my $cgi = CGI->new();
 
$dbh = DBI->connect( "DBI:mysql:$bd:localhost", $user, $passwd )
    or die( "Can't connect to db: ", $dbh->errstr );
my $session = CGI::Session->load( "driver:MySQL", $cgi, { Handle => $dbh } )
    or die CGI::Session->errstr();
 
if ( $session->is_expired ) {
    print $cgi->start_html(),
        $cgi->p("Your session timed out!"),
        $cgi->end_html();
    exit(0);
}
 
if ( $session->is_empty ) {
    $session = CGI::Session->new( "driver:MySQL", $cgi, { Handle => $dbh } );
    $session->expire(10);
}
 
print $session->header;
 
if ( not $session->param('~registrado') )
{                                      # si el usuario no está registrado
 
    if ( my $nombre = $cgi->param('login_nombre') ) {
        my $passwd = $cgi->param('login_passwd');
 
        if ( usuario_registrado( $nombre, $passwd ) ) {
            $session->param( 'nombre',      $nombre );
            $session->param( '~registrado', 1 );
        }
        else {
            presenta_login('Usuario desconocido');
            exit;
        }
    }
    else {
        presenta_login('Identifiquese');
        exit;
    }
}
 
if ( $cgi->param('Desconectar') ) {
    $session->clear( ['~registrado'] );
 
    print
        start_html('Desconexión'),
        h2('Se ha desconectado'),
        hr(),
        p("Adios, $nombre"),
        end_html();
}
else {
    print
        start_html('Bienvenido'),
        h2('Bienvenido'),
        hr(),
        p( "Bienvenido", $session->param('nombre') ),
        hr(),
        p( a( { -href => $cgi->url() . '?Desconectar=1' }, 'Desconectar' ) ),
 
        end_html();
 
    #continuación de pagina.
}
 
sub usuario_registrado {
    ...;
}
 
sub presenta_login {
    ...;
}
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **noa86** » 2011-03-31 08:17 @386

¿Nadie sabe por qué puede ser que no me funcione is_expired?

por **explorer** » 2011-03-31 09:58 @456

¿Para qué está la línea 17? ¿No vale con la 31?

Foro - Perl en Español

Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Publicidad

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

Re: Control de acceso CGI::Session

¿Quién está conectado?