Fw: [Perl] Desconexion de un CGI

[Luis Guillot]

> Lo que puedes hacer es un boton que diga salir y lo que haces es
> re-enviar el cookie con un valor de 0 o un valor no valido... por lo que
> al no tener un cookie valido no puedas entrar a menos que vuelvas a
logear..

Sí, de esa manera se desconecta seguro, pero obligo al usuario a apretar el
botón salir, y todos sabemos que hay mucha gente que no se preocupa de
cerrar su sesión de trabajo, sino que simplemente cierra el navegador, o
carga otra página sin pensar que aún está conectado.

Yo lo que quiero es automatizarlo para que en TODOS los casos se cierre la
conexión.

No conozco demasiado profundamente el Perl, pero en otros lenguajes como ASP
hay funciones que hacen esto. ¿Sabe alguien si en Perl hay alguna función o
módulo
que cierre la sesión automáticamente?

Gracias a todos y en especial a Jorge


>
> > Tengo una página web que funciona a base de Cookies. Los usuarios se
> > autentifican y se les crea una cookie, pero el proble es que al
> terminar, ni
> > yendo a una parte de la página que no es privada, ni saliendo de la
página
> > ni incluso cerrando el navegador se cierra la conexión privada que sa ha
> > abierto.
> >
> > Únicamente se cierra a los 15 minutos porque en Expires le he puesto
este
> > tiempo, pero no quiero cambiarlo.
> >
> > ¿Hay alguna variable de servidor o similar, que pueda comprobar antes
> de que
> > se cierre incluso el navegador para cerrar la conexión privada, ya que
> es un
> > riesgo de seguridad muy grande?
> >
> > Gracias
> >
> > Luis
> >
> >
> >
> > _______________________________________________
> > Perl mailing list
> > Perl@tlali.iztacala.unam.mx
> > http://tlali.iztacala.unam.mx/mailman/listinfo/perl
> >
> >
>
>
============================================================================
===
> Jorge Zarate                          | #!/usr/bin/perl
> NOC-ITO                               |
> SEIT-DGIT-ITO Nodo Regional           | open (YOUR, 'mind') or
> netadmin@itoaxaca.edu.mx              | die 'ignorent and unfulfilled';
> Tels.: (01-951) 5167483               |
>
============================================================================
===
>