tyler.durden/pandorafms
1
0
Fork 0
mirror of https://github.com/pandorafms/pandorafms.git synced 2025-07-28 16:24:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed error

Browse Source
This commit is contained in:
marcos.alconada 2019-10-07 11:21:16 +02:00
parent a9e8b1113e
commit 4c04b8f628
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1222,8 +1222,9 @@ sub pandora_execute_action ($$$$$$$$$;$) {
# Check for _module_graph_Xh_ macros # Check for _module_graph_Xh_ macros
# Check for _module_graph_Xh_ macros and _module_graphth_Xh_ # Check for _module_graph_Xh_ macros and _module_graphth_Xh_
my $module_graph_list = {}; my $module_graph_list = {};
my $macro_regexp = "_modulegraph_24h_"; my $macro_regexp = "_modulegraph_(\\d+)h_";
my $macro_regexp2 = "_modulegraphth_24h_"; my $macro_regexp2 = "_modulegraphth_(\\d+)h_";
# API connection # API connection
my $ua = new LWP::UserAgent; my $ua = new LWP::UserAgent;
eval { eval {
@ -1261,7 +1262,6 @@ sub pandora_execute_action ($$$$$$$$$;$) {
$params->{"other_mode"} = 'url_encode_separator_%7C'; $params->{"other_mode"} = 'url_encode_separator_%7C';
if (! exists($module_graph_list->{$cid}) && defined $url) { if (! exists($module_graph_list->{$cid}) && defined $url) {
# Get the module graph image in base 64 # Get the module graph image in base 64
my $response = $ua->post($url, $params); my $response = $ua->post($url, $params);
@ -6076,4 +6076,3 @@ L<DBI>, L<XML::Simple>, L<HTML::Entities>, L<Time::Local>, L<POSIX>, L<PandoraFM
Copyright (c) 2005-2011 Artica Soluciones Tecnologicas S.L Copyright (c) 2005-2011 Artica Soluciones Tecnologicas S.L
=cut =cut