Added session scratch variable system for developers.
This commit is contained in:
parent
f14a0c707b
commit
0b5d1ccc74
3 changed files with 30 additions and 0 deletions
|
|
@ -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());
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue