From 51f5340f9cb6cf1d5b2159ae6436e5b8fc1cb498 Mon Sep 17 00:00:00 2001
From: Alessandro Battilani <alessandro.battilani@gmail.com>
Date: Sun, 1 Nov 2020 17:34:09 +0100
Subject: [PATCH] gestione email x sito

---
 AlertNotReceived.pl | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/AlertNotReceived.pl b/AlertNotReceived.pl
index 89ac197..47b28b0 100644
--- a/AlertNotReceived.pl
+++ b/AlertNotReceived.pl
@@ -4,6 +4,7 @@ use warnings;
 use strict;
 use DBI;
 use Mail::Sender;
+use Data::Dumper;
 
 # Variables
 my $username = 'aseuser';
@@ -140,9 +141,9 @@ else {
           {'idSite'} = $results->{'idSite'};
         $ToolName{ $results->{'UnitNameId'} . $results->{'ToolNameID'} }
           {'SiteName'} = $results->{'SiteName'};
-        $ToolName{ $results->{'idSite'} }{'SiteAlarmEmail'} =
+        $ToolName{ 'site' . $results->{'idSite'} }{'SiteAlarmEmail'} =
           $results->{'SiteAlarmEmail'};
-        $ToolName{ $results->{'idSite'} }{'SendAlarm'} =
+        $ToolName{ 'site' . $results->{'idSite'} }{'SendAlarm'} =
           $results->{'SendAlarm'};
         $ToolName{ $results->{'idCompany'} }{'CompanyEmail'} =
           $results->{'CompanyEmail'};
@@ -261,7 +262,7 @@ foreach my $tool ( sort grep { /DT|PT/ } keys %ToolName ) {
         $tools_info .= "<tr>";
     }
     elsif ( $ToolName{$tool}{'ToolState'} eq 'Active' ) {
-        if ( $ToolName{ $ToolName{$tool}{'idSite'} }{'SiteAlarmEmail'} eq "" ) {
+        if ( $ToolName{ 'site' . $ToolName{$tool}{'idSite'} }{'SiteAlarmEmail'} eq "" ) {
             $Tools_infoCompany{ $ToolName{$tool}{'idCompany'} } .=
               "<tr bgcolor=\"#fddada\">" . $tool_part;
         }
@@ -281,6 +282,8 @@ emailSend();
 
 #print $email_msg;print "OOOOOOOOOOOOOO=====================OOOOOOOOOOOOOO\n";
 
+#print Dumper(\%ToolName);
+
 foreach my $comp ( keys %Tools_infoCompany ) {
     $tools_info = $Tools_infoCompany{$comp};
     my $comp_email = $ToolName{$comp}{'CompanyEmail'};
@@ -298,8 +301,8 @@ foreach my $comp ( keys %Tools_infoCompany ) {
 
 foreach my $site ( keys %Tools_infoCompanySite ) {
     $tools_info = $Tools_infoCompanySite{$site};
-    my $site_email = $ToolName{$site}{'SiteAlarmEmail'};
-    my $send_alarm = $ToolName{$site}{'SendAlarm'};
+    my $site_email = $ToolName{'site' . $site}{'SiteAlarmEmail'};
+    my $send_alarm = $ToolName{'site' . $site}{'SendAlarm'};
     print getLoggingTime()
       . " - Site email: $site_email - Send Alarm: $send_alarm\n";
     if ( $send_alarm == 1 ) {