<p>Bom dia, pessoal. Criei um código para gerar um session id, mas agora não sei <br>como "carregar" esse id em todos os códigos do programa, permitindo o acesso apenas<br>se o id estiver contido na url. </p>
<p>Esse código gera o ID:</p>
<p>#!/usr/bin/perl</p>
<p>use warnings;<br>use strict;<br>use CGI qw ( :standard);<br>use CGI::Session qw/-ip-match/;</p>
<p>my $file = '/var/www/cgi-bin/imm/sid.txt';<br>open( SID, '>', "$file" );</p>
<p>my $path_sessoes = '/tmp';<br>my $login;<br>my $session =<br> new CGI::Session( "driver:File", undef, { 'Directory' => "$path_sessoes" } );<br>$session->param( 'teste_tmg', "$login" );<br>
$session->param( '_IDLE_EXPIRY' => time + 1800 );<br>$session->expire('+1d');<br>my $sid = $session->id();</p>
<p>print( SID "$sid" );<br>close(SID);<br></p>