tyler.durden/centreon-plugins
1
0
Fork 0
mirror of https://github.com/centreon/centreon-plugins.git synced 2025-09-24 10:18:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

feat(vmware-connector) add debug log for cpucluster mode internals

Browse Source 
REF:MON-446
This commit is contained in:
Evan Adam 2024-05-29 15:21:30 +02:00
parent ccd2a470d6
commit 9837647444
2 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
connectors/vmware/src/centreon/vmware/cmdcpucluster.pm
View File

@ -57,21 +57,19 @@ sub run {
my $filters = $self->build_filter(label => 'name', search_option => 'cluster_name', is_regexp => 'filter');
my @properties = ('name');
$self->{connector}->{logger}->writeLogInfo("[cmdcpucluster.pm::run] creating filters :" . Dumper($filters));
my $views = centreon::vmware::common::search_entities(command => $self, view_type => 'ClusterComputeResource', properties => \@properties, filter => $filters);
$self->{connector}->{logger}->writeLogInfo("[cmdcpucluster.pm::run] views are : " . Dumper($view));
#$self->{connector}->{logger}->writeLogInfo("[cmdcpucluster.pm::run] views are : " . Dumper($views));
return if (!defined($views));
my $values = centreon::vmware::common::generic_performance_values_historic(
$self->{connector},
$views,
[
{ label => 'cpu.usage.average', instances => [''] },
{ label => 'cpu.usagemhz.average', instances => [''] }
{ label => 'cpu.usage.average', instances => ['*'] },
{ label => 'cpu.usagemhz.average', instances => ['*'] }
],
$self->{connector}->{perfcounter_speriod},
sampling_period => $self->{sampling_period},
sampling_period => 300, # try 20 instead of 300 here
time_shift => $self->{time_shift},
skip_undef_counter => 1, multiples => 1, multiples_result_by_entity => 1
);

21
connectors/vmware/src/centreon/vmware/common.pm
View File

@ -254,6 +254,7 @@ sub get_perf_metric_ids {
counterId => $options{connector}->{perfcounter_cache}->{$_->{label}}{key},
instance => $instance
);
$options{connector}->{logger}->writeLogInfo("Instance is : " . Dumper($metric);
push @$filtered_list, $metric;
}
} else {
@ -276,8 +277,9 @@ sub performance_builder_specific {
metrics => $entry->{metrics},
interval => $options{interval}
);
$options{connector}->{logger}->writeLogInfo("[performance_builder_specific] checking if perf_metric_ids is empty.");
return undef if (!defined($perf_metric_ids));
$options{connector}->{logger}->writeLogInfo("[performance_builder_specific] perf_metric_ids was not empty.");
my $tstamp = time();
my (@t) = gmtime($tstamp - $options{interval} - $time_shift);
my $startTime = sprintf(
@ -325,7 +327,9 @@ sub performance_builder_global {
metrics => $options{metrics},
interval => $options{interval}
);
$options{connector}->{logger}->writeLogInfo("[performance_builder_global] checking if perf_metric_ids is empty.");
return undef if (!defined($perf_metric_ids));
$options{connector}->{logger}->writeLogInfo("[performance_builder_global] perf_metric_ids was not empty.");
my $tstamp = time();
my (@t) = gmtime($tstamp - $options{interval} - $time_shift);
@ -406,14 +410,7 @@ sub generic_performance_values_historic {
if (!$$perfdata[0] || !defined($$perfdata[0]->value)) {
set_response(code => -1, short_message => 'Cannot get value for counters (Maybe, object(s) cannot be reached: disconnected, not running, time not synced (see time-host mode),...)');
use Data::Dumper;
$obj_vmware->{logger}->writeLogInfo("[generic_performance_values_historic] param : " .
"\n obj vmware: " . Dumper($obj_vmware) .
"\n views : " . Dumper($views) .
"\n perfs : " . Dumper($perfs) .
"\n interval : " . Dumper($interval) .
"\n Options : " . Dumper(%options) .
"\n result perfdata : " . Dumper($perfdata) );
return undef;
}
@ -526,7 +523,7 @@ sub search_entities {
}
if (scalar(@$temp_views) == 0) {
set_response(code => 1, short_message => "Cannot find '$scope->[1]' object");
set_response(code => 1, short_message => "[search_entity] Cannot find '$scope->[1]' object, temp_views is empty");
return undef;
}
push @$begin_views, @$temp_views;
@ -555,7 +552,7 @@ sub search_entities {
push @$results, @$views;
}
if (scalar(@$results) == 0) {
set_response(code => 1, short_message => "Cannot find '$options{view_type}' object");
set_response(code => 1, short_message => "Cannot find '$options{view_type}' object, result is empty");
return undef;
}
return $results;
@ -602,7 +599,7 @@ sub find_entity_views {
return (1, []);
}
if (!defined($options{output_message}) || $options{output_message} != 0) {
set_response(code => 1, short_message => "Cannot find '$options{view_type}' object");
set_response(code => 1, short_message => "Cannot find '$options{view_type}' object, no output message.");
}
return (0, undef);
}