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

gestione email x sito

Browse Source
This commit is contained in:
Alessandro Battilani
2020-11-01 17:34:09 +01:00
parent b5680e103c
commit 51f5340f9c
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
AlertNotReceived.pl
View File

@@ -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 ) {