Monitoring/MyMonPlugins
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Nagios::Plugin::JUNOS: send_query: Support fallback to JUNOS::Device::command.

Browse source
This commit is contained in:
Sebastian Harl 2012-01-03 11:56:14 +01:00
parent 2700d4d4c8
commit 0d4f3dab1a
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
perl/lib/Nagios/Plugin/JUNOS.pm
View file

@ -390,7 +390,7 @@ sub send_query
{ {
my $self = shift; my $self = shift;
my $query = shift; my $query = shift;
my $queryargs = shift; my $queryargs = shift || {};
my $res; my $res;
my $err; my $err;
@ -399,10 +399,15 @@ sub send_query
. join(", ", map { "$_ => $queryargs->{$_}" } keys %$queryargs) . join(", ", map { "$_ => $queryargs->{$_}" } keys %$queryargs)
. " to router."); . " to router.");
if (ref $queryargs) { if (scalar(keys %$queryargs)) {
$res = $self->{'junos'}->$query(%$queryargs); $res = $self->{'junos'}->$query(%$queryargs);
} else { } else {
$res = $self->{'junos'}->$query(); eval {
$res = $self->{'junos'}->$query();
};
if ($@) {
$res = $self->{'junos'}->command($query);
}
} }
if (! ref $res) { if (! ref $res) {