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

modifica x messaggio

Browse Source
This commit is contained in:
battilo
2018-04-06 22:15:17 +02:00
parent 37a787f8e2
commit 6013a2a998
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
AlertNotReceived.pl
View File

@@ -131,9 +131,6 @@ if ($sth->rows < 0) {
$ToolName{$results->{'ToolNameID'}}{'ErroriTotaliLetture'} = "--"; $ToolName{$results->{'ToolNameID'}}{'ErroriTotaliLetture'} = "--";
if ($results->{'ToolState'} eq "Active" ){ if ($results->{'ToolState'} eq "Active" ){
$act_tool++; $act_tool++;
}
if (substr($results->{'ToolNameID'},0,2) eq "GD" ){
$act_tool++;
} }
} }
} }
@@ -150,7 +147,7 @@ my $stw = $dbh->prepare("select ToolNameID, EventDate, count(EventTime) 'Letture
$stw->execute(); $stw->execute();
if ($stw->rows == 0) { if ($stw->rows == 0) {
print getLoggingTime() . " - No rows from RAWDATA.\n"; print getLoggingTime() . " - No rows from RAWDATACOR.\n";
$email_obj = "ATTENZIONE: nessuna lettura pervenuta!!!" $email_obj = "ATTENZIONE: nessuna lettura pervenuta!!!"
} else { } else {
while (my $results = $stw->fetchrow_hashref) { while (my $results = $stw->fetchrow_hashref) {
@@ -158,17 +155,21 @@ if ($stw->rows == 0) {
$ToolName{$results->{'ToolNameID'}}{'LettureCatene'} = $results->{'LettureCatene'}; $ToolName{$results->{'ToolNameID'}}{'LettureCatene'} = $results->{'LettureCatene'};
$ToolName{$results->{'ToolNameID'}}{'NumeroNodi'} = $results->{'NumeroNodi'}; $ToolName{$results->{'ToolNameID'}}{'NumeroNodi'} = $results->{'NumeroNodi'};
$ref_date = $results->{'EventDate'}; $ref_date = $results->{'EventDate'};
if (substr($results->{'ToolNameID'},0,2) eq "GD" ){
$gd_tool++;
}
} }
if (($act_tool + $gd_tool) == $stw->rows) { if (($act_tool + $gd_tool) == $stw->rows) {
$email_obj = "Tutte le letture pervenute."; $email_obj = "Tutte le letture pervenute.";
} else { } else {
$email_obj = "ATTENZIONE: alcune letture non pervenute!!!"; $email_obj = "ATTENZIONE: alcune letture non pervenute!!!";
} }
print getLoggingTime() . " - tool attivi: $act_tool - GD tool: $gd_tool - righe query: " . $stw->rows . ".\n";
} }
$stw->finish; $stw->finish;
my $ste = $dbh->prepare("select ToolNameID, count(val0) 'ErroriTotaliLetture' from RAWDATA where EventDate = ? and val0 = 'Err1' group by ToolNameID") my $ste = $dbh->prepare("select ToolNameID, count(val0) 'ErroriTotaliLetture' from RAWDATACOR where EventDate = ? and val0 = 'Err1' group by ToolNameID")
or die getLoggingTime() . " - $DBI::errstr"; or die getLoggingTime() . " - $DBI::errstr";
$ste->bind_param(1, $ref_date); $ste->bind_param(1, $ref_date);
$ste->execute(); $ste->execute();