Need help on Session module please

[rajiv07]

I have some problem in session loading

[PHP]use CGI;
use CGI::Session;
use CGI::Cookie;

my $session = "" ;

my $sid = "" ;

$sid = _CheckCookie1() ;

if($sid eq "")
{
$session = new CGI::Session("d river:File", $cgi, {Directory=>'/tmp'});

my $server = $ENV{'HTTP_HOST '};

my $path = "/";

$sid = $session->id();

print "Set-Cookie: CGISESSID\=$sid ; path\=$path; domain\=$server \n" ;
}
else
{
$session = new CGI::Session(un def, $sid, {Directory=>'/tmp'});
}


sub _CheckCookie1
{
use CGI::Cookie;

my $q = new CGI ;

my $c = new CGI::Cookie;

my %cookies;

my $cString = "" ;

%cookies = fetch CGI::Cookie;

$x = $cookies{CGISES SID};

my @temp = split(/CGISESSID\=/,$x);

my @temp1 = split(/\;/,$temp[1]);

my $cUser1 = $temp1[0];

return $cUser1 ;
}[/PHP]

when i execute this code it gives the following error

Can't locate object method "generate_i d" via package "CGI::Session:: ID::" (perhaps you forgot to load "CGI::Session:: ID::"?) at C:/Perl/lib/CGI/Session.pm line 74.


Please help me.

Thank in advance.

[numberwhun]

I have some problem in session loading

use CGI;
use CGI::Session;
use CGI::Cookie;
 
my $session = "" ;
 
my $sid = "" ;
 
$sid = _CheckCookie1();
 
if($sid eq "")
{
 $session = new CGI::Session("driver:File", $cgi, {Directory=>'/tmp'});
 
 my $server = $ENV{'HTTP_HOST'};
 
 my $path = "/";
 
 $sid = $session->id();
 
 print "Set-Cookie: CGISESSID\=$sid; path\=$path; domain\=$server\n" ;
}
else
{
 $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'});
}
 
 
sub _CheckCookie1
{
 use CGI::Cookie;
 
 my $q = new CGI ;
 
 my $c = new CGI::Cookie;
 
 my %cookies;
 
 my $cString = "" ;
 
 %cookies = fetch CGI::Cookie;
 
 $x = $cookies{CGISESSID};
 
 my @temp = split(/CGISESSID\=/,$x);
 
 my @temp1 = split(/\;/,$temp[1]);
 
 my $cUser1 = $temp1[0];
 
 return $cUser1 ;
}

when i execute this code it gives the following error

Can't locate object method "generate_i d" via package "CGI::Session:: ID::" (perhaps you forgot to load "CGI::Session:: ID::"?) at C:/Perl/lib/CGI/Session.pm line 74.


Please help me.

Thank in advance.

Just a shot in the dark, but have you tried loading the module CGI::Session::I D from CPAN and re-running?

Regards,

Jeff

[rajiv07]

Thanks for your reply

I have load CGI::Session::I D::md5 (- default CGI::Session ID generator) module and re-run also it giving the same error.

Is any idea please.

[KevinADC]

The error message is coming from the Session.pm module. You should not have to add any code to your main script to get that to work. Do you have Digest::MD5 installed?

[avarix]

CGI::Session dynamically loads all drivers.
Try to check which drivers are used to store session state (CGI::Session:: Driver::memcach ed_mysql for example).
CGI::Session is derived from CGI::Session::E rrorHandler, so you can get a real error message with errstr().