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

use hash for ftp params

Browse Source
This commit is contained in:
alessandro
2017-11-01 00:54:47 +01:00
parent 975620449a
commit 9463ca4dcd
1 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
LoadCSVData.pl
View File

@@ -180,16 +180,21 @@ sub trxelab {
$dbh->disconnect; $dbh->disconnect;
$ftp_parm //= ""; $ftp_parm //= "";
if ( $ftp_parm ne "" ) { $ftp_parm =~ s/\s//g;
$ftp_parm = "Debug=>0, " . $ftp_parm;
} my %ftp_parms = (
else { 'Host' => $ftp_addrs,
$ftp_parm = "Debug=>0"; );
foreach my $parm (split(/,/, $ftp_parm))
{
my ($key, $val) = split(/=>/, $parm);
$ftp_parms{$key} = $val;
} }
print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm = $ftp_parm.\n"; print getTimeStamp("log") . " - pid $$ >> $tool: ftp parm = " . Dumper(%ftp_parms) . "\n";
my $ftp = Net::FTP->new( Host=>$ftp_addrs, $ftp_parm ) my $ftp = Net::FTP->new( %ftp_parms )
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 )