oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed some timing problems as well as a bug that moved expired content to the trash unexpectedly.

Browse source
This commit is contained in:
JT Smith 2003-01-22 01:37:17 +00:00
parent dd32a855f1
commit 790ced95b6
5 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
sbin/Hourly/CleanLoginHistory.pm
View file

@ -12,6 +12,7 @@ package Hourly::CleanLoginHistory;
use strict; use strict;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;

1
sbin/Hourly/DeleteExpiredEvents.pm
View file

@ -12,6 +12,7 @@ package Hourly::DeleteExpiredEvents;
use strict; use strict;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;

1
sbin/Hourly/DeleteExpiredGroupings.pm
View file

@ -11,6 +11,7 @@ package Hourly::DeleteExpiredGroupings;
#------------------------------------------------------------------- #-------------------------------------------------------------------
use strict; use strict;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;

6
sbin/Hourly/DeleteExpiredSessions.pm
View file

@ -11,17 +11,19 @@ package Hourly::DeleteExpiredSessions;
#------------------------------------------------------------------- #-------------------------------------------------------------------
use strict; use strict;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub process { sub process {
my $sth = WebGUI::SQL->read("select sessionId from userSession where expires<".time()); my $epoch = time();
my $sth = WebGUI::SQL->read("select sessionId from userSession where expires<".$epoch);
while (my ($sessionId) = $sth->array) { while (my ($sessionId) = $sth->array) {
WebGUI::SQL->write("delete from userSessionScratch where sessionId=".quote($sessionId)); WebGUI::SQL->write("delete from userSessionScratch where sessionId=".quote($sessionId));
} }
$sth->finish; $sth->finish;
WebGUI::SQL->write("delete from userSession where expires<".time()); WebGUI::SQL->write("delete from userSession where expires<".$epoch);
} }
1; 1;

11
sbin/Hourly/TrashExpiredContent.pm
View file

@ -1,7 +1,5 @@
package Hourly::TrashExpiredContent; package Hourly::TrashExpiredContent;
my $offset = 0; # in seconds, time to wait before deleting
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -13,13 +11,18 @@ my $offset = 0; # in seconds, time to wait before deleting
#------------------------------------------------------------------- #-------------------------------------------------------------------
use strict; use strict;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::SQL; use WebGUI::SQL;
#----------------------------------------- #-----------------------------------------
sub process { sub process {
WebGUI::SQL->write("update page set parentId=3, endDate=endDate+31536000 where endDate<".(time()-(86400*$offset))); my $offset = $session{config}{TrashExpiredContent_offset};
WebGUI::SQL->write("update wobject set pageId=3, endDate=endDate+31536000 where endDate<".(time()-(86400*$offset))); if ($offset ne "") {
my $epoch = time()-(86400*$offset);
WebGUI::SQL->write("update page set parentId=3, endDate=endDate+31536000 where endDate<".$epoch);
WebGUI::SQL->write("update wobject set pageId=3, endDate=endDate+31536000 where endDate<".$epoch);
}
} }
1; 1;