Lines 233-239
sub ftp_download {
Link Here
|
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, |
Lines 249-255
sub ftp_download {
Link Here
|
249 |
if ( !$ftp->get( $filename, "$self->{working_dir}/$filename" ) ) { |
249 |
if ( !$ftp->get( $filename, "$self->{working_dir}/$filename" ) ) { |
250 |
$self->_abort_download( |
250 |
$self->_abort_download( |
251 |
$ftp, |
251 |
$ftp, |
252 |
"Error retrieving $filename: $ftp->message" |
252 |
"Error retrieving $filename: " . $ftp->message |
253 |
); |
253 |
); |
254 |
last; |
254 |
last; |
255 |
} |
255 |
} |
Lines 281-287
sub ftp_upload {
Link Here
|
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, |
Lines 361-367
sub file_upload {
Link Here
|
361 |
$m->status('sent'); |
361 |
$m->status('sent'); |
362 |
$m->update; |
362 |
$m->update; |
363 |
} else { |
363 |
} else { |
364 |
carp "Could not transfer $m->filename : $ERRNO"; |
364 |
carp "Could not transfer " . $m->filename . " : $ERRNO"; |
365 |
next; |
365 |
next; |
366 |
} |
366 |
} |
367 |
} |
367 |
} |
368 |
- |
|
|