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

ftp port

Browse Source
This commit is contained in:
alessandro
2017-10-31 23:35:37 +01:00
parent c4fbafbbcc
commit 975620449a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
LoadCSVData.pl
View File

@@ -181,15 +181,15 @@ sub trxelab {
$dbh->disconnect; $dbh->disconnect;
$ftp_parm //= ""; $ftp_parm //= "";
if ( $ftp_parm ne "" ) { if ( $ftp_parm ne "" ) {
$ftp_parm = "debug => 0, " . $ftp_parm; $ftp_parm = "Debug=>0, " . $ftp_parm;
} }
else { else {
$ftp_parm = "debug => 0"; $ftp_parm = "Debug=>0";
} }
print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm = $ftp_parm.\n"; 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") or die getTimeStamp("log")
. " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n"; . " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
$ftp->login( $ftp_user, $ftp_passwd ) $ftp->login( $ftp_user, $ftp_passwd )