Changeset 361
- Timestamp:
- 02/11/07 13:20:47 (2 years ago)
- Files:
-
- library/perl/trunk/Archer/examples/test.yaml (modified) (1 diff)
- library/perl/trunk/Archer/lib/Archer/Plugin.pm (added)
- library/perl/trunk/Archer/lib/Archer/Plugin/Rsync.pm (modified) (4 diffs)
- library/perl/trunk/Archer/lib/Archer/Plugin/SVN/Log.pm (modified) (1 diff)
- library/perl/trunk/Archer/lib/Archer/Plugin/SVN/Update.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
library/perl/trunk/Archer/examples/test.yaml
r358 r361 19 19 source: "[% work_dir %]/[% project %]" 20 20 dest: "[% server %]:[% dest_dir %]" 21 rsync_option: 22 exclude: 23 - test 21 exclude: 22 - test 24 23 25 24 projects: library/perl/trunk/Archer/lib/Archer/Plugin/Rsync.pm
r359 r361 17 17 $dest = $self->templatize($dest); 18 18 19 delete $self->{config}->{source}; 20 delete $self->{config}->{dest}; 21 19 22 my %defaults = ( 20 23 archive => 1, … … 24 27 exclude => [ '.svn/' ], 25 28 rsh => 'ssh', 29 source => $source, 30 dest => $dest, 26 31 ); 27 32 28 my $option = $self->{config} ->{rsync_option}|| {};33 my $option = $self->{config} || {}; 29 34 my $rsync = File::Rsync->new({ 30 35 %defaults, 31 36 %$option, 32 source => $source,33 dest => $dest,34 37 }); 35 38 … … 53 56 source: "[% work_dir %]/[% project %]" 54 57 dest: "[% server %]:[% dest_dir %]" 55 rsync_option: 56 archive: 1 57 compress: 1 58 rsh: ssh 59 update: 1 60 delete: 1 61 exclude: 62 - .svn/ 58 archive: 1 59 compress: 1 60 rsh: ssh 61 update: 1 62 delete: 1 63 exclude: 64 - .svn/ 63 65 64 66 =head1 DESCRIPTION … … 68 70 =head1 CONFIG 69 71 70 =head2 source 71 72 Source path.Default is [% work_dir %]/[% project %]. 73 74 =head2 dest 75 76 Destination host and path. Default is [% server %]:[% dest_dir %]. 77 78 =head2 rsync_option 79 80 Options passed to File::Rsync object.Defaults are: 81 82 archive: 1 83 update: 1 84 compress: 1 85 delete: 1 86 rsh: ssh 87 exclude 88 - .svn/ 72 See L<File::Rsync>. 89 73 90 74 =head1 AUTHORS library/perl/trunk/Archer/lib/Archer/Plugin/SVN/Log.pm
r360 r361 18 18 $rev = $1 + 1 if $rev =~ /Revision: (\d+)/; 19 19 20 my $s a= SVN::Agent->load({ path => $path });21 print $s a->log('-v', "-r$rev:HEAD");20 my $svn = SVN::Agent->load({ path => $path }); 21 print $svn->log('-v', "-r$rev:HEAD"); 22 22 } 23 23 library/perl/trunk/Archer/lib/Archer/Plugin/SVN/Update.pm
r360 r361 14 14 $path = $self->templatize($path); 15 15 16 my $s a= SVN::Agent->load({ path => $path });17 $s a->update;16 my $svn = SVN::Agent->load({ path => $path }); 17 $svn->update; 18 18 } 19 19
