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

wip ibm mq

This commit is contained in:
garnier-quentin 2020-02-26 16:08:57 +01:00
parent 9b16288877
commit 53da9f000d
4 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
apps/mq/ibmmq/mqi/custom/api.pm
View File

@ -161,7 +161,7 @@ sub connect {
$self->{connected} = 1; $self->{connected} = 1;
my @results = $self->execute_command(command => 'InquireQueueManager', attrs => { QAttrs => ['QMgrName'] }); my @results = $self->execute_command(command => 'InquireQueueManager');
$self->{qmgr_name} = $results[0]->{QMgrName}; $self->{qmgr_name} = $results[0]->{QMgrName};
} }
@ -169,15 +169,20 @@ sub execute_command {
my ($self, %options) = @_; my ($self, %options) = @_;
$self->connect(); $self->connect();
my @results; my @results;
my $method = $self->{mq_command}->can($options{command}); if ($options{command} eq 'InquireQueueManager') {
if ($method) { @results = $self->{mq_command}->InquireQueueManager(%{$options{attrs}});
@results = $self->{mq_command}->$method(%{$options{attrs}}); } elsif ($options{command} eq 'InquireQueueManagerStatus') {
if (!@results) { @results = $self->{mq_command}->InquireQueueManagerStatus(%{$options{attrs}});
$self->{output}->add_option_msg(short_msg => "method '$options{command}' issue: " . $self->{mq_command}->ReasonText()); } elsif ($options{command} eq 'InquireChannelStatus') {
$self->{output}->option_exit(); @results = $self->{mq_command}->InquireChannelStatus(%{$options{attrs}});
} } elsif ($options{command} eq 'InquireQueueStatus') {
@results = $self->{mq_command}->InquireQueueStatus(%{$options{attrs}});
}
if (!@results) {
$self->{output}->add_option_msg(short_msg => "method '$options{command}' issue: " . $self->{mq_command}->ReasonText());
$self->{output}->option_exit();
} }
return @results; return @results;

2
apps/mq/ibmmq/mqi/mode/channels.pm
View File

@ -101,7 +101,7 @@ sub manage_selection {
my $result = $options{custom}->execute_command( my $result = $options{custom}->execute_command(
command => 'InquireChannelStatus', command => 'InquireChannelStatus',
attrs => { QAttrs => 'All' } attrs => { }
); );
use Data::Dumper; print Data::Dumper::Dumper($result); use Data::Dumper; print Data::Dumper::Dumper($result);
exit(1); exit(1);

2
apps/mq/ibmmq/mqi/mode/queuemanager.pm
View File

@ -82,7 +82,7 @@ sub manage_selection {
my $result = $options{custom}->execute_command( my $result = $options{custom}->execute_command(
command => 'InquireQueueManagerStatus', command => 'InquireQueueManagerStatus',
attrs => { QAttrs => 'All' } attrs => { }
); );
use Data::Dumper; use Data::Dumper;
print Data::Dumper::Dumper($result); print Data::Dumper::Dumper($result);

2
apps/mq/ibmmq/mqi/mode/queues.pm
View File

@ -101,7 +101,7 @@ sub manage_selection {
my $result = $options{custom}->execute_command( my $result = $options{custom}->execute_command(
command => 'InquireQueueStatus', command => 'InquireQueueStatus',
attrs => { QAttrs => 'All' } attrs => { QStatusAttrs => ['QName', 'CurrentQDepth', 'OpenInputCount', 'OldestMsgAge'] }
); );
use Data::Dumper; print Data::Dumper::Dumper($result); use Data::Dumper; print Data::Dumper::Dumper($result);
exit(1); exit(1);