View | Details | Raw Unified | Return to bug 39904
Collapse All | Expand All

(-)a/Koha/Edifact/Transport.pm (-5 / +4 lines)
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
- 

Return to bug 39904