[SP-pm] Problema com cookie, não esta gravando

Lucas Moraes lucastiagodemoraes at gmail.com
Mon Jul 2 15:29:28 PDT 2012


Resolvido, valeu Gabriel, a sua pergunta fez eu encontrar o erro.
Tenho que executar o
print $q->header(-cookie  => $cookie);
antes do
print "Content-type: text/html\n\n";

Obrigado a todos.

Em 2 de julho de 2012 19:26, Lucas Moraes
<lucastiagodemoraes em gmail.com> escreveu:
> O script completo:
> #!/usr/bin/perl -w
>
> use strict;
> use warnings;
> use CGI;
> use CGI::Session;
>
> print "Content-type: text/html\n\n";
>
> my $login = "lucas";
> my $pass = "abc";
>
> my $q = CGI->new;
>
> if($login eq $q->param('login') && $pass eq $q->param('pass')){
>     my $session = CGI::Session->new();
>     my $cookie = $q->cookie(-name=>'session', -value=> $session->id,
> -expires =>  '+1h', -path => '/tmp');
>     print $q->header(-cookie  => $cookie);
>     $session->param('login', $login);
> }
>
> a saida é só isso:
> Set-Cookie: session=307fd3f5783735563cc14f3741881f90; path=/tmp;
> expires=Mon, 02-Jul-2012 23:25:00 GMT Date: Mon, 02 Jul 2012 22:25:00
> GMT Content-Type: text/html; charset=ISO-8859-1
>
> Em 2 de julho de 2012 19:19, Gabriel Vieira <gabriel.vieira em gmail.com> escreveu:
>> manda o output da tua app... tem q ver se ta indo no header direitinho
>>
>> 2012/7/2 Lucas Moraes <lucastiagodemoraes em gmail.com>:
>>> Eduardo Maia, também não esta no navegador, eu verifiquei.
>>>
>>> Estou usando localmente, veja os cookies local
>>> http://imageshack.us/photo/my-images/842/capturadetelade20120702.png/
>>>
>>> nenhum com o nome "session"
>>>
>>> Em 2 de julho de 2012 19:11, Eduardo Maia <maia em eduardomaia.com> escreveu:
>>>> Lucas, o  $ENV{'HTTP_COOKIE'} pode não imprimir um cookie que foi setado com
>>>> sucesso, um exemplo desta ocorrência está no arquivo que eu enviei. Você
>>>> poderia enviar pra gente um screenshot dos cookies armazenados no seu
>>>> navegador web? Porque pelo código que você enviou, o cookie parece que foi
>>>> setado corretamente...
>>>>
>>>> Abs
>>>>
>>>>
>>>> 2012/7/2 Lucas Moraes <lucastiagodemoraes em gmail.com>
>>>>>
>>>>> Não esta gravando não, eu já tinha olhado com $ENV{'HTTP_COOKIE'}, já
>>>>> setei o path também e nada.
>>>>>
>>>>> Em 2 de julho de 2012 18:59, Gabriel Vieira <gabriel.vieira em gmail.com>
>>>>> escreveu:
>>>>> > Viu as configurações do chrome? Consegue visualizar o Cookie nos
>>>>> > settings do chrome?
>>>>> >
>>>>> > Mostra todo o output gerado pela tua app.
>>>>> >
>>>>> > 2012/7/2 Lucas Moraes <lucastiagodemoraes em gmail.com>:
>>>>> >> Gabriel estou usando Chrome.
>>>>> >>
>>>>> >> Fernando é tudo no mesmo script. faço autenticação, na página que é
>>>>> >> redirecionado já não consigo acessar e nem na própria página que é
>>>>> >> gerado.
>>>>> >>
>>>>> >> Falou.
>>>>> >>
>>>>> >>
>>>>> >> Em 2 de julho de 2012 18:45, Fernando Oliveira
>>>>> >> <fernandocorrea em gmail.com> escreveu:
>>>>> >>> Outra pagina em outro domínio?
>>>>> >>>
>>>>> >>>
>>>>> >>>
>>>>> >>> Just another Perl Hacker,
>>>>> >>> Fernando (SmokeMachine)
>>>>> >>>
>>>>> >>>
>>>>> >>> Em 2 de julho de 2012 18:43, Lucas Moraes
>>>>> >>> <lucastiagodemoraes em gmail.com>
>>>>> >>> escreveu:
>>>>> >>>>
>>>>> >>>> Estou gerando o cookie com o código;
>>>>> >>>> my $cookie = $q->cookie(-name=>'session', -value=> $session->id,
>>>>> >>>> -expires =>  '+1h');
>>>>> >>>> print $q->header(-cookie  => $cookie);
>>>>> >>>>
>>>>> >>>> Resultado:
>>>>> >>>> Set-Cookie: session=92ce2cbd31e66e52aae6038f444812bc; path=/;
>>>>> >>>> expires=Mon, 02-Jul-2012 22:37:16 GMT Date: Mon, 02 Jul 2012 21:37:16
>>>>> >>>> GMT Content-Type: text/html; charset=ISO-8859-1
>>>>> >>>>
>>>>> >>>> Mas quando tento acessar o cookie outra página, cade o cookie.
>>>>> >>>> Não esta gravando, minha maquina é ubuntu 12.04 64bit
>>>>> >>>>
>>>>> >>>> Alguém tem ideia do que pode ser?
>>>>> >>>>
>>>>> >>>> Obrigado e ate mais.
>>>>> >>>> =begin disclaimer
>>>>> >>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> >>>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>> >>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> >>>> =end disclaimer
>>>>> >>>
>>>>> >>>
>>>>> >>>
>>>>> >>> =begin disclaimer
>>>>> >>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> >>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>> >>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> >>> =end disclaimer
>>>>> >>>
>>>>> >> =begin disclaimer
>>>>> >>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> >>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>> >>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> >> =end disclaimer
>>>>> >
>>>>> >
>>>>> >
>>>>> > --
>>>>> > Gabriel Vieira
>>>>> > =begin disclaimer
>>>>> >    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>> >  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>> >  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> > =end disclaimer
>>>>> =begin disclaimer
>>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>>> =end disclaimer
>>>>
>>>>
>>>>
>>>> =begin disclaimer
>>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>>> =end disclaimer
>>>>
>>> =begin disclaimer
>>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>
>>
>>
>> --
>> Gabriel Vieira
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer


More information about the SaoPaulo-pm mailing list