Using perl Syntax Highlighting
$self->session_config(
CGI_SESSION_OPTIONS => [ "driver:File", $self->query, {Directory=>'/tmp'} ],
# CGI_SESSION_OPTIONS => [ "driver:File", '9292a187991bec3e0f9df657757ef9ec', {Directory=>'/'} ],
COOKIE_PARAMS => {
-expires => '+24h',
-path => '/',
},
SEND_COOKIE => 1,
);
CGI_SESSION_OPTIONS => [ "driver:File", $self->query, {Directory=>'/tmp'} ],
# CGI_SESSION_OPTIONS => [ "driver:File", '9292a187991bec3e0f9df657757ef9ec', {Directory=>'/'} ],
COOKIE_PARAMS => {
-expires => '+24h',
-path => '/',
},
SEND_COOKIE => 1,
);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Bueno, hago el login() y me redirecciona a admin.pl donde tengo un procedimiento en admin.pm que necesita autenticación para ingresar y la primera vez me ingresa bien Y si hago un Dumper de $self->query obtengo esto:
- Código: Seleccionar todo
$VAR1 = bless( {
'.parameters' => [],
'use_tempfile' => 1,
'.charset' => 'ISO-8859-1',
'.cookies' => {
'CGISESSID' => bless( {
'value' => [
'ef44c2dc07a4a227a388dd22cc3462e0'
],
'name' => 'CGISESSID',
'path' => '/'
}, 'CGI::Cookie' ) },
'.fieldnames' => {},
'param' => {},
'escape' => 1
}, 'CGI' );
Ahí está bien, la sesión se sostiene.
Pero cuando ya estando en admin.pl quiero llamar de nuevo el método o actualizo la página para imprimir el mismo Dumper de $self->query obtengo esto:
- Código: Seleccionar todo
$VAR1 = bless( {
'.script_name' => '/admin/admin.pl',
'.parameters' => [],
'use_tempfile' => 1,
'.path_info' => '',
'.charset' => 'ISO-8859-1',
'.fieldnames' => {},
'.cookies' => undef,
'param' => {},
'escape' => 1
}, 'CGI' );
Y la configuración dentro de mi admin.pm es la misma que tengo de login.pm no sé si tiene que ver un problema con el envío de las cookies o la obtención de ellas, la verdad no sé, no tengo ni la remota idea de qué hacer.