CGI::Session wierd

[Cristi Ocolisan]

Hi all,

 

I have a strange problem.

 

I designed and coded a website for a client of mine (www.gimex.ro).

This site worked fine for a wile (about 6 months).

Then, last week-end I noticed that the site stoped working.

I thought a good old hacker messed up some things in my site. Wrong.

 

The problem was that the administrators of the server where I hosted this site upgraded the version of perl from 5.8.3 to 5.8.4 and CGI::Session does not work anymore.

 

Does anyone know problems between CGI::Session (version 3.95) and perl 5.8.4?

Or the problem is my code?

 

Anyway my code for starting session is:

 

#!/usr/bin/perl
use CGI;
my $q = new CGI;

 

use setup;

use strict;

 

use CGI::Session; 
my $sid = $q->cookie('CGISESSID') || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>$setup::director_sesiuni});
$sid = $session->id();
my $client = $session->param("client");
if ($client ne ''){
print $q->header;
}

if ($client eq ''){
$cookie = $q->cookie(CGISESSID => $session->id);
print $q->header( -cookie=>$cookie );
}

 

Thanks in advance for any advice.

Cristi Ocolisan

-- 
This message was scanned for spam and viruses by BitDefender.
For more information please visit http://linux.bitdefender.com/


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>