cgi::session session cleanup..

[travs69]

If you are running cgi::session using files how are you handling old session files hanging around? I have no problem writing something that looks to see if the files >3 hours old and deleting it.. but I just figured there might be something built into cgi::session to do it for me. I plan on migrating to a DBI instead of files. Will I still have to do my old cleanup?

 

[travs69]

I just found
CGI::Session::ExpireSessions

but didn't know if anyone was using it and if they had any comments..

 

[MAWarGod]

I have a chat that writes session and I remove them this way

my $my_session_dir = my/path

sub RemoveOldSessions
{
local(@files, $file);
# Open up the session directory.
opendir(SESSIONDIR, "$my_session_dir");
# read all entries except "." and ".."
@files = grep(!/^\.\.?$/,readdir(SESSIONDIR));
closedir(SESSIONDIR);                 
                         
# Go through each file
foreach $file (@files)
        {
# If it is older than session_length, delete it
# Note that the filename needs to be untainted before removing.
        if ($file =~ /([\w-.]+)/) {
            $file = $1;
        } else {
            $file = ".dat";
        }
        if (-M "$my_session_dir/$file" > $my_session_length)
                {
                unlink("$my_session_dir/$file");
                }

        }
} # End of RemoveOldSessions

MA WarGod

I believe if someone can think it, it can be programmed