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 .= "
";
}
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'} } .=
"
" . $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 ) {