problem loading session

[rajiv07]

use CGI;
use DBI;
use CGI::Session;
use CGI::Cookie;
use CGI::Carp qw(fatalsToBrowser);
 
my $q = new CGI;
 
my $c = new CGI::Cookie;
 
my $session = "" ;
 
my $sid = "" ;
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'});
}
 
 
my $cUser = $session->param("user");
 
if ($cUser eq "") {
    $cUser = $sid;
}
 
$session->param("id", $sid);
 
#
 
if (($cAmount eq "") && ($cQty eq "") && ($cAction eq "") && ($aAmount eq "")) {
    my $cTempFile="../buyegv/templates/buygc_temp.html";
    my $cTemplate=_ReadFile($cTempFile);
 
    $cTemplate=~ s/__CURRENCY__/$cCurrency/ig;
 
    print "Content-type: text/html\n\n";
    print $cTemplate;
    exit;
}
 
 
if (($cAction eq "calculate") && ($aAmount eq "")) {
    my $cTotalPrice = $cAmount*$cQty;
    my $cGc="BuyGc";
    $session->param("amount",$cTotalPrice);
    $session->param("buygc",$cGc);
    #$session->param("id",$sid);
    $session->expires("+12h");
}
 

Here when i run this script first time it's running,but after session id is store
again i run this script it wii give session error like "cannot locate session here"

please help me
thank u

[KevinADC]

where is $cgi defined?

$session = new CGI::Session("driver:File", $cgi, {Directory=>'/tmp'});

[miller]

Kevin is right. $cgi is probably a typo of $c.

I strongly encourage you to add the strict pragma to the beginning of all of your scripts. That would have caught that simple mistake. You're already doing a good job by defining all of your variables with "my", so let perl help you out.

use strict;
 

- Miller

[rajiv07]

Hi,
After i defined $cgi like
my $cgi=new CGI;

also it gives the same error

please help me.
thank u.

[rajiv07]

use CGI;
use CGI::Session;
use CGI::Cookie;

my $cgi=new CGI;
my $c=new CGI::Cookie;

$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'});
}
$session->param("id", $sid);
$session->expire('+12h');
Problem In Session

Is Anythig i have to modify above code
please help me
thank U.