Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28092
Modified Files:
RemovePackage.pm
Log Message:
OIN-158: add option for removing all package directories
Index: RemovePackage.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/RemovePackage.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** RemovePackage.pm 17 Mar 2005 14:58:04 -0000 1.7
--- RemovePackage.pm 24 Mar 2005 05:31:01 -0000 1.8
***************
*** 22,28 ****
--- 22,40 ----
website_dir => $self->_get_website_dir_param,
package => $self->_get_package_param,
+ full_remove => {
+ description =>
+ 'Flag to indicate whether we should also remove package files',
+ is_required => 'no',
+ do_validate => 'no',
+ is_boolean => 'yes',
+ },
};
}
+ sub setup_task {
+ my ( $self ) = @_;
+ $self->_setup_context({ skip => 'read packages' });
+ }
+
sub run_task {
my ( $self ) = @_;
***************
*** 34,38 ****
next unless ( $name );
my $package = $repository->fetch_package( $name );
! eval { $repository->remove_package( $package ) };
my $action = "remove package $name";
if ( $@ ) {
--- 46,53 ----
next unless ( $name );
my $package = $repository->fetch_package( $name );
! eval {
! $repository->remove_package( $package );
! $package->remove_files( $self->param( 'website_dir' ) );
! };
my $action = "remove package $name";
if ( $@ ) {
|
