Lines 230-243
sub ftp_download {
Link Here
|
230 |
) |
230 |
) |
231 |
or return $self->_abort_download( |
231 |
or return $self->_abort_download( |
232 |
undef, |
232 |
undef, |
233 |
"Cannot connect to $self->{account}->host: $EVAL_ERROR" |
233 |
"Cannot connect to " . $self->{account}->host . ": $EVAL_ERROR" |
234 |
); |
234 |
); |
235 |
$ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) |
235 |
$ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) |
236 |
or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); |
236 |
or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); |
237 |
$ftp->cwd( $self->{account}->download_directory ) |
237 |
$ftp->cwd( $self->{account}->download_directory ) |
238 |
or return $self->_abort_download( |
238 |
or return $self->_abort_download( |
239 |
$ftp, |
239 |
$ftp, |
240 |
"Cannot change remote dir : $ftp->message()" |
240 |
"Cannot change remote dir : " . $ftp->message() |
241 |
); |
241 |
); |
242 |
my $file_list = $ftp->ls() |
242 |
my $file_list = $ftp->ls() |
243 |
or return $self->_abort_download( $ftp, 'cannot get file list from server' ); |
243 |
or return $self->_abort_download( $ftp, 'cannot get file list from server' ); |
Lines 278-291
sub ftp_upload {
Link Here
|
278 |
) |
278 |
) |
279 |
or return $self->_abort_download( |
279 |
or return $self->_abort_download( |
280 |
undef, |
280 |
undef, |
281 |
"Cannot connect to $self->{account}->host: $EVAL_ERROR" |
281 |
"Cannot connect to " . $self->{account}->host . ": $EVAL_ERROR" |
282 |
); |
282 |
); |
283 |
$ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) |
283 |
$ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) |
284 |
or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); |
284 |
or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); |
285 |
$ftp->cwd( $self->{account}->upload_directory ) |
285 |
$ftp->cwd( $self->{account}->upload_directory ) |
286 |
or return $self->_abort_download( |
286 |
or return $self->_abort_download( |
287 |
$ftp, |
287 |
$ftp, |
288 |
"Cannot change remote dir : $ftp->message()" |
288 |
"Cannot change remote dir : " . $ftp->message() |
289 |
); |
289 |
); |
290 |
foreach my $m (@messages) { |
290 |
foreach my $m (@messages) { |
291 |
my $content = $m->raw_msg; |
291 |
my $content = $m->raw_msg; |
Lines 318-324
sub sftp_upload {
Link Here
|
318 |
port => $port, |
318 |
port => $port, |
319 |
timeout => 10, |
319 |
timeout => 10, |
320 |
); |
320 |
); |
321 |
$sftp->die_on_error("Cannot ssh to $self->{account}->host"); |
321 |
$sftp->die_on_error( "Cannot ssh to " . $self->{account}->host ); |
322 |
$sftp->setcwd( $self->{account}->upload_directory ) |
322 |
$sftp->setcwd( $self->{account}->upload_directory ) |
323 |
or return $self->_abort_download( |
323 |
or return $self->_abort_download( |
324 |
$sftp, |
324 |
$sftp, |
325 |
- |
|
|