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") . " - pid $$ >> $email_obj\n";
print getTimeStamp("log") . " - Mail sent to: $email_addr.\n"; print getTimeStamp("log") . " - pid $$ >> Mail sent to: $email_addr.\n";
} }
else { else {
print getTimeStamp("log") . " - Error in sending mail to: $email_addr.\n"; print getTimeStamp("log")
. " - pid $$ >> Error in sending mail to: $email_addr.\n";
} }
} }

14
SendFtpElabData.pl
View File

@@ -10,7 +10,7 @@ $|++; # Autoflush
my $username = 'ase_lar'; my $username = 'ase_lar';
my $password = 'laravel'; my $password = 'laravel';
my $db_name = 'ase_lar'; my $db_name = 'ase_lar';
my $server = 'localhost'; my $server = 'localhost';
my $matlab_timestamp; my $matlab_timestamp;
my $ftp_send = 1; my $ftp_send = 1;
@@ -121,9 +121,12 @@ sub trxelab {
$ftp_parms{$key} = $val; $ftp_parms{$key} = $val;
} }
print getTimeStamp("log") print getTimeStamp("log") . " - pid $$ >> $unit - $tool ftp parm:\n";
. " - pid $$ >> $unit - $tool ftp parm:\n"
. Dumper(%ftp_parms); while ( my ( $key, $value ) = each(%ftp_parms) ) {
print getTimeStamp("log")
. " - pid $$ >> $key = $ftp_parms{$key}\n";
}
if ( !defined $duedate if ( !defined $duedate
or ( $duedate eq '0000-00-00 00:00:00' ) or ( $duedate eq '0000-00-00 00:00:00' )
@@ -183,7 +186,8 @@ GetOptions(
"tool=s" => \$tool "tool=s" => \$tool
) or die("Error in command line arguments\n"); ) 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' ) { if ( $tool eq 'DT0076' ) {
sleep(600); sleep(600);