<div>Ola lista,</div>
<div> </div>
<div>conforme pedi ajuda anteriormente para poder fazer um sistema de login, estou implementando e testando e deparei com o seguinte error:</div>
<div> </div>
<div>vamos ao codigo para ficar mais facil de entender:</div>
<div> </div>
<div><-Script-></div>
<div>
<p>#!/usr/bin/perl</p>
<p>use CGI;<br>use CGI::Carp qw(fatalsToBrowser);<br><br>my $query = CGI->new;</p>
<p>$cgi = new CGI;</p>
<p>if ($cgi->cookie('sid')) { #caso o cookie exista, imprimo<br> print $query->header;<br> print "Cookie ativo!";</p>
<p>print $cgi-cookie('sid'); #meu cookie</p>
<p>} else { #se não existe, ele grava</p>
<p>$cookie = $cgi->cookie( -name=>'sid', -value=>"$sid", -expires=>"+5m",-secure =>0,-path=>'/');<br>print $cgi->header(-cookie=>$cookie); #imprimo o cookie no navegador</p>
<p>print "Gravando cookie.... ok, salvo!<br><br>Atualize seu navegador";</p>
<p>} #fecho o else<br></p>
<p>eu executo o script login.cgi ele checa se ja tem cookie caso nao ele cria, porem ele nao esta criando, pois se eu atulizar o script ele sempre vem "Gravando cookie.... ok, salvo!<br>Atualize seu navegador"</p>
<p>Tem alguma coisa de errado?</p>
<p> </p>
<p>[]'s Sammuel</p></div>