ftp aruba

aruba/UnitCsvReceiverSmart.pl

@@ -98,7 +98,7 @@ while ( my $line = $tail->GetLine() ) {
 				my @fname = ($dest);
 				chown $uid, $gid, @fname;
 			}
-			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($dest, $filename . $suffix)) {