Foro - Perl en Español

[danimera]

Bueno parece extraño, pero tengo dos archivos:

Login.pl
En este primero creo la sesión con el CGI::Session correctamente y paso con el print $s->header(), la sessión por cookies,

Admin.pl
En este archivo quiero validar la session, pero solo puedo cargarla cuando uso ID estáticos., por ejemplo:
$s = CGI::Session->load("sdd989ere4354564345") la carga bien.

Pero, ¿cómo hago para cargar una session que creé en Login.pl en mi archivo admin.pl si cuando uso la función load por defecto, después obtengo que la session esta vacía? Me doy cuenta por el is_empty.

[kidd]

Hola:

Me parece que no se está creando tu cookie de manera correcta, recuerda que el $session->header() debe de ir antes de que escribas el content-type.

Saludos

[danimera]

he intentado muchas cosas Kid, que hasta me atrevo a pregutar

Que porcentaje de posibilidad existe que me halla quedado mal instalado el modulo de session, aunque ahora que recuerdo proble una aplicacion con CGI::Session y me funciono bien.

El hecho es que la seccion me carga vacia, quizas el problema es que no carga el ID de la sesion,, bueno tambien, como podria relacionar la sesion con mi plantilla pues uso HTML-Template

[explorer]

¡Respondida!

¿Es posible que no se pueda crear el fichero de sesión porque no tengas permisos de escritura?

Código: Seleccionar todo

#!/usr/bin/perl
#
# Ejemplo de CGI::Session
#

use CGI ':standard';
use CGI::Session;

my $session =
   CGI::Session->new("driver:File",undef,{'Directory'=>'/tmp/'})
       or die CGI::Session->errstr;

print $session->header();
my $contador = $session->param('contador');
$contador++;
$session->param('contador', $contador);

print
        start_html('Prueba CGI::Session'),
        h1('Contador'),
        hr,
        p({align=>'center'}, $contador),
        end_html;