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

[Lucas Moraes]

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