Added session scratch variable system for developers.

This commit is contained in:
JT Smith 2002-11-08 04:28:27 +00:00
parent f14a0c707b
commit 0b5d1ccc74
3 changed files with 30 additions and 0 deletions

View file

@ -16,6 +16,11 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub process {
my $sth = WebGUI::SQL->read("select sessionId from userSession where expires<".time());
while (my ($sessionId) = $sth->array) {
WebGUI::SQL->write("delete from userSessionScratch where sessionId=".quote($sessionId));
}
$sth->finish;
WebGUI::SQL->write("delete from userSession where expires<".time());
}