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

Export a method from Workflow::Activity for timeouts and use it in all current Workflows

Browse source
This commit is contained in:
Colin Kuskie 2008-08-30 20:34:52 +00:00
parent 85ecaa9a09
commit 726bd5ee05
12 changed files with 36 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Workflow/Activity/DeleteExpiredSessions.pm
View file

@ -70,13 +70,14 @@ sub execute {
my $self = shift;
my $sth = $self->session->db->read("select sessionId from userSession where expires<?",[time()]);
my $time = time();
my $ttl = $self->getTTL;
while (my ($sessionId) = $sth->array) {
my $session = WebGUI::Session->open($self->session->config->getWebguiRoot, $self->session->config->getFilename, undef, undef, $sessionId, 1);
if (defined $session) {
$session->var->end;
$session->close;
}
if ((time() - $time) > 55) {
if ((time() - $time) > $ttl) {
$sth->finish;
return $self->WAITING;
}