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

ultime

Browse Source
This commit is contained in:
Alessandro Battilani
2021-01-31 17:32:32 +01:00
parent 8a3aab9b1d
commit b80410982c
2 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LoadCSVData.pl
View File

@@ -46,10 +46,9 @@ my $matlab_func_dir = "/usr/local/matlab_func/";
my $matlab_error = ''; my $matlab_error = '';
my $matlab_timeout = '1800'; my $matlab_timeout = '1800';
my $email_addr = my $email_addr =
'andrea.carri@aseltd.eu,alessandro.battilani@gmail.com,alessandro.valletta@aseltd.eu'; 'andrea.carri@aseltd.eu,edoardo.cavalca@aseltd.eu,alessandro.battilani@gmail.com,alessandro.valletta@aseltd.eu';
my $from = 'ASE Alert System<alert@aseltd.eu>'; my $from = 'ASE Alert System<alert@aseltd.eu>';
my ( $email_msg, $email_obj ); my ( $email_msg, $email_obj );
my $lock_elab = '/tmp/lock.loadcsvdata';
my $G201_fcheck = 0; my $G201_fcheck = 0;
my $D2W_fcheck = 0; my $D2W_fcheck = 0;
my $FtpToCustomerCmd = 'SendFtpElabData.pl'; my $FtpToCustomerCmd = 'SendFtpElabData.pl';
@@ -616,10 +615,6 @@ writeOutSql($tool);
if ( $tooltype eq "GD" ) { if ( $tooltype eq "GD" ) {
print getTimeStamp("log") . " - pid $$ >> tool GD: nothing to do.\n"; print getTimeStamp("log") . " - pid $$ >> tool GD: nothing to do.\n";
} }
elsif ( -e $lock_elab ) {
print getTimeStamp("log")
. " - pid $$ >> $unit - $tool MatLab calc not executed due to the lock: $lock_elab\n";
}
else { else {
matlabCalc(); matlabCalc();

7
UnitCsvReceiverSmart.pl
View File

@@ -105,13 +105,6 @@ while ( my $line = $tail->GetLine() ) {
. " >> Failed to create path: $outpath/SQL"; . " >> Failed to create path: $outpath/SQL";
} }
if ( !-d "$outpath/config" ) {
make_path "$outpath/config",
{ mode => 0755, owner => $truser, group => $gid }
or warn getTimeStamp("log")
. " >> Failed to create path: $outpath/config";
}
my $timestamp = getTimeStamp(); my $timestamp = getTimeStamp();
my $dest = $outpath . "/" . $filename . "_" . $timestamp . $suffix; my $dest = $outpath . "/" . $filename . "_" . $timestamp . $suffix;
if ( !move $trfile, $dest ) { if ( !move $trfile, $dest ) {