Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Variable cleanup.

Browse Source
This commit is contained in:
Chris 2014-02-01 19:13:10 +00:00
parent b80b3bd241
commit 91e3e2980d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Webperl/SessionHandler.pm
View File

@ -359,6 +359,14 @@ sub delete_session {
$nukesess -> execute($self -> {"sessid"}, $self -> {"sessuser"})
or return set_error("Unable to remove session\nError was: ".$self -> {"dbh"} -> errstr);
# Remove any variables associated with the session
if($self -> {"settings"} -> {"database"} -> {"session_variables"}) {
my $nukevars = $self -> {"dbh"} -> prepare("DELETE FROM ".$self -> {"settings"} -> {"database"} -> {"session_variables"}.
" WHERE session_id = ?");
$nukevars -> execute($self -> {"sessid"})
or return set_error("Unable to remove session variables\nError was: ".$self -> {"dbh"} -> errstr);
}
# If we're not dealing with anonymous, we need to store the visit time,
# and nuke any autologin key for the now defunct session
if($self -> {"sessuser"} != $self -> {"auth"} -> {"ANONYMOUS"}) {