B
benjamin.m.morley
I've recently suffered through a windows meltdown. All of my
programming projects were backed up -- but my perl directory was not.
This, of course, meant I had to reinstall all of my perl packages -- as
well as Perl Development Kit. I updgraded my Perl in the process.
The project I'm working on involves Web Sessioning using CGI-Sessions.
It was working on my old version of Perl. Now, when I run the perl
script (.pl) it appears the CGI Sessioning works (it generates the ID
in the MySQL table) -- but after I compile it using PDK (Perlapp) it
does not work. Any suggestions?
I get no errors when compiling the pl.
Here's the relevant code.
use DBI;
use Time::localtime;
use Carp::Heavy;
use DBD::mysql;
use CGI;
use Apache:BI;
use CGI::Session;
use CGI::Session::MySQL;
use CGI::Session::ID::md5;
use CGI::Session::Serialize::default;
#database connection handle
my $dbh = DBI->connect("dbi:$dbms:$db:$server",
$username,
$pword,
{
PrintError => 0,
RaiseError => 1,
AutoCommit => 0
}
);
my $cgi = new CGI;
## cgi object
my $sid = $cgi->param('CGISESSID') || undef; ## get the
session ID
my $session = new CGI::Session("driver:mysql", undef,
{Handle=>$dbh});
programming projects were backed up -- but my perl directory was not.
This, of course, meant I had to reinstall all of my perl packages -- as
well as Perl Development Kit. I updgraded my Perl in the process.
The project I'm working on involves Web Sessioning using CGI-Sessions.
It was working on my old version of Perl. Now, when I run the perl
script (.pl) it appears the CGI Sessioning works (it generates the ID
in the MySQL table) -- but after I compile it using PDK (Perlapp) it
does not work. Any suggestions?
I get no errors when compiling the pl.
Here's the relevant code.
use DBI;
use Time::localtime;
use Carp::Heavy;
use DBD::mysql;
use CGI;
use Apache:BI;
use CGI::Session;
use CGI::Session::MySQL;
use CGI::Session::ID::md5;
use CGI::Session::Serialize::default;
#database connection handle
my $dbh = DBI->connect("dbi:$dbms:$db:$server",
$username,
$pword,
{
PrintError => 0,
RaiseError => 1,
AutoCommit => 0
}
);
my $cgi = new CGI;
## cgi object
my $sid = $cgi->param('CGISESSID') || undef; ## get the
session ID
my $session = new CGI::Session("driver:mysql", undef,
{Handle=>$dbh});