[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.56,1.57

[Chris W. <la...@us...>]

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()>