Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Thanks!... if($del_sessions=~ /^cgisess_[a-f0-9]{32}$/) { my $session = CGI::Session->load( "driver:File", $del_sessions,{ D +irectory => '/sessions' } ) or die "$!"; # Delete session if ( $session->is_expired ) { $session->delete() if ($session); $session->flush() if ($session); } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Delete already expired CGI Sessions
by Anonymous Monk on Jan 16, 2011 at 06:09 UTC |