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 <[email protected]> escreveu: > 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
