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

gestione nuovi yool e attivazione email alarm x company

Browse Source
This commit is contained in:
battilo
2019-01-26 16:40:58 +01:00
parent 0c7ace6788
commit c6eaf2f9b6
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
AlertNotReceived.pl
View File

@@ -16,7 +16,8 @@ my ($email_msg, $email_obj, $tools_info, $ref_date);
my $act_tool = 0; my $act_tool = 0;
my $gd_tool = 0; my $gd_tool = 0;
#my $email_addr = 'alessandro.battilani@gmail.com'; #my $email_addr = 'alessandro.battilani@gmail.com';
my $email_addr = 'aseparma@gmail.com,alessandro.battilani@gmail.com,corrado@geielettronica.it,luca.chiapponi@unipr.it'; my $email_addr = 'andrea.segalini@aseltd.eu,andrea.carri@aseltd.eu,roberto.savi@aseltd.eu,edoardo.cavalca@aseltd.eu,alessandro.valletta@aseltd.eu,alessandro.battilani@gmail.com,corrado@geielettronica.it,luca.chiapponi@aseltd.eu';
my $cc_email_addr = $email_addr;
sub getLoggingTime { sub getLoggingTime {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
@@ -87,6 +88,7 @@ sub emailSend {
port => 587, port => 587,
from => 'ASE Alert System', from => 'ASE Alert System',
to => $email_addr, to => $email_addr,
cc => $cc_email_addr,
subject => $email_obj, subject => $email_obj,
msg => $email_msg, msg => $email_msg,
ctype => "text/html", ctype => "text/html",
@@ -110,7 +112,7 @@ print getLoggingTime() . " - pid $$ >> Start execution.\n";
my $dbh = DBI->connect("DBI:mysql:$db_lar;host=$server", $username, $password) my $dbh = DBI->connect("DBI:mysql:$db_lar;host=$server", $username, $password)
or die getLoggingTime() . " - Could not connect to database: $DBI::errstr"; or die getLoggingTime() . " - Could not connect to database: $DBI::errstr";
my $sth = $dbh->prepare('select idCompany, CompanyNameShort, SiteName, CompanyEmail, UnitNameId, ToolNameID, ToolState from mail_view;') my $sth = $dbh->prepare('select idCompany, CompanyNameShort, SiteName, CompanyEmail, SendAlarm, UnitNameId, ToolNameID, ToolState from mail_view;')
or die getLoggingTime() . " - $DBI::errstr"; or die getLoggingTime() . " - $DBI::errstr";
$sth->execute(); $sth->execute();
@@ -123,6 +125,7 @@ if ($sth->rows < 0) {
$ToolName{$results->{'ToolNameID'}}{'CompanyNameShort'} = $results->{'CompanyNameShort'}; $ToolName{$results->{'ToolNameID'}}{'CompanyNameShort'} = $results->{'CompanyNameShort'};
$ToolName{$results->{'ToolNameID'}}{'SiteName'} = $results->{'SiteName'}; $ToolName{$results->{'ToolNameID'}}{'SiteName'} = $results->{'SiteName'};
$ToolName{$results->{'idCompany'}}{'CompanyEmail'} = $results->{'CompanyEmail'}; $ToolName{$results->{'idCompany'}}{'CompanyEmail'} = $results->{'CompanyEmail'};
$ToolName{$results->{'idCompany'}}{'SendAlarm'} = $results->{'SendAlarm'};
$ToolName{$results->{'ToolNameID'}}{'UnitNameId'} = $results->{'UnitNameId'}; $ToolName{$results->{'ToolNameID'}}{'UnitNameId'} = $results->{'UnitNameId'};
$ToolName{$results->{'ToolNameID'}}{'ToolState'} = $results->{'ToolState'}; $ToolName{$results->{'ToolNameID'}}{'ToolState'} = $results->{'ToolState'};
$ToolName{$results->{'ToolNameID'}}{'LettureNodi'} = "--"; $ToolName{$results->{'ToolNameID'}}{'LettureNodi'} = "--";
@@ -210,7 +213,12 @@ emailSend();
foreach my $comp (keys %Tools_infoCompany) { foreach my $comp (keys %Tools_infoCompany) {
$tools_info = $Tools_infoCompany{$comp}; $tools_info = $Tools_infoCompany{$comp};
#$email_addr = $ToolName{$comp}{'CompanyEmail'}; my $comp_email = $ToolName{$comp}{'CompanyEmail'};
my $send_alarm = $ToolName{$comp}{'SendAlarm'};
print getLoggingTime() . " - Company email: $comp_email - Send Alarm: $send_alarm\n";
if ($send_alarm == 1) {
$email_addr = $ToolName{$comp}{'CompanyEmail'};
}
makeEmailMsg(); makeEmailMsg();
emailSend(); emailSend();
} }

2
LoadCSVData.pl
View File

@@ -483,7 +483,7 @@ while ( my $line = <FILE> ) {
join( ';', splice( @NewData, 0, $ch ) ); join( ';', splice( @NewData, 0, $ch ) );
} }
print Dumper \@CSVData; #print Dumper \@CSVData;
#print Dumper \@channels; #print Dumper \@channels;
#print Dumper \@din; #print Dumper \@din;