hi.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
}
Irgendwie kommt kein Fehler; in der Tabelle in der Datenbank steht aber auch nix drin!
Die Tabelle in der DB hat folgende Struktur
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;
Laut Doku müsste id vom Typ CHAR sein; hab sie auch als CHAR angelegt und später auch versucht auf CHAR umzustellen; jedoch ohne Erfolg