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

6
lib/WebGUI/Workflow/Activity/DeleteExportedFiles.pm
View file

@ -93,18 +93,20 @@ sub execute {
my @files = @$filesRef;
my @dirs = @{$instance->getScratch(PRUNE_DIRS_SCRATCH) || []};
my $ttl = $self->getTTL;
while (defined(my $filename = shift @files)) {
my $cfilename = $self->_canonExportPath($filename);
unlink $cfilename or $self->session->errorHandler->warn("DeleteExportedFiles: Couldn't unlink $filename: $!"), next;
push @dirs, $self->_pruneOfFile($filename);
goto pause if (time - $time > 55);
goto pause if (time - $time > $ttl);
}
my $ttl = $self->getTTL;
while (defined(my $dirname = shift @dirs)) {
my $cdirname = $self->_canonExportPath($dirname);
rmdir $cdirname or $self->session->errorHandler->warn("DeleteExportedFiles: couldn't rmdir $dirname: $!"), next;
push @dirs, $self->_pruneOfFile($dirname);
goto pause if (time - $time > 55);
goto pause if (time - $time > $ttl);
}
done: