tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Now the email action send mails in HTML and can use a new macro to get a module graph image

This commit is contained in:
Alejandro Gallardo Escobar 2015-02-09 17:53:59 +01:00
parent 0bbe56c788
commit bd930fa012
1 changed files with 102 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
pandora_server/lib/PandoraFMS/Core.pm
View File

@ -132,6 +132,17 @@ use PandoraFMS::GIS qw(distance_moved);
# For Reverse Geocoding
use LWP::Simple;
# For api calls
use IO::Socket::INET6;
use LWP::UserAgent;
use HTTP::Request::Common;
# For IPv6 support in Net::HTTP.
BEGIN {
$Net::HTTP::SOCKET_CLASS = 'IO::Socket::INET6';
require Net::HTTP;
}
require Exporter;
our @ISA = ("Exporter");
@ -928,18 +939,107 @@ sub pandora_execute_action ($$$$$$$$$;$) {
# Email
} elsif ($clean_name eq "eMail") {
# Address
$field1 = subst_alert_macros ($field1, \%macros, $pa_config, $dbh, $agent, $module);
# Subject
$field2 = subst_alert_macros ($field2, \%macros, $pa_config, $dbh, $agent, $module);
# Message
$field3 = subst_alert_macros ($field3, \%macros, $pa_config, $dbh, $agent, $module);
# Check for _module_graph_Xh_ macros
my $module_graph_list = {};
my $macro_regexp = "_modulegraph_(\\d+)h_";
# API connection
my $ua = new LWP::UserAgent;
my $url ||= $pa_config->{"console_api_url"};
my $params = {};
$params->{"apipass"} ||= $pa_config->{"console_api_pass"};
$params->{"user"} ||= $pa_config->{"console_user"};
$params->{"pass"} ||= $pa_config->{"console_pass"};
$params->{"op"} = "get";
$params->{"op2"} = "module_graph";
$params->{"id"} = $module->{'id_agente_modulo'};
my $subst_func = sub {
my $hours = shift;
my $period = $hours * 3600; # Hours to seconds
$params->{"other"} = $period;
my $cid = 'module_graph_' . $hours . 'h';
if (! exists($module_graph_list->{$cid}) && defined $url) {
# Get the module graph image in base 64
my $response = $ua->post($url, $params);
if ($response->is_success) {
$module_graph_list->{$cid} = $response->decoded_content();
return '<img src="cid:'.$cid.'">';
}
}
return '';
};
# Macro data may contain HTML entities
eval {
no warnings;
local $SIG{__DIE__};
$field3 =~ s/$macro_regexp/$subst_func->($1)/ige;
};
# Default content type
my $content_type = 'text/html; charset="iso-8859-1"';
# Check if message has non-ascii chars.
# non-ascii chars should be encoded in UTF-8.
if ($field3 =~ /[^[:ascii:]]/o) {
$field3 = encode("UTF-8", $field3);
$content_type = 'text/html; charset="UTF-8"';
}
# Build the mail with attached content
if (keys(%{$module_graph_list}) > 0) {
my $boundary = "====" . time() . "====";
my $html_content_type = $content_type;
$content_type = 'multipart/related; boundary="'.$boundary.'"';
$boundary = "--" . $boundary;
$field3 = $boundary . "\n"
. "Content-Type: " . $html_content_type . "\n"
. "Content-Transfer-Encoding: quoted-printable\n\n"
. $field3 . "\n";
foreach my $cid (keys %{$module_graph_list}) {
my $filename = $cid . ".png";
$field3 .= $boundary . "\n"
. "Content-Type: image/png; name=\"" . $filename . "\"\n"
. "Content-Disposition: inline; filename=\"" . $filename . "\"\n"
. "Content-Transfer-Encoding: base64\n"
. "Content-ID: <" . $cid . ">\n"
. "Content-Location: " . $filename . "\n\n"
. $module_graph_list->{$cid} . "\n";
delete $module_graph_list->{$cid};
}
undef %{$module_graph_list};
$field3 .= $boundary . "--\n";
}
if ($pa_config->{"mail_in_separate"} != 0){
foreach my $address (split (',', $field1)) {
# Remove blanks
$address =~ s/ +//g;
pandora_sendmail ($pa_config, $address, $field2, $field3);
pandora_sendmail ($pa_config, $address, $field2, $field3, $content_type);
}
}
else {
pandora_sendmail ($pa_config, $field1, $field2, $field3);
pandora_sendmail ($pa_config, $field1, $field2, $field3, $content_type);
}
# Pandora FMS Event