But it can delete any session! Thanks!#!/usr/bin/perl -w use strict; use CGI qw(-oldstyle_urls :standard); use CGI::Session ( '-ip_match' ); use CGI::Carp qw(fatalsToBrowser); use vars qw($q); my $q = new CGI; $| = 1; my $sessionid = param( 'session' ) || ''; my $del_session; if($sessionid) { # here should delete the passed session $del_session = CGI::Session->load( "driver:File", $sessionid,{ Dir +ectory => '../sessions' } ) or die CGI::Session->errstr; # Delete session (if open) $del_session->delete() if ($del_session); $del_session->flush() if ($del_session); print $del_session->header(); print "done"; } else { # here should delete all sessions in directory $del_session = CGI::Session->load( "driver:File", undef,{ Dire +ctory => '../sessions' } ) or die CGI::Session->errstr; # Delete session (if open) $del_session->delete() if ($del_session); $del_session->flush() if ($del_session); print $del_session->header(); print "done"; }
In reply to Re^2: Delete Session Help!
by Anonymous Monk
in thread Delete Session Help!
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |