Foro - Perl en Español

He modificado cosas del código que me aportó explorer y me funciona perfectamente, pero ahora quiero poner tiempo de expiración. Me expira poniendo $session->expire('+5m'), por ejemplo, pero no me sale ningún mensaje. Mirando tutoriales he realizado esto.



No sé si estoy poniendo correctamente las líneas de load() y new() o qué tengo mal pero cuando me expira el tiempo, me vuelve a identificación de usuario pero no me muestra aviso de que ha expirado el tiempo...


Gracias de antemano...

Viendo el código, si no se ejecuta $session->is_expired, cuando sabemos que la sesión ha expirado, es quizás porque en la línea 16 sí que ha encontrado el parámetro '~registrado'.

Quizás debas cambiar el orden... Deberías, primero, comprobar si la sesión ha expirado o no. Y luego, si no ha expirado, preguntar si está registrado o no.

Editado: veo en el CGI::Session, en la explicación de expire(), que también se puede asociar un tiempo de expiración para un determinado argumento, así que, también, podrías escribir $session->expire('~registrado', '+10m'), y de esa manera, cuando pasen 10 minutos, el parámetro '~registrado' es eliminado de la $session, y la línea 16 funcionará.

Lo he puesto

pero tampoco me funciona. Sí que me expira, pero no me da el mensaje de is_expired().

¿En el load() y en el new() tengo que poner "driver:MySQL", $cgi, {Handle=>$dbh}, no? Ya que las sesiones se me guardan en la base de datos...

$dbh es la variable donde has guardado la conexión con la base de datos, así que unas líneas antes has debido abrir esa conexión (línea 5). Y sí, debes cargar la sesión con load().

El problema que veo, en el primero código que has publicado, es que has creado la sesión en la línea 6, envías el header() en la línea 9, y luego vienen las líneas que preguntan si la sesión ha expirado. Ahí sí que hay un error: la sesión no está expirada porque acabas de crearla en la línea 6.

Y otro detalle... envías dos veces los header(): en la línea 9 y en la línea 21.

Entonces... para mí sobran esas dos primeras líneas, la 6 y la 9.

Recuerda que puedes usar la función dump() para ver el contenido de la sesión, pero fíjate bien dónde colocas esa llamada: debe estar después de la ejecución de header(). Lo normal es ponerlo justo antes de enviar el end_html().

Estoy buscando a ver si veo un ejemplo completo...

Pero si elimino la línea 9 no me carga la página... me da error

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.

Lo tengo ahora mismo así


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().

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.

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



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

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