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

Add workflow activity, workflow, and hooks for deletion of exported files

Browse source 
on asset trash, purge, and changeUrl.  This is kind of crufty.  :-\
This commit is contained in:
Drake 2006-11-03 01:21:50 +00:00
parent 9a61dd2f38
commit a1120bc987
8 changed files with 266 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

123
lib/WebGUI/Workflow/Activity/DeleteExportedFiles.pm Normal file
View file

@ -0,0 +1,123 @@
package WebGUI::Workflow::Activity::DeleteExportedFiles;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2006 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict;
use base 'WebGUI::Workflow::Activity';
use File::Spec::Functions qw/canonpath/;
require Storable;
=head1 NAME
Package WebGUI::Workflow::Activity::DeleteExportedFiles
=head1 DESCRIPTION
Deletes an asset's exported files. This must be added to a workflow
that passes the filenames to delete as auxiliary data.
=head1 SYNOPSIS
See WebGUI::Workflow::Activity for details on how to use any activity.
=cut
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session, "Workflow_Activity_DeleteExportedFiles");
push(@{$definition},
{
name => $i18n->get('activityName'),
properties => {}
});
return $class->SUPER::definition($session,$definition);
}
#-------------------------------------------------------------------
# Can use these from other places. Buggo: POD?
use constant DELETE_FILES_SCRATCH => 'Workflow_Activity_DeleteExportedFiles_deleteFiles';
use constant PRUNE_DIRS_SCRATCH => 'Workflow_Activity_DeleteExportedFiles_pruneDirs';
sub _canonExportPath {
my $self = shift;
my $path = shift;
$self->session->config->get('exportPath').'/'.canonpath($path);
}
sub _pruneOfFile {
my $self = shift;
my $filename = shift;
my $dirname = $filename;
if ($dirname =~ s(/[^/]+\z)()g) {
return ($dirname) unless glob(quotemeta($self->_canonExportPath($dirname)).'/*');
}
return ();
}
sub execute {
my $self = shift;
my $object = shift;
my $instance = shift;
unless ($self->session->config->get('exportPath')) {
$self->session->errorHandler->warn("DeleteExportedFiles: no export path, so not doing anything");
return $self->COMPLETE;
}
my $time = time;
my $filesRef = Storable::thaw($instance->getScratch(DELETE_FILES_SCRATCH));
unless ($filesRef) {
$self->session->errorHandler->error("DeleteExportedFiles: can't find list of files to delete");
return $self->ERROR;
}
my @files = @$filesRef;
my @dirs = @{$instance->getScratch(PRUNE_DIRS_SCRATCH) || []};
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);
}
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);
}
done:
$instance->deleteScratch(DELETE_FILES_SCRATCH);
$instance->deleteScratch(PRUNE_DIRS_SCRATCH);
return $self->COMPLETE;
pause:
$instance->setScratch(DELETE_FILES_SCRATCH, Storable::freeze(\@files));
$instance->setScratch(PRUNE_DIRS_SCRATCH, Storable::freeze(\@dirs));
return $self->WAITING;
}
1;