gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 39190: Update sftp_servers page to use new objects 

Similar to the previous commit, this time we're updating the page
controller to use the new polymorphic classes

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Martin Renvoize 2025-01-24 17:41:55 +00:00 committed by Lucas Gass
parent 4b4bffdf2d
commit c654a87f2d
No known key found for this signature in database
GPG Key ID: 60B447398B0D36CA
1 changed files with 10 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
admin/sftp_servers.pl
View File

@ -27,6 +27,7 @@ use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use Koha::SFTP::Servers;
use Koha::File::Transports;
my $input = CGI->new;
my $op = $input->param('op') || 'list';
@ -42,7 +43,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
my @messages;
my $sftp_servers = Koha::SFTP::Servers->search;
my $sftp_servers = Koha::File::Transports->search;
if ( $op eq 'cud-add' ) {
my $name = $input->param('sftp_name');
@ -60,7 +61,7 @@ if ( $op eq 'cud-add' ) {
my $debug = ( scalar $input->param('sftp_debug_mode') ) ? 1 : 0;
try {
my $sftp_server = Koha::SFTP::Server->new(
my $sftp_server = Koha::File::Transport->new(
{
name => $name,
host => $host,
@ -69,6 +70,8 @@ if ( $op eq 'cud-add' ) {
passive => $passive,
auth_mode => $auth_mode,
user_name => $user_name,
password => $password,
key_file => $key_file,
download_directory => $download_directory,
upload_directory => $upload_directory,
status => $status,
@ -76,12 +79,6 @@ if ( $op eq 'cud-add' ) {
}
)->store;
$sftp_server->update_password($password)
if ($password);
$sftp_server->update_key_file($key_file)
if ($key_file);
push @messages, {
type => 'message',
code => 'success_on_insert'
@ -105,7 +102,7 @@ if ( $op eq 'cud-add' ) {
my $sftp_server_plain_text_password;
my $sftp_server_plain_text_key;
$sftp_server = Koha::SFTP::Servers->find($sftp_server_id)
$sftp_server = Koha::File::Transports->find($sftp_server_id)
unless !$sftp_server_id;
unless ( !$sftp_server ) {
@ -132,7 +129,7 @@ if ( $op eq 'cud-add' ) {
my $sftp_server_plain_text_password;
my $sftp_server;
$sftp_server = Koha::SFTP::Servers->find($sftp_server_id)
$sftp_server = Koha::File::Transports->find($sftp_server_id)
unless !$sftp_server_id;
$sftp_server_plain_text_password = $sftp_server->plain_text_password
@ -163,6 +160,8 @@ if ( $op eq 'cud-add' ) {
passive => $passive,
auth_mode => $auth_mode,
user_name => $user_name,
password => $password,
key_file => $key_file,
download_directory => $download_directory,
upload_directory => $upload_directory,
status => $status,
@ -170,12 +169,6 @@ if ( $op eq 'cud-add' ) {
}
)->store;
$sftp_server->update_password($password)
if ($password);
$sftp_server->update_key_file($key_file)
if ($key_file);
push @messages, {
type => 'message',
code => 'success_on_update'
@ -204,7 +197,7 @@ if ( $op eq 'cud-add' ) {
my $sftp_server_id = $input->param('sftp_server_id');
my $sftp_server;
$sftp_server = Koha::SFTP::Servers->find($sftp_server_id)
$sftp_server = Koha::File::Transports->find($sftp_server_id)
unless !$sftp_server_id;
if ($sftp_server) {