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); } }
In reply to Delete already expired CGI Sessions by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |