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