From 2c6fef07427621026b7e8b5f71376f6575fb3241 Mon Sep 17 00:00:00 2001 From: Chris Date: Thu, 15 Sep 2011 11:56:08 +0100 Subject: [PATCH] Updated session handler gc settings name to be more unique. --- SessionHandler.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SessionHandler.pm b/SessionHandler.pm index e787aed..db54e5d 100644 --- a/SessionHandler.pm +++ b/SessionHandler.pm @@ -444,9 +444,9 @@ sub session_cleanup { my $timelimit = $now - $self -> {"auth"} -> get_config("session_length"); # We only want to run the garbage collect occasionally - if($self -> {"settings"} -> {"config"} -> {"lastgc"} < $now - $self -> {"auth"} -> get_config("session_gc")) { + if($self -> {"settings"} -> {"config"} -> {"Session:lastgc"} < $now - $self -> {"auth"} -> get_config("session_gc")) { # Okay, we're due a garbage collect, update the config to reflect that we're doing it - $self -> {"settings"} -> set_db_config($self -> {"dbh"}, $self -> {"settings"} -> {"database"} -> {"settings"}, "lastgc", $now); + $self -> {"settings"} -> set_db_config($self -> {"dbh"}, $self -> {"settings"} -> {"database"} -> {"settings"}, "Session:lastgc", $now); # Remove expired guest sessions first my $nukesess = $self -> {"dbh"} -> prepare("DELETE FROM ".$self -> {"settings"} -> {"database"} -> {"sessions"}.