• Publicidad

CGI::Session / CGI::Ajax

Aquí encontrarás todo lo que sea específicamente acerca de módulos de Perl. Ya sea que estás compartiendo tu módulo, un manual o simplemente tienes una duda acerca de alguno.

CGI::Session / CGI::Ajax

Notapor Lor » 2008-06-22 05:40 @278

Estoy trabajando con el modulo CGI ::Session en mis aplicaciones y quiero insertar en las mismas el módulo CGI::Ajax pero no puedo hacerlo funcionar.

Corriendo la aplicación con Ajax únicamente anda correcto, pero al insertar en las mismas todo lo relacionado a la sesión deja de funcionar.

Puedo trabajar CONJUNTAMENTE Ajax con SESIONES. ¿Cómo debo hacerlo?

¡¡¡¡¡¡ MUCHAS GRACIAS !!!!!! :)
Lor
Perlero nuevo
Perlero nuevo
 
Mensajes: 187
Registrado: 2005-04-28 05:47 @282

Publicidad

Notapor kidd » 2008-06-22 08:11 @383

Hola:

El problema es que si estás haciendo rastreo de tus sesiones por medio de cookies. ¿Por qué? Porque con CGI se escriben las cookies enviándolas en el encabezado del envío http, y la idea de AJAX es no tener que hacer un nuevo request desde el navegador, por lo que no podrás escribir tus cookies de esa manera.

Tendría que ver el código, pero me parece que ese es el problema. Una solución sería escribir el cookie con una función de JavaScript:
http://www.w3schools.com/JS/js_cookies.asp

Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor Lor » 2008-06-22 09:21 @431

Uriel, yo NO trabajo con cookies, obtengo el identificador de la sesión ($sid) a través de la función que describo abajo y luego en todas mis aplicaciones la mando como parámetro POST.

La idea de utilizar Ajax surgió, debido a que tengo Combos SELECT donde lo que se debe desplayar en uno depende de la selección que se hizo en el otro.

En estos Combos yo vuelco datos que provienen de Consultas a una base Mysql. Tiempo atrás vos me indicaste que utilizase para esto Dynamic Option Lists pero no pude cargar los combos con la información resultado de la base. Los ejemplos que se muestran son solo arreglos estáticos. ¿Tendrías algún ejemplo para mostrarme?

¡¡¡¡¡ MUCHAS GRACIAS !!!!!

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
sub crear_sesion {

 my $nombre= shift;
 my $apellido= shift;
 my $id_usuario= shift;

 my $sid= undef;
 my $session_open ='';

 my $session =
         new CGI::Session("driver:File", $sid ,{Directory=>'C:\TMP_sessions'})
         or die CGI::Session->errstr;
         

  if (defined $session) {
 
           $session->param(-name=>'nombre_usu', -value=>$nombre);
           $session->param(-name=>'apellido_usu', -value=>$apellido);
           $session->param(-name=>'id_usuario', -value=>$id_usuario);
           
           $session->expire('+2h');
           $session->flush();

           $sid= $session->id();
           $session_open = 'T';
  }
  else {
         $session_open = 'F';
  }

 return ($sid, $session_open);
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Lor
Perlero nuevo
Perlero nuevo
 
Mensajes: 187
Registrado: 2005-04-28 05:47 @282


Volver a Módulos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados