mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed in 'emailreports.pm' to name each attached graph correctly. #174

This commit is contained in:
Jordi Sanfeliu 2017-01-18 11:38:40 +01:00
parent 2e4349505f
commit 2d81ab7fdf
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/emailreports.pm
View File

@ -32,6 +32,7 @@ sub emailreports_send {
my $myself = (caller(0))[3];
my ($config, $report, $when, $debug) = @_;
my $emailreports = $config->{emailreports};
my $imgfmt_lc = lc($config->{image_format});
my $base_cgi = $config->{base_cgi};
my $imgs_dir = $config->{imgs_dir};
@ -131,14 +132,12 @@ EOF
$n = 1;
foreach (split('\n', $graph)) {
if(/<img src=/) {
push(@tmp, "<img src='cid:image_$g$e$n' border='0'>");
$images->{"image_$g$n"} = "";
push(@tmp, "<img src='cid:image_$g$e$n.$imgfmt_lc' border='0'>");
($url) = $_ =~ m/<img src='(.*?)' /;
my $uri = URI->new($url);
my $path = $uri->path || "";
$response = $ua->request(HTTP::Request->new('GET', "$prefix$path"));
$images->{"image_$g$e$n"} = $response->content;
$images->{"image_$g$e$n.$imgfmt_lc"} = $response->content;
$n++;
} else {
push(@tmp, $_);
@ -199,7 +198,7 @@ EOF
);
while (my ($key, $val) = each(%{$images})) {
$msg->attach(
Type => $mime,
Type => "$mime; name=\"$key\"",
Id => $key,
Data => $val,
);