[Cascavel-pm] "Carregar" session id.

[Rafael Lebrao Martins]

Bom dia, pessoal. Criei um código para gerar um session id, mas agora não
sei
como "carregar" esse id em todos os códigos do programa, permitindo o acesso
apenas
se o id estiver contido na url.

Esse código gera o ID:

#!/usr/bin/perl

use warnings;
use strict;
use CGI qw ( :standard);
use CGI::Session qw/-ip-match/;

my $file = '/var/www/cgi-bin/imm/sid.txt';
open( SID, '>', "$file" );

my $path_sessoes = '/tmp';
my $login;
my $session =
  new CGI::Session( "driver:File", undef, { 'Directory' => "$path_sessoes" }
);
$session->param( 'teste_tmg', "$login" );
$session->param( '_IDLE_EXPIRY' => time + 1800 );
$session->expire('+1d');
my $sid = $session->id();

print( SID "$sid" );
close(SID);
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080130/8a789295/attachment.html