perl cgi::session如何判断session已过期？

djq1976

use CGI::Session;
     use DBI;
     my $dbh=DBI->;connect("dbi:mysql:exam",$dbuser,$dbpass);
     my $session = new CGI::Session("driver:MySQL", $sid, {Handle=>;$dbh});
my $sid=$session->;id();
                   $session->;param('username',$username);
                   $session->;param('utype', $type);
                   $session->;expire('+60s');
                   $dbh->;disconnect();

请高手指点，并请指点在每个页面里面session的使用方法，也就是说判断已经登录了，而不是盗用sid，想写成require login.pl的形式，可如果往mod_perl转好像不太方便，请指教，估计也是大多数初学者的问题。

Qiang

http://search.cpan.org/~sherzodr/CGI-Session-3.95/Session.pm CGI::Session 文档里详细有说 :

expire($time)

Second form sets an expiration time. This value is checked when previously stored session is asked to be retrieved, and if its expiration date has passed will be expunged from the disk immediately and new session is created accordingly. Passing 0 would cancel expiration date.

session 以前在这里讨论过了.
http://chinaunix.net/jh/25/246481.html
http://bbs.chinaunix.net/forum/viewtopic.php?t=482234&show_type=new

yzcdf

难啊！！

superdoctor

设置一个超时时间就可以了，此session到了时间后会将服务器端的session删除，使用时没有任何特殊的地方