<p>Bom dia, pessoal. Criei um código para gerar um session id, mas agora não sei <br>como &quot;carregar&quot; 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 = &#39;/var/www/cgi-bin/imm/sid.txt&#39;;<br>open( SID, &#39;&gt;&#39;, &quot;$file&quot; );</p>
<p>my $path_sessoes = &#39;/tmp&#39;;<br>my $login;<br>my $session =<br>&nbsp; new CGI::Session( &quot;driver:File&quot;, undef, { &#39;Directory&#39; =&gt; &quot;$path_sessoes&quot; } );<br>$session-&gt;param( &#39;teste_tmg&#39;, &quot;$login&quot; );<br>
$session-&gt;param( &#39;_IDLE_EXPIRY&#39; =&gt; time + 1800 );<br>$session-&gt;expire(&#39;+1d&#39;);<br>my $sid = $session-&gt;id();</p>
<p>print( SID &quot;$sid&quot; );<br>close(SID);<br></p>