@@ -, +, @@ accounts --- Koha/Edifact/Transport.pm | 4 ++++ admin/edi_accounts.pl | 2 ++ koha-tmpl/intranet-tmpl/prog/en/modules/admin/edi_accounts.tt | 4 ++++ 3 files changed, 10 insertions(+) --- a/Koha/Edifact/Transport.pm +++ a/Koha/Edifact/Transport.pm @@ -136,10 +136,12 @@ sub sftp_download { # C = ready to retrieve E = Edifact my $msg_hash = $self->message_hash(); my @downloaded_files; + my $port = $self->{account}->download_port ? $self->{account}->download_port : '22'; my $sftp = Net::SFTP::Foreign->new( host => $self->{account}->host, user => $self->{account}->username, password => Koha::Encryption->new->decrypt_hex($self->{account}->password), + port => $port, timeout => 10, ); if ( $sftp->error ) { @@ -293,10 +295,12 @@ sub ftp_upload { sub sftp_upload { my ( $self, @messages ) = @_; + my $port = $self->{account}->upload_port ? $self->{account}->upload_port : '22'; my $sftp = Net::SFTP::Foreign->new( host => $self->{account}->host, user => $self->{account}->username, password => Koha::Encryption->new->decrypt_hex($self->{account}->password), + port => $port, timeout => 10, ); $sftp->die_on_error("Cannot ssh to $self->{account}->host"); --- a/admin/edi_accounts.pl +++ a/admin/edi_accounts.pl @@ -79,6 +79,8 @@ else { host => scalar $input->param('host'), username => scalar $input->param('username'), password => $password, + upload_port => scalar $input->param('upload_port'), + download_port => scalar $input->param('download_port'), vendor_id => scalar $input->param('vendor_id'), upload_directory => scalar $input->param('upload_directory'), download_directory => scalar $input->param('download_directory'), --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/edi_accounts.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/edi_accounts.tt @@ -313,6 +313,8 @@ Remote host Username Password + Upload port + Download port Download directory Upload directory Qualifier @@ -334,6 +336,8 @@ [% account.host | html %] [% account.username | html %] [% IF account.password %]*****[% END %] + [% account.upload_port | html %] + [% account.download_port | html %] [% account.download_directory | html %] [% account.upload_directory | html %] --