You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
633 B
28 lines
633 B
package NGCP::CDR::Transfer;
|
|
|
|
use File::Basename;
|
|
use Net::SFTP::Foreign;
|
|
|
|
sub sftp {
|
|
my ($src, $host, $port, $dir, $user, $pass) = @_;
|
|
|
|
my $sftp = Net::SFTP::Foreign->new(
|
|
host => $host,
|
|
port => $port,
|
|
user => $user,
|
|
password => $pass,
|
|
timeout => 3,
|
|
#password_prompt => qr/password:/,
|
|
);
|
|
if($sftp->error) {
|
|
die "+++ failed to transfer $src to $user\@$host:$port/$dir: " . $sftp->error . "\n";
|
|
}
|
|
|
|
my $fname = basename($src);
|
|
print "### transferring $src to $user\@$host:$port at $dir/$fname\n";
|
|
$sftp->setcwd($dir);
|
|
$sftp->put($src, $fname);
|
|
}
|
|
|
|
1;
|