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

[Lucas Moraes]

Faz tempo que não trabalho com CGI, esses Frameworks deixam a gente
mau acostumado kkkkkkkkkk

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