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

Refs #5187

This commit is contained in:
Quentin Garnier 2014-02-10 17:21:14 +01:00
parent cab6de9039
commit 3cd433a4e9
1 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
centreon/plugins/wsman.pm
View File

@ -143,43 +143,21 @@ sub request {
###### ######
# ClientOptions object # ClientOptions object
my $client_options = new openwsman::ClientOptions::(); my $client_options = new openwsman::ClientOptions::()
if (!defined($client_options)) { or $self->internal_exit(msg => 'Could not create client options handler');
if ($dont_quit == 1) {
$self->set_error(error_status => -1, error_msg => 'Could not create client options handler');
return undef;
}
$self->{output}->add_option_msg(short_msg => 'Could not create client options handler');
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
# Optimization # Optimization
$client_options->set_flags($openwsman::FLAG_ENUMERATION_OPTIMIZATION); $client_options->set_flags($openwsman::FLAG_ENUMERATION_OPTIMIZATION);
$client_options->set_max_elements(999); $client_options->set_max_elements(999);
###### ######
# Filter/Enumerate # Filter/Enumerate
my $filter = new openwsman::Filter::(); my $filter = new openwsman::Filter::()
if (!defined($filter)) { or $self->internal_exit(msg => 'Could not create filter');
if ($dont_quit == 1) {
$self->set_error(error_status => -1, error_msg => 'Could not create filter');
return undef;
}
$self->{output}->add_option_msg(short_msg => 'Could not create filter.');
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
$filter->wql($options{wql_filter}); $filter->wql($options{wql_filter});
my $result = $self->{client}->enumerate($client_options, $filter, $options{uri}); my $result = $self->{client}->enumerate($client_options, $filter, $options{uri});
unless($result && $result->is_fault eq 0) { return undef if ($self->handle_dialog_fault(result => $result, msg => 'Could not enumerate instances: ', dont_quit => $dont_quit));
my $fault_string = $self->{client}->fault_string();
my $msg = 'Could not enumerate instances: ' . ((defined($fault_string)) ? $fault_string : 'use debug option to have details');
if ($dont_quit == 1) {
$self->set_error(error_status => -1, error_msg => $msg );
return undef;
}
$self->{output}->add_option_msg(short_msg => $msg);
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
###### ######
# Fetch values # Fetch values
@ -270,6 +248,32 @@ sub check_options {
$self->{wsman_params}->{wsman_debug} = $options{option_results}->{wsman_debug}; $self->{wsman_params}->{wsman_debug} = $options{option_results}->{wsman_debug};
} }
sub handle_dialog_fault {
my ($self, %options) = @_;
my $result = $options{result};
my $msg = $options{msg};
unless($result && $result->is_fault eq 0) {
my $fault_string = $self->{client}->fault_string();
my $msg = 'Could not enumerate instances: ' . ((defined($fault_string)) ? $fault_string : 'use debug option to have details');
if ($options{dont_quit} == 1) {
$self->set_error(error_status => -1, error_msg => $msg);
return 1;
}
$self->{output}->add_option_msg(short_msg => $msg);
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
return 0;
}
sub internal_exit {
my ($self, %options) = @_;
$self->{output}->add_option_msg(short_msg => $options{msg});
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
sub set_error { sub set_error {
my ($self, %options) = @_; my ($self, %options) = @_;
# $options{error_msg} = string error # $options{error_msg} = string error