My implementation of Apache::Session::MySQL dies along the way, and gives unclear warning. [error] Died at /usr/lib/perl5/site_perl/5.8.0/Apache/Session/Generate/MD5.pm line 40. I decided to implement session as a module call Store::Session, so as to minimize recoding it in many script. Babs
############################################################################# # Program: # Author: Babale Fongo # # Date: 01-03-2004 # # Description: Module for database connections. # # Copyright (c) Babale Fongo # # Email: [EMAIL PROTECTED] # # Web: http://www.domain name.com # # ======================================================================= # # # # <<< Technical information >>>> # # # # # ############################################################################# ##################################################### # Beginning of the script. # ##################################################### package Store::Session; use vars qw(@ISA @EXPORT); use Exporter; @ISA = qw(Exporter); @EXPORT = qw(new getId closeSession deleteObject); use strict; use Apache::Session::MySQL; ############################################# # Start a new session ############################################## sub new { my ($dbh, $session_id) = @_; my %session; tie %session, "Apache::Session::MySQL", $session_id,{ Handle => $dbh, LockHandle => $dbh }; return;#(\%session); } 1;
shop
Description: Perl program
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
