|
same problem i faced under mod_perl2(registry script without +GlobalRequest) + mysql driver..
after some time i solve my troubles..
here is "principal" truncated example:
$q = new CGI($r);
....
$session = new CGI::Session("driver:mysql", $self->get_session_id() || $q, {Handle=>$dbh});
....
$session->flush;
....
$dbh->disconnect;
....
sub get_session_id {
my $self = shift;
my %cookie = CGI::Cookie->fetch($self->{r});
if ($cookie{CGISESSID}) {return $cookie{CGISESSID}->value;}
return undef;
}
|
