- Made exipred sessions workflow activity more fault tollerant.

- Made rss fetching more fault tollerant.
This commit is contained in:
JT Smith 2007-02-01 00:26:15 +00:00
parent e1bd43b02e
commit caf859129d
3 changed files with 9 additions and 3 deletions

View file

@ -69,14 +69,18 @@ See WebGUI::Workflow::Activity::execute() for details.
sub execute {
my $self = shift;
my $sth = $self->session->db->read("select sessionId from userSession where expires<?",[time()]);
my $time = time();
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) {
$sth->finish;
return $self->WAITING;
}
}
$sth->finish;
return $self->COMPLETE;
}