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

9
SendElabData.pl
View File

@@ -41,7 +41,7 @@ sub getTimeStamp{ # parm [ts] => timestamp for filename; log => timestamp for
( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time() - 36000); ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time() - 36000);
$format = "%04d-%02d-%02d %02d:%02d:%02d"; $format = "%04d-%02d-%02d %02d:%02d:%02d";
} }
my $timestamp =sprintf( $format, $year + 1900, $mon + 1, $mday, $hour, $min, $sec ); my $timestamp =sprintf( $format, $year + 1900, $mon + 1, $mday, $hour, $min, $sec );
return $timestamp; return $timestamp;
} }
@@ -106,13 +106,13 @@ sub trxelab {
$ftp_parm =~ s/\s//g; $ftp_parm =~ s/\s//g;
my %ftp_parms = ('Host' => $ftp_addrs,); my %ftp_parms = ('Host' => $ftp_addrs,);
$ftp_parms{'Debug'} = 0;
$ftp_parms{'Passive'} = 1;
foreach my $parm (split(/,/, $ftp_parm)){ foreach my $parm (split(/,/, $ftp_parm)){
my ($key, $val) = split(/=>/, $parm); my ($key, $val) = split(/=>/, $parm);
$ftp_parms{$key} = $val; $ftp_parms{$key} = $val;
} }
$ftp_parms{'Debug'} = 0;
$ftp_parms{'Passive'} = 1;
print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n" . Dumper(%ftp_parms); 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"; or die getTimeStamp("log"). " - pid $$ >> Cannot connect to $ftp_addrs: $@ \n";
$ftp->login( $ftp_user, $ftp_passwd ) $ftp->login( $ftp_user, $ftp_passwd )
or die getTimeStamp("log"). " - pid $$ >> Cannot login ". $ftp->message . "\n"; or die getTimeStamp("log"). " - pid $$ >> Cannot login ". $ftp->message . "\n";
if ( $ftp_parms{"SSL"} ) {
$ftp->starttls();
}
$ftp_target //= ""; $ftp_target //= "";
if ( $ftp_target ne "" ) { if ( $ftp_target ne "" ) {
$ftp->cwd($ftp_target) $ftp->cwd($ftp_target)