sub session_create { my ($obj, $dbh, $userid) = @_; my $mydbh = $dbh; unless($mydbh) { $mydbh = &libyn::DB::connect_to_db($obj); } $CGI::Session::MySQL::TABLE_NAME = $libyn::Config::DbTables{sessions}; my $session = CGI::Session->new("driver:MySQL", $obj->{-cgi}, { Handle => $mydbh }) or die "CGI::Session->new failed."; $session->name('sessionId'); $session->expire('+1h'); $session->param('userId', $userid); unless($dbh) { $mydbh->disconnect(); } return $session; } #### CREATE TABLE yn_sessions ( id varchar(32) NOT NULL default '', a_session text NOT NULL, userId bigint(20) default NULL, UNIQUE KEY id (id) ) TYPE=MyISAM;