Lines 23-28
use File::Spec;
Link Here
|
23 |
use IO::File; |
23 |
use IO::File; |
24 |
use Net::SFTP::Foreign; |
24 |
use Net::SFTP::Foreign; |
25 |
use Try::Tiny; |
25 |
use Try::Tiny; |
|
|
26 |
use JSON qw ( encode_json ); |
26 |
|
27 |
|
27 |
use base qw(Koha::File::Transport); |
28 |
use base qw(Koha::File::Transport); |
28 |
|
29 |
|
Lines 90-97
sub upload_file {
Link Here
|
90 |
my ( $self, $local_file, $remote_file ) = @_; |
91 |
my ( $self, $local_file, $remote_file ) = @_; |
91 |
my $operation = "upload"; |
92 |
my $operation = "upload"; |
92 |
|
93 |
|
93 |
my $logger = Koha::Logger->get_logger(); |
|
|
94 |
|
95 |
$self->{connection}->put( $local_file, $remote_file ) or return $self->_abort_operation($operation); |
94 |
$self->{connection}->put( $local_file, $remote_file ) or return $self->_abort_operation($operation); |
96 |
|
95 |
|
97 |
$self->add_message( |
96 |
$self->add_message( |
98 |
- |
|
|