• Publicidad

Cookies

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Cookies

Notapor zaahira_patricia » 2005-10-05 15:18 @679

:D Hola estoy utilizando cookies para un proyecto, las uso en vez de sesiones, si el usuario es reconocido le creo una cookie con su login y password, y en cada pagina la verifico y sino existe la cookie la regreso a que vuelva a registrarse como el siguiente codigo:


if (!defined $ENV{'HTTP_COOKIE'})
{
print"No ha iniciado Sesion";
print ("<head><META HTTP-EQUIV=\"refresh\" CONTENT=\"1;URL=http://login.htm\"> </head>")
}
else{....}


Todo esta bien :? mientras no utilize un form para ir a la siguiente pagina como por ejemplo:

<form action "/cgi-bin/paginasig.pl">
<input type="submit" name="Submit" value="pasa a la siguiente">
</form>

La pagina "paginasig.pl" hace lo mismo que el primer ejemplo verifica la cookie y etc, pero ahi ya no lee nada de cookies, como si se perdiera.
¿Alguna idea de como solucionar esto?
zaahira_patricia
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2005-09-26 15:44 @697

Publicidad

Notapor monoswim » 2005-10-05 22:24 @975

Como estás enviando la cookie ???

Saludos
PD: Es muy peligroso mandar el password también en la coockie, mandá solo el nombre de usuario...
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor zaahira_patricia » 2005-10-05 22:41 @987

Hola :o
Asi creo la cookie
my $query=new CGI;
my $cookie=$query->cookie(
-name=>'ID',
-value=>"$dbUser;$dbPassword",
-path=>'/',
-domain=>'ip',
-secure=>0);
print $query->header(-cookie=>$cookie); *asi la mando
zaahira_patricia
Perlero nuevo
Perlero nuevo
 
Mensajes: 2
Registrado: 2005-09-26 15:44 @697

Notapor kidd » 2005-10-05 23:03 @002

Ummm :? si creas tu cookie usando el módulo CGI porque no hacer lo mismo para leerlas:

http://search.cpan.org/~lds/CGI.pm-3.11 ... TP_COOKIES


Código: Seleccionar todo
        use CGI;
        $query = new CGI;
        $riddle = cookie('riddle_name');
        %answers = cookie('answers');




SALUDOS


P.D: Realmente te recomiendo checar el módulo CGI::Session, es realmente sencillo de usar, es bastante seguro y te va a salvar de muchos dolores de cabeza. :wink:
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


Volver a Intermedio

¿Quién está conectado?

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

cron