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

[Lucas Moraes]

Eduardo Maia você esta correto :)
valeu.

Em 2 de julho de 2012 19:29, Lucas Moraes
<lucastiagodemoraes em gmail.com> escreveu:
> 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