From 1f1274889034b644990fa82f1d2bc4667a67e415 Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Thu, 5 Jul 2018 23:43:50 +0200
Subject: [PATCH] .

---
 aruba/UnitCsvRetransmit.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/aruba/UnitCsvRetransmit.pl b/aruba/UnitCsvRetransmit.pl
index 44aa4ac..aa86f7d 100644
--- a/aruba/UnitCsvRetransmit.pl
+++ b/aruba/UnitCsvRetransmit.pl
@@ -49,7 +49,7 @@ my($dmy1, $dmy2, $dmy3, $unit, $dmy4) = split(/\//,$path);
 
 print getTimeStamp("log") . " >> Unit $unit - Filename $tool" . "$suffix \n";
 
-my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 1, Passive => 0)
+my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 0, Passive => 0)
 	or warn getTimeStamp("log") . " >> Cannot connect to $hostname: $@";
 if ($ftp->login($username,$password)) {
 	if ($ftp->put($readingFile, $tool . $suffix)) {