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