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

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

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