From: Chris W. <la...@us...> - 2005-02-03 02:13:33
|
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 ---- |