Foro - Perl en Español

por **thegame** » 2012-11-29 09:08 @422

explorer: ¿en qué página ves el manual del CGI :?:

? porque yo la estoy viendo desde http://perldoc.perl.org/ y no me aparece lo de los pragmas. Mira el pantallazo que te adjunto:

su página oficial en CPAN: CGI
como es un módulo 'principal', viene incluido en cada distribución de Perl, así que viene en la documentación de la misma, por eso aparece en la web de perldoc.perl.org
como yo uso un sistema Linux, esa misma página de manual está accesible como página de manual (valga la redundancia): man CGI
teniendo instalado perldoc, pues también se puede sacar desde la línea de comandos: perldoc CGI

Lo de los pragmas está un poco más abajo de donde estás mirando. Busca por la frase 'how to create an HTTP-EQUIV'.

por **thegame** » 2012-11-29 11:31 @521

¡Ajá! Vi un detalle aplicando el no-cache... Coloqué el no-cache en el formulario de entrada y ya luego de autenticado... Con el no-cache, al entrar en la parte de usuarios autenticados no puedo darle atrás para regresar al formulario pero si le doy al enlace 'formulario institución' sí puedo regresar atrás

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use lib '../Modulos/';
 
use login;
use CGI           qw':standard';
use CGI::Session;
use CGI::Carp     qw'fatalsToBrowser warningsToBrowser';
 
my $tiempo_sesion = '+1d';              # Tiempo que dura la sesión (máximo)
my $tiempo_login  = '+10s';             # Tiempo que dura la sesión (identificado)
 
 
my $cgi = CGI->new;                     # creamos el objeto CGI
 
my $session                             # creamos el objeto CGI::Session
    = CGI::Session->new('driver:file', $cgi, {Directory => '/tmp/'});
 
if ($session->is_new) {                 # ¿es una nueva sesión?
    $session->expire($tiempo_sesion);   # Tiempo de expiración de la sesión (todo el día)
 
    print                               # Presentamos la página de registro
        $session->header,
        $cgi->start_html(-tittle=>'Bienvenido',-style=>'../../Css/style_formulario.css', -head=>[meta({-http_equiv=>'Cache-Control', -content=>'no-cache,no-store,private',}),meta({-http_equiv=>'Pragma', -content=>'no-cache',}),],),
        cabeceras_http(),
        $cgi->p("Identifiquese:"),
        formulario(),
        $cgi->end_html,
        ;
 
    terminar();
}
 
my $usuario = $cgi->param('login_nombre') || '';        # Vemos si se está registrando
my $passwd  = $cgi->param('login_passwd') || '';
 
if ($usuario and $passwd and login->verificar($usuario, $passwd)) {
    $session->param('~registrado', 1);          # Lo marcamos como registrado
    $session->expire('~registrado', $tiempo_login);     # Tiempo que dura la sesión (login)
 
    $session->param('nombre', $usuario);                # Guardamos su nombre
}
 
if (! $session->param('~registrado')) {                 # ¿Ha pasado el tiempo de sesión login?
 
    my $usuario = $session->param('nombre') || '';      # Recuperamos su nombre
    $usuario = ", $usuario" if $usuario;
 
    print
        $cgi->header(),
        $cgi->start_html(-tittle=>'Bienvenido',-style=>'../../Css/style_formulario.css', -head=>[meta({-http_equiv=>'Cache-Control', -content=>'no-cache,no-store,private',}),meta({-http_equiv=>'Pragma', -content=>'no-cache',}),],),
        cabeceras_http(),
        $cgi->p("Su sesion ha expirado$usuario. Identifiquese de nuevo:"),
        formulario(),
        $cgi->end_html,
        ;
 
    terminar();
}
 
# Llegamos aquí cuando el usuario está registrado e identificado
print                                                   # presentamos una página normal
    $session->header,
    $cgi->start_html(-tittle=>'Bienvenido',-style=>'../../Css/style_formulario.css', -head=>[meta({-http_equiv=>'Cache-Control', -content=>'no-cache,no-store,private',}),meta({-http_equiv=>'Pragma', -content=>'no-cache',}),],),
    cabeceras_http(),
    $cgi->p('Gracias por su visita, ' . $session->param('nombre'). ". Dispone de $tiempo_login mas."),
    $cgi->a({-href=>"formulario_institucion.pl", -Target=>"_self"},$cgi->div({-id=>"menu2"},'Agregar Instituci&oacute;n')),
    $cgi->end_html,
    ;
 
## Fin del programa
terminar();
 
### Subrutinas
sub formulario {                        # presenta un formulario muy simple
    return
        $cgi->start_form,
        'Nombre: ',
        $cgi->textfield('login_nombre'), br,
        'Passwd: ',
        $cgi->password_field('login_passwd'), br,
        $cgi->submit,
        $cgi->end_form,
        ;
}
 
sub cabeceras_http {
    return
        $cgi->p(
            join $cgi->br, map { "$_ : " . $cgi->http($_) } sort $cgi->http()
        )
        ;
}
 
sub terminar {
    $session->flush();
    CGI::Session->find('driver:file', sub {}, {Directory => '/tmp/'} );            # Purgamos sesiones caducadas
    exit(0);
}
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

por **thegame** » 2012-11-29 14:30 @646

Actualización:

Pruebas realizadas en Google Chrome-->> Funciona la autenticación completamente, es decir al dar atrás pide autenticarse nuevamente.

Pruebas en Firefox-->> al estar en la página principal y dar atrás (luego de salir del área de autenticación) regresar al área.

Pero estando en la misma situación mencionada anteriormente y presionamos F5 al dar atrás me pide autenticación para el área de autenticados.

por **explorer** » 2012-11-29 23:42 @029

He encontrado un hilo donde se comenta este mismo problema, y uno de los que participa dice que no importa que una persona vuelva atrás y vea información que está cacheada: si intenta realizar cualquier operación, como su sesión ya ha caducado, nuestro cgi se dará cuenta de que no está autenticado, y le reenviará al formulario de registro de entrada.

Lo importante es que si el usuario ha pulsado la opción de desconexión, borremos el parámetro de sesión de que está autenticada, o expiramos su sesión, o limpiamos la sesión (con clear()), o borramos completamente la sesión (con delete()).

Otra cosa es si hacemos estos pasos, y el usuario da hacia atrás, y puede realizar operaciones como si siguiera conectado... entonces es que hemos hecho algo mal.

por **thegame** » 2012-12-03 09:24 @433

Bueno ya resolví lo del cache, ya logré que no guardara en caché... Ahora para hacer un clear() o un delete() a la sesión (al salir del área autenticada), lo más conveniente sería hacerlo en la página principal (que es a donde iría luego de presionar salir, ¿no?)

Con hacer un load() en la página principal, debería traerme la sesión, ¿no? Sería algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $session = CGI::Session->load() or die CGI::Session->errstr;
$session->flush();
CGI::Session->find( 'driver:file', sub { }, { Directory => '/tmp/' } );    # Purgamos sesiones caducadas
$session->delete();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-12-03 13:51 @619

Sí, pero... según el manual, debes comprobar que el load() ha funcionado... Debes comprobar si el load() ha conseguido identificar la sesión, o no.

Foro - Perl en Español

Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

Publicidad

Re: Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

Re: Problema al cerrar sesión (CGI::Session)

¿Quién está conectado?