Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7297/lib/OpenInteract2/Manage/Package
Modified Files:
CreatePackage.pm
Log Message:
OIN-121: modify package creation task to not require source_dir
Index: CreatePackage.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package/CreatePackage.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** CreatePackage.pm 13 Jun 2004 18:19:54 -0000 1.13
--- CreatePackage.pm 3 Feb 2005 02:13:24 -0000 1.14
***************
*** 29,36 ****
do_validate => 'yes',
},
- source_dir => {
- description => $self->get_param_description( 'source_dir' ),
- is_required => 'yes',
- },
};
}
--- 29,32 ----
***************
*** 50,60 ****
# TASK
- sub setup_task {
- my ( $self ) = @_;
- my $sample_dir = File::Spec->catdir( $self->param( 'source_dir' ),
- 'sample', 'package' );
- $self->param( sample_dir => $sample_dir );
- }
-
sub run_task {
my ( $self ) = @_;
--- 46,49 ----
***************
*** 64,69 ****
my $package_name = $self->param( 'package' )->[0];
my $package = OpenInteract2::Package->create_skeleton({
! name => $package_name,
! sample_dir => $self->param( 'sample_dir' )
});
my $msg = sprintf( 'Package %s created ok in %s',
--- 53,57 ----
my $package_name = $self->param( 'package' )->[0];
my $package = OpenInteract2::Package->create_skeleton({
! name => $package_name,
});
my $msg = sprintf( 'Package %s created ok in %s',
***************
*** 92,99 ****
my $package_dir = '/home/me/work/pkg';
my $package_name = 'dev_package';
- my $source_dir = '/home/httpd/OpenInteract-2.0';
my $task = OpenInteract2::Manage->new(
'create_package', { package_dir => $package_dir,
- source_dir => $source_dir,
package => $package_name } );
my @status = $task->execute;
--- 80,85 ----
|
