CGI::Session対策

1
2
3
4
5
6
7
8
if (eval q{require "CGI::Session::MySQL"}) {
    # Ver3.xx
    $CGI::Session::MySQL::TABLE_NAME = $tablename;
    $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh});
} else {
    # Ver4.xx
    $session = CGI::Session->new("dr:mysql", $cgi, {Handle => $dbh, TableName => $tablename});
}

Comments

comments powered by Disqus