Update the correct file

This commit is contained in:
Jose Gonzalez 2020-10-05 15:15:10 +02:00
parent 0da066954b
commit 6459c6aa73
1 changed files with 0 additions and 2 deletions

View File

@ -22,7 +22,6 @@ use warnings;
use POSIX qw(strftime);
use threads;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
# Default lib dir for RPM and DEB packages
use lib '/usr/lib/perl5';
@ -713,7 +712,6 @@ sub main() {
my $curl_execution = "'".$Config{'console_api_url'}."?op=get&op2=test&apipass=".$Config{"console_api_pass"}."&user=".$Config{"console_user"}."&pass=".$Config{"console_pass"}."'";
my $exe_testing_api = `curl $curl_execution 2>/dev/null`;
my @res_testing_api = split(',', $exe_testing_api);
if ( $res_testing_api[0] ne 'OK' ) {
logger(\%Config, "Warning! The server does not have access to the API, this can trigger problems in the generation of reports and graphs.", 1);
pandora_event (\%Config, "Server does not have access to the API", 0, 0, 0, 0, 0, 'system', 0, $DBH);