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;
$ftp_parm //= "";
if ( $ftp_parm ne "" ) {
$ftp_parm = "Debug=>0, " . $ftp_parm;
}
else {
$ftp_parm = "Debug=>0";
$ftp_parm =~ s/\s//g;
my %ftp_parms = (
'Host' => $ftp_addrs,
);
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")
. " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
$ftp->login( $ftp_user, $ftp_passwd )