diff --git a/AlertNotReceived.pl b/AlertNotReceived.pl index a5c9afa..4520038 100644 --- a/AlertNotReceived.pl +++ b/AlertNotReceived.pl @@ -232,7 +232,7 @@ $dbh->disconnect; # Ciclo x email totale rilevazioni 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 } diff --git a/AlertNotReceivedVobarno.pl b/AlertNotReceivedVobarno.pl index b3663c2..1568d70 100644 --- a/AlertNotReceivedVobarno.pl +++ b/AlertNotReceivedVobarno.pl @@ -19,8 +19,7 @@ my $act_tool = 0; my $gd_tool = 0; #my $email_addr = 'alessandro.battilani@gmail.com'; -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'; +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'; my $cc_email_addr = $email_addr; my $from = 'ASE Alert System'; @@ -180,7 +179,7 @@ $dbh = DBI->connect( "DBI:mysql:$database;host=$server", $username, $password ) or die getLoggingTime() . " - Could not connect to database: $DBI::errstr"; 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"; $stw->execute(); @@ -231,8 +230,7 @@ $dbh->disconnect; # Ciclo x email totale rilevazioni 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 }