Additional scripts for Zabbix agent on Linux to discover and monitor several services
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

38 lines
634 B

#!/usr/bin/perl
use strict;
use warnings;
use JSON;
use Getopt::Long;
use File::Which;
my $mpath = 1;
my $pretty = 0;
my $json = [];
GetOptions(
"mpath" => \$mpath,
"pretty" => \$pretty
);
my $multipath = which('multipath');
if (not defined $multipath){
print to_json($json, { pretty => $pretty });
exit 0;
}
my @dev = qx($multipath -l -v1);
# If command failed (eg no /etc/multipath.conf), then return an empty result
if ($? ne 0){
print to_json($json, { pretty => $pretty });
exit 1;
}
foreach (@dev){
chomp;
push @{$json}, { '{#MPATH_DEV}' => $_ };
}
print to_json($json, { pretty => $pretty });
exit 0;