[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage/Website UpdatePackageFromWebsite.pm,1.3,1.4

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

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28477/lib/OpenInteract2/Manage/Website

Modified Files:
	UpdatePackageFromWebsite.pm 
Log Message:
get rid of File::DirSync and use the newly-created method from OI2::Package to copy the files over


Index: UpdatePackageFromWebsite.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/UpdatePackageFromWebsite.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UpdatePackageFromWebsite.pm	2 Feb 2005 16:17:27 -0000	1.3
--- UpdatePackageFromWebsite.pm	8 Feb 2005 01:38:52 -0000	1.4
***************
*** 5,9 ****
  use strict;
  use base qw( OpenInteract2::Manage::Website );
- use File::DirSync;
  use File::Spec::Functions  qw( catfile );
  use OpenInteract2::Context qw( CTX );
--- 5,8 ----
***************
*** 102,123 ****
  sub _sync_dirs {
      my ( $self ) = @_;
- 
      my $package = $self->param( 'package_object' );
!     my $site_package_dir = $package->directory;
! 
!     my $dirsync = File::DirSync->new({
!         src       => $site_package_dir,
!         dst       => $self->param( 'package_dir' ),
!         verbose   => 0,
!         nocache   => 0,
!         localmode => 0,
!     });
!     $dirsync->ignore( 'CVS' );
!     $dirsync->ignore( '.svn' );
!     $dirsync->dirsync();
!     $self->_add_status(
!         $self->_create_sync_status( $dirsync, $site_package_dir )
!     );
!     return 1;
  }
  
--- 101,108 ----
  sub _sync_dirs {
      my ( $self ) = @_;
      my $package = $self->param( 'package_object' );
!     my $source_dir = $package->directory;
!     my $status = $package->copy_contents_to( $self->param( 'package_dir' ) );
!     $self->_set_copy_file_status( $status );
  }
  
***************
*** 125,131 ****
      my ( $self ) = @_;
      my $action = 'write changelog';
- 
      my $package = $self->param( 'package_object' );
- 
      my $changes = OpenInteract2::Config::PackageChanges->new({
          package => $package,
--- 110,114 ----