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

fix x modifiche vobarno

Browse Source
This commit is contained in:
Alessandro Battilani
2021-05-20 23:08:50 +02:00
parent 9498abdae1
commit 5e4fe01a4d
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
AlertNotReceived.pl
View File

@@ -232,7 +232,7 @@ $dbh->disconnect;
# Ciclo x email totale rilevazioni # Ciclo x email totale rilevazioni
foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) { foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) {
if ( $ToolName{$tool}{'ToolState'} eq 'Monitoring Completed' ) { if ( ! defined $ToolName{$tool}{'ToolState'} or ($ToolName{$tool}{'ToolState'} eq 'Monitoring Completed') ) {
next; #skip dei tool nello stato del test next; #skip dei tool nello stato del test
} }

8
AlertNotReceivedVobarno.pl
View File

@@ -19,8 +19,7 @@ my $act_tool = 0;
my $gd_tool = 0; my $gd_tool = 0;
#my $email_addr = 'alessandro.battilani@gmail.com'; #my $email_addr = 'alessandro.battilani@gmail.com';
my $email_addr = my $email_addr = 'andrea.segalini@aseltd.eu,andrea.carri@aseltd.eu,roberto.savi@aseltd.eu,alessandro.valletta@aseltd.eu,alessandro.battilani@aseltd.eu,corrado@geielettronica.it,luca.chiapponi@aseltd.eu';
'andrea.segalini@aseltd.eu,andrea.carri@aseltd.eu,roberto.savi@aseltd.eu,alessandro.valletta@aseltd.eu,alessandro.battilani@aseltd.eu,corrado@geielettronica.it,luca.chiapponi@aseltd.eu';
my $cc_email_addr = $email_addr; my $cc_email_addr = $email_addr;
my $from = 'ASE Alert System<alert@aseltd.eu>'; my $from = 'ASE Alert System<alert@aseltd.eu>';
@@ -180,7 +179,7 @@ $dbh = DBI->connect( "DBI:mysql:$database;host=$server", $username, $password )
or die getLoggingTime() . " - Could not connect to database: $DBI::errstr"; or die getLoggingTime() . " - Could not connect to database: $DBI::errstr";
my $stw = $dbh->prepare( my $stw = $dbh->prepare(
"select UnitName, ToolNameID, EventDate, count(EventTime) 'LettureNodi', truncate(Count(EventTime)/max(NodeNum),2) 'LettureCatene', max(NodeNum) 'NumeroNodi' from RAWDATACOR where EventDate = subdate(curdate(),2) group by UnitName, ToolNameID" "select UnitName, ToolNameID, EventDate, count(EventTime) 'LettureNodi', truncate(Count(EventTime)/max(NodeNum),1) 'LettureCatene', max(NodeNum) 'NumeroNodi' from RAWDATACOR where EventDate = subdate(curdate(),2) group by UnitName, ToolNameID"
) or die getLoggingTime() . " - $DBI::errstr"; ) or die getLoggingTime() . " - $DBI::errstr";
$stw->execute(); $stw->execute();
@@ -231,8 +230,7 @@ $dbh->disconnect;
# Ciclo x email totale rilevazioni # Ciclo x email totale rilevazioni
foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) { foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) {
if ( ! defined $ToolName{$tool}{'ToolState'} or ($ToolName{$tool}{'ToolState'} eq 'Monitoring Completed') ) {
if ( $ToolName{$tool}{'ToolState'} eq 'Monitoring Completed' ) {
next; #skip dei tool nello stato del test next; #skip dei tool nello stato del test
} }