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

modifica per tls

Browse Source
This commit is contained in:
Alessandro Battilani
2020-09-05 08:43:26 +02:00
parent 229037a3d5
commit 8ca3c8629f
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SendElabData.pl
View File

@@ -106,13 +106,13 @@ sub trxelab {
$ftp_parm =~ s/\s//g;
my %ftp_parms = ('Host' => $ftp_addrs,);
$ftp_parms{'Debug'} = 0;
$ftp_parms{'Passive'} = 1;
foreach my $parm (split(/,/, $ftp_parm)){
my ($key, $val) = split(/=>/, $parm);
$ftp_parms{$key} = $val;
}
$ftp_parms{'Debug'} = 0;
$ftp_parms{'Passive'} = 1;
print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n" . Dumper(%ftp_parms);
@@ -124,6 +124,9 @@ sub trxelab {
or die getTimeStamp("log"). " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
$ftp->login( $ftp_user, $ftp_passwd )
or die getTimeStamp("log"). " - pid $$ >> Cannot login ". $ftp->message . "\n";
if ( $ftp_parms{"SSL"} ) {
$ftp->starttls();
}
$ftp_target //= "";
if ( $ftp_target ne "" ) {
$ftp->cwd($ftp_target)