Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4933
Modified Files:
Package.pm
Log Message:
OIN-158: add functionality for removing all package files
Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -C2 -d -r1.56 -r1.57
*** Package.pm 17 Mar 2005 14:57:58 -0000 1.56
--- Package.pm 24 Mar 2005 05:49:27 -0000 1.57
***************
*** 599,602 ****
--- 599,617 ----
}
+ # removes all package files:
+ # - $WEBSITE_DIR/conf/package
+ # - $WEBSITE_DIR/template/package
+ # - $WEBSITE_DIR/pkg/package-x.yy
+
+ sub remove_files {
+ my ( $self, $website_dir ) = @_;
+ my $package_config = catdir( $website_dir, 'conf', $self->name );
+ my $package_template = catdir( $website_dir, 'template', $self->name );
+ my $package_dir = rel2abs( $self->directory );
+ for ( $package_config, $package_template, $package_dir ) {
+ $self->_remove_directory_tree( $_ );
+ }
+ }
+
########################################
***************
*** 1669,1672 ****
--- 1684,1707 ----
Returns: array of status hashrefs, with a single member.
+ B<remove_files( $website_dir )>
+
+ Removes all package files from C<$website_dir>. This includes:
+
+ =over 4
+
+ =item *
+
+ The package itself
+
+ =item *
+
+ The package's configuration files (C<$WEBSITE_DIR/conf/$PACKAGE>)
+
+ =item *
+
+ The package's template files (C<$WEBSITE_DIR/template/$PACKAGE>)
+
+ =back
+
B<get_spops_files()>
|
