From 975620449aa5715e27cd4a38e81489b45a2afa97 Mon Sep 17 00:00:00 2001
From: alessandro <alessandro.battilani@gmail.com>
Date: Tue, 31 Oct 2017 23:35:37 +0100
Subject: [PATCH] ftp port

---
 LoadCSVData.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index 1fbbd77..ecbafb3 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -181,15 +181,15 @@ sub trxelab {
     $dbh->disconnect;
     $ftp_parm //= "";
     if ( $ftp_parm ne "" ) {
-        $ftp_parm = "debug => 0, " . $ftp_parm;
+        $ftp_parm = "Debug=>0, " . $ftp_parm;
     }
     else {
-        $ftp_parm = "debug => 0";
+        $ftp_parm = "Debug=>0";
     }
 
     print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm = $ftp_parm.\n";
 
-    my $ftp = Net::FTP->new( $ftp_addrs, debug => 0 )
+    my $ftp = Net::FTP->new( Host=>$ftp_addrs, $ftp_parm )
       or die getTimeStamp("log")
       . " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
     $ftp->login( $ftp_user, $ftp_passwd )