<div>Bom dia, Otávio.. Vou prestar atenção nisso.. Mas o que não estou conseguindo fazer é "carregar" o session id gerado por esse código, para todos os outros códigos do programa. Da forma como está hoje, se o usuário souber o endereço da página de configuração, por exemplo, é só digitar no browser e acessar, não sendo necessária a autenticação. </div>
<div><br><br> </div>
<div><span class="gmail_quote">2008/1/30, Otávio Fernandes <<a href="mailto:otaviof@gmail.com">otaviof@gmail.com</a>>:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Rafael, bom dia,<br><br>Nao vejo erros na utilizacao do session ID. Durante a execucao do seu<br>codigo apenas corrigi um erro:<br>
<br>otavio@nexus6:/tmp$ perl lembrao.pl<br>Use of uninitialized value in string at lembrao.pl line 16.<br>print() on closed filehandle SID at lembrao.pl line 21.<br><br>Depois de corrigir, o seu codigo ficou assim:<br><br>
#!/usr/bin/env perl<br><br>use warnings;<br>use strict;<br><br>use CGI qw ( :standard );<br>use CGI::Session qw/-ip-match/;<br>use Data::Dumper;<br><br>my $file = '/tmp/teste_sid.txt';<br>open( my $SID, '>', "$file" );<br>
<br>my $path_sessoes = '/tmp';<br>my $login;<br><br>my $session = new CGI::Session( "driver:File", undef,<br> { 'Directory' => $path_sessoes } );<br><br>$session->param( 'teste_tmg', $login );<br>
$session->param( '_IDLE_EXPIRY' => time + 1800 );<br>$session->expire('+1d');<br><br>print Dumper $session;<br><br>my $sid = $session->id();<br><br>print $SID $sid, "\n";<br><br>close($SID);<br>
<br>__END__<br><br>E o conteudo do arquivo é:<br><br>otavio@nexus6:~/Sources/Perl/Examples$ cat /tmp/teste_sid.txt<br>e5e2d2806ca44635980d24ef2dd94a13<br><br>Portanto, acredito que voce soh tem que revisar o codigo com um pouco<br>
mais de atencao e verificar os erros que o interpretador te retorna.<br>Eh uma boa oportunidade de melhorar a sua identacao e utilizar o<br>Perltidy (com as opcoes -pbp e -ce) e o Perl Critic.<br><br>Atenciosamente,<br><br>
--<br>| --<br>| Otávio Fernandes < otaviof | gmail | com ><br>| FreeBSD 7.0-PRERELEASE && GNU/Linux User: 283.396<br>| (( Especial Programação )) <a href="http://geekbr.podcastbrasil.com/">http://geekbr.podcastbrasil.com/</a> -- 0.15<br>
| --<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</blockquote></div><br>