|
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 |
- |
|
|