Pô, cara, tu tá imprimindo o header duas vezes. Tira esse print "Content-type: text/html\n\n";
2012/7/2 Lucas Moraes <[email protected]> > 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 >
=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
