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

Fix PurgeOldTrash, and force it to follow TTL checking.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-27 22:36:35 -08:00
parent 872dcfceab
commit 7bb09ae30d
1 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Workflow/Activity/PurgeOldTrash.pm
View file

@ -18,6 +18,7 @@ package WebGUI::Workflow::Activity::PurgeOldTrash;
use strict;
use base 'WebGUI::Workflow::Activity';
use WebGUI::Asset;
use WebGUI::Exception;
=head1 NAME
@ -75,13 +76,26 @@ See WebGUI::Workflow::Activity::execute() for details.
=cut
sub execute {
my $self = shift;
my $sth = $self->session->db->read("select assetId,className from asset where state='trash' and stateChanged < ?", [time() - $self->get("purgeAfter")]);
while (my ($id, $class) = $sth->array) {
my $asset = WebGUI::Asset->new($self->session, $id,$class);
$asset->purge if (defined $asset);
my $self = shift;
my $session = $self->session;
my $sth = $session->db->read("select assetId,className from asset where state='trash' and stateChanged < ?", [time() - $self->get("purgeAfter")]);
my $start = time();
my $ttl = $self->getTTL;
ASSET: while (my ($id, $class) = $sth->array) {
my $asset = eval { WebGUI::Asset->newById($session, $id); };
if (Exception::Class->caught()) {
$session->log->warn("Unable to instanciate assetId $id: $@");
next ASSET;
}
return $self->COMPLETE;
$asset->purge;
if (time() - $start > $ttl) {
$session->log->info("Ran out of time processing");
$sth->finish;
return $self->WAITING(1);
}
}
$sth->finish;
return $self->COMPLETE;
}