Es que ya vi el tutorial de cómo crear Cookies de esta página pero me sale el siguiente error:
malformed header from script. Bad header=domain = http://www.mevolucion.com; : start.pl
Este es el módulo de la cookie que tengo:
Using perl Syntax Highlighting
- package cookie;
- sub set_cookie {
- my ($name, $value, $expiration, $path, $domain, $secure) = @_;
- print "Set-Cookie: $name = $value; expires = $expiration; path = $path;
- domain = $domain; $secure \n";
- return(1);
- }
- sub get_cookie {
- my (@cookies, %return_cookie, $cookie, $key, $val);
- @cookies = split (/; /,$ENV{'HTTP_COOKIE'});
- foreach $cookie (@cookies){
- ($key, $val) = split (/=/,$cookie);
- $return_cookie{$key} = $val;
- }
- return (%return_cookie);
- }
- 1;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
y este es la otra página, que la crea:
Using perl Syntax Highlighting
- #!C:/xampp/perl/bin/perl.exe
- use CGI;
- my $query,%FORMS;
- $query=new CGI;
- %FORMS=$query->Vars;
- $nombre=$FORMS{"name"};
- $contra=$FORMS{"password"};
- use cookie;
- &cookie::set_cookie($nombre,$contra,'15-Jul-2012 00:00:00 GTM',"../Avengers","www.mevolucion.com");
- print "content-type: text/html \n\n";
- print "<a href=\"a.pl\">Otra Pagina</a>";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
