結局バージョンを見るしか…。

1
2
3
4
5
6
7
8
if ($CGI::Session::VERSION < 4)  {# Ver3.xx
    require CGI::Session::MySQL;
    $CGI::Session::MySQL::TABLE_NAME = "";# -w対策
    $CGI::Session::MySQL::TABLE_NAME = $tn->{session};
    $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh}); # クッキーやフォーム情報からIDを自動的に取得する。なければ新しく作成。
} else { # Ver4.xx
    $session = CGI::Session->new("dr:mysql", $cgi, {Handle => $dbh, TableName => $tn->{session}}); # クッキーやフォーム情報からIDを自動的に取得する。なければ新しく作成。
}
                             <p>4.xxでも、動作は確認した。</p>
1
2
if (eval q{require CGI::Session::MySQL}) {
...

Comments

comments powered by Disqus