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 <[email protected]> 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 <[email protected]> > escreveu: >> manda o output da tua app... tem q ver se ta indo no header direitinho >> >> 2012/7/2 Lucas Moraes <[email protected]>: >>> 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 <[email protected]> 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 <[email protected]> >>>>> >>>>> 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 <[email protected]> >>>>> 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 <[email protected]>: >>>>> >> 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 >>>>> >> <[email protected]> escreveu: >>>>> >>> Outra pagina em outro domínio? >>>>> >>> >>>>> >>> >>>>> >>> >>>>> >>> Just another Perl Hacker, >>>>> >>> Fernando (SmokeMachine) >>>>> >>> >>>>> >>> >>>>> >>> Em 2 de julho de 2012 18:43, Lucas Moraes >>>>> >>> <[email protected]> >>>>> >>> 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: [email protected] >>>>> >>>> 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: [email protected] >>>>> >>> 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: [email protected] >>>>> >> 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: [email protected] >>>>> > 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: [email protected] >>>>> 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: [email protected] >>>> 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: [email protected] >>> 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: [email protected] >> 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: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
