He intentado usar las sesiones pero pierdo la autenticación.
Dibujo la forma para solicitar el registro, autentico y, excelente, pero vuelvo a seleccionar la opción para registrar y vuelve a solicitar el registro.
El script lo inicializo de la siguiente manera:
Using perl Syntax Highlighting
- use strict;
- use warnings;
- use diagnostics;
- use DBI;
- use Switch;
- use CGI::Session;
- CGI::Session->name("SID");
- use CGI ':standard';
- use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
- ###---CREAMOS EL OBJETO CGI::Session---###
- my $cgi = CGI->new();
- my $session = CGI::Session->new( "driver:File", $cgi, { 'Directory' => '/tmp/sessions' } ) or die CGI::Session->errstr;
- ###---ENVIAMOS LA COOKIE DE SESION AL USUARIO---###
- print $session->header();
- ###---GUARDAMOS EL PERFIL DEL USUARIO---###
- my $perfil;
- my $cookie = $cgi->cookie( -name => $session->name, -value => $session->id );
- print $cgi->header( -cookie => $cookie );
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Tomé de base el ejemplo que publicaron ustedes en el portal de PerlenEspanol, pero sigo sin obtener los resultados requeridos. ¿Qué sucede? Por que si se están creando los archivos de la sesión en /tmp/sessions'.
Gracias.