[SP-pm] Problema com cookie, não esta gravando
Lucas Moraes
lucastiagodemoraes at gmail.com
Mon Jul 2 15:26:07 PDT 2012
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