Eduardo Maia você esta correto :) valeu.
Em 2 de julho de 2012 19:29, Lucas Moraes <[email protected]> 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 > <[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
