Recently I installed the Apache::Session module on my server in order
to give a kind of identity to my e-shop visitors, seems to work but
generates different session ids when I reload the bellow test cgi.
What can I do in order to have my visitor the same session id, up to
close his web browser.
#!/usr/bin/perl
use CGI;
use Apache::Session::File;
my $query = new CGI;
my %session;
my $id = undef;
$id = $query->cookie(-name=>"SID01");
tie %session, 'Apache::Session::File', $id,
{ Directory => "/tmp/",
LockDirectory => "/tmp/"};
if ($id == undef) {
$cookie = $query->cookie( -name=>'SID01',
-value=>$session{_session_id},
-expires=>'+1y',
-path=>'/session');
print $query->header(-cookie=>$cookie);
print "Assigned session ID<br>n";
} else {
print $query->header();
print "Not assigned session ID<br>n";
};
$id = $session{_session_id};
print "<html>n";
print " <head><title>Session ID</title></head>n";
print " <body bgcolor=#ffffff>n";
print " Your session ID is $idn";
print " </body>n";
print "</html>n";
thank you in advance
Minas
