alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
battilo
2018-07-05 23:43:50 +02:00
parent 0578ec48e3
commit 1f12748890
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
aruba/UnitCsvRetransmit.pl
View File

@@ -49,7 +49,7 @@ my($dmy1, $dmy2, $dmy3, $unit, $dmy4) = split(/\//,$path);
print getTimeStamp("log") . " >> Unit $unit - Filename $tool" . "$suffix \n"; 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: $@"; or warn getTimeStamp("log") . " >> Cannot connect to $hostname: $@";
if ($ftp->login($username,$password)) { if ($ftp->login($username,$password)) {
if ($ftp->put($readingFile, $tool . $suffix)) { if ($ftp->put($readingFile, $tool . $suffix)) {