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