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

conformati il tracciato log

Browse Source
This commit is contained in:
Alessandro Battilani
2021-01-01 10:22:41 +01:00
parent 925590ba2c
commit 7a732a5b96
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LoadCSVData.pl
View File

@@ -346,11 +346,12 @@ sub emailSend {
)
)
{
print getTimeStamp("log") . " - $email_obj\n";
print getTimeStamp("log") . " - Mail sent to: $email_addr.\n";
print getTimeStamp("log") . " - pid $$ >> $email_obj\n";
print getTimeStamp("log") . " - pid $$ >> Mail sent to: $email_addr.\n";
}
else {
print getTimeStamp("log") . " - Error in sending mail to: $email_addr.\n";
print getTimeStamp("log")
. " - pid $$ >> Error in sending mail to: $email_addr.\n";
}
}

10
SendFtpElabData.pl
View File

@@ -121,9 +121,12 @@ sub trxelab {
$ftp_parms{$key} = $val;
}
print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
while ( my ( $key, $value ) = each(%ftp_parms) ) {
print getTimeStamp("log")
. " - pid $$ >> $unit - $tool ftp parm:\n"
. Dumper(%ftp_parms);
. " - pid $$ >> $key = $ftp_parms{$key}\n";
}
if ( !defined $duedate
or ( $duedate eq '0000-00-00 00:00:00' )
@@ -183,7 +186,8 @@ GetOptions(
"tool=s" => \$tool
) or die("Error in command line arguments\n");
print getTimeStamp("log") . " - pid $$ >> Send via FTP elab data for $unit - $tool.\n";
print getTimeStamp("log")
. " - pid $$ >> Send via FTP elab data for $unit - $tool.\n";
if ( $tool eq 'DT0076' ) {
sleep(600);