diff options
author | Gustavo De Nardin <spuk@mandriva.org> | 2007-05-08 06:00:57 +0000 |
---|---|---|
committer | Gustavo De Nardin <spuk@mandriva.org> | 2007-05-08 06:00:57 +0000 |
commit | 47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4 (patch) | |
tree | 19468b82491e1ec673f004afcafb07986741e609 /lib/Youri/Submit | |
parent | 267ff0d9584e91f20898b6d7366fc5b2505ad64c (diff) | |
download | mga-youri-submit-47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4.tar mga-youri-submit-47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4.tar.gz mga-youri-submit-47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4.tar.bz2 mga-youri-submit-47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4.tar.xz mga-youri-submit-47259e0e54a67a3dde3bfe0fd9b641fb0a636ff4.zip |
fixing the Big SVN Breakage: Scp.pm was changed into Send.pm
Diffstat (limited to 'lib/Youri/Submit')
-rw-r--r-- | lib/Youri/Submit/Action/Scp.pm | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/lib/Youri/Submit/Action/Scp.pm b/lib/Youri/Submit/Action/Scp.pm deleted file mode 100644 index bf4c2ac..0000000 --- a/lib/Youri/Submit/Action/Scp.pm +++ /dev/null @@ -1,72 +0,0 @@ -# $Id$ -package Youri::Submit::Action::Scp; - -=head1 NAME - -Youri::Submit::Action::Scp - upload package - -=head1 DESCRIPTION - -This action plugin uploads the package on uphost - -=cut - -use warnings; -use strict; -use Carp; -use base qw/Youri::Submit::Action/; - -sub _init { - my $self = shift; - my %options = ( - perms => 644, - uphost => '', - user => '', - ssh_key => '', - verbose => '', - @_ - ); - croak "undefined upload host" unless $options{uphost}; - croak "undefined ssh key" unless $options{ssh_key}; - - $self->{_perms} = $options{perms}; - $self->{_user} = $options{user}; - $self->{_uphost} = $options{uphost}; - $self->{_ssh_key} = $options{ssh_key}; - $self->{_verbose} = $options{verbose}; - - return $self; -} - -sub run { - my ($self, $package, $repository, $target, $define) = @_; - croak "Not a class method" unless ref $self; - - my $file = $package->get_file(); - my $dest = $repository->get_upload_dir($package, $target, $define); - - print "Scping file $file to $dest\n" if $self->{_verbose}; - my $base = basename($file); - - my $cmd = "scp -i $self->{_ssh_key} $file $self->{_user}\@$self->{_uphost}:/$dest$base.new"; - my $cmd2 = "ssh -i $self->{_ssh_key} $self->{_user}\@$self->{_uphost} \"mv /$dest$base.new /$dest$base\""; - print "Submit::Action::Scp: doing $cmd\n$cmd2\n" if 1 || $self->{_verbose}; - if (!$self->{_test}) { - if (!system($cmd)) { - if (!system($cmd2)) { - print "Submit::Action::Scp: upload succeeded!\n"; - return 1 - } - } - print "Submit::Action::Scp: upload failed!\n"; - } -} -=head1 COPYRIGHT AND LICENSE - -Copyright (C) 2002-2006, YOURI project - -This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. - -=cut - -1; |