Hola, amigos, les comento que estoy haciendo una función que mande cookies desde un script de perl pero me está volviendo realmente loco!!!!!!!!!!!!!!!!!!!!
Por ejemplo uso la función 3 veces seguidas y solo me manda una sola cookie y las otras no...
La función es esta:
sub set_cookie {
print "Set-cookie: $_[0]=$_[1];expires=$_[2];path=$_[3];domain=$_[4]\n";
}
Esta es otra forma que intenté pero me tiró los mismos resultados
sub set_cookie {
print 'Set-Cookie: ' . $_[0] . '=' . $_[1] . ';';
print ' expires=' . $_[2] . ';';
print ' path=' . $_[3] . ';';
print ' domain=' . $_[4] . ';';
print "\n";
}
Yo lo único que hago desde el script es llamar a esa función 3 veces , acá tienen el código:
&set_cookie('usuario',$input_data{'login'},'+1h',' http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');
&set_cookie('estado','on','+1h','http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');
&set_cookie('nombre',$user_data[6],'+1h','http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');
En donde está el maldito error????
Se puede realmente hacer algo con cookies en perl y que funcione correctamente????
NECESITO VACACIONES!!!!!!!!!!!!!
Gracias
MonoSwim