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

allineati a cr1000x

Browse Source
This commit is contained in:
Alessandro Battilani
2021-12-19 16:43:34 +01:00
parent 1a1183fa41
commit e4f62ea960
3 changed files with 43 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SendFtpElabData.pl
View File

@@ -72,7 +72,7 @@ sub trxelab {
my $fileelab;
if ( !defined($ftp_filename) or $ftp_filename eq "" ) {
if ( !defined $ftp_filename or $ftp_filename eq "" ) {
$fileelab =
'/var/lib/mysql-files/'
. $tool . '_'
@@ -123,8 +123,7 @@ sub trxelab {
print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
while ( my ( $key, $value ) = each(%ftp_parms) ) {
print getTimeStamp("log")
. " - pid $$ >> - $key = $ftp_parms{$key}\n";
print getTimeStamp("log") . " - pid $$ >> - $key = $ftp_parms{$key}\n";
}
if ( !defined $duedate
@@ -195,4 +194,4 @@ if ( $tool eq 'DT0076' ) {
trxelab();
print getTimeStamp("log") . " - pid $$ >> Execution ended.\n";
exit;
exit;