Add scripts to discover and check multipath devices
This commit is contained in:
parent
cdbbc17ce6
commit
c0e1aa14ac
|
@ -0,0 +1,6 @@
|
||||||
|
# Discover multipath devices
|
||||||
|
# $1 not used for now
|
||||||
|
UserParameter=vfs.mpath.discovery[*],sudo /var/lib/zabbix/bin/disco_mpath_sudo --$1
|
||||||
|
|
||||||
|
# Check multipath device
|
||||||
|
UserParameter=vfs.mpath.info[*],sudo /var/lib/zabbix/bin/check_mpath_sudo --mpath=$1
|
|
@ -0,0 +1,125 @@
|
||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use JSON;
|
||||||
|
use Getopt::Long;
|
||||||
|
use File::Which;
|
||||||
|
|
||||||
|
my $json = {};
|
||||||
|
my $mpath = undef;
|
||||||
|
my $help = 0;
|
||||||
|
my $pretty = 0;
|
||||||
|
|
||||||
|
GetOptions(
|
||||||
|
"mpath=s" => \$mpath,
|
||||||
|
"help" => \$help,
|
||||||
|
"pretty" => \$pretty
|
||||||
|
);
|
||||||
|
|
||||||
|
my $multipathd = which('multipathd');
|
||||||
|
|
||||||
|
if (not defined $multipathd){
|
||||||
|
print 'ZBX_NOTSUPPORTED';
|
||||||
|
exit 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($help or not defined $mpath){
|
||||||
|
print <<_EOF;
|
||||||
|
Usage : $0 --mpath=<name of the mpath device> [--pretty]
|
||||||
|
|
||||||
|
* --mpath : the name of the device to check
|
||||||
|
* --pretty : output pretty JSON, easier to read for humans
|
||||||
|
* --help : display this help
|
||||||
|
|
||||||
|
_EOF
|
||||||
|
exit 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
$json = {
|
||||||
|
mpath => $mpath,
|
||||||
|
size => 0,
|
||||||
|
dm_st => 'unknown',
|
||||||
|
features => '',
|
||||||
|
failures => 0,
|
||||||
|
path_failures => 0,
|
||||||
|
paths_num_total => 0,
|
||||||
|
paths_num_ko => 0,
|
||||||
|
paths_num_active => 0,
|
||||||
|
paths_num_inactive => 0,
|
||||||
|
paths_details => [],
|
||||||
|
paths_with_issue => [],
|
||||||
|
errors => []
|
||||||
|
};
|
||||||
|
my @res = qx($multipathd show maps raw format "%n|%N|%S|%f|%t|%x|%0");
|
||||||
|
if ($? != 0){
|
||||||
|
push @{$json->{errors}}, "Failed to run multipathd show maps raw format";
|
||||||
|
}
|
||||||
|
foreach (@res){
|
||||||
|
chomp;
|
||||||
|
next if $_ !~ /^$mpath\|/;
|
||||||
|
(undef, $json->{paths_num_total}, $json->{size}, $json->{features},
|
||||||
|
$json->{dm_st}, $json->{failures}, $json->{path_failures}) = split(/\s*\|\s*/, $_);
|
||||||
|
# Cast to int
|
||||||
|
foreach (qw(failures path_failures paths_num_total)){
|
||||||
|
$json->{$_} = 0 + $json->{$_};
|
||||||
|
}
|
||||||
|
# Convert size to bytes
|
||||||
|
my $unit = chop $json->{size};
|
||||||
|
if ($unit eq 'K'){
|
||||||
|
$json->{size} *= 1024;
|
||||||
|
} elsif ($unit eq 'M'){
|
||||||
|
$json->{size} *= 1024 * 1024;
|
||||||
|
} elsif ($unit eq 'G'){
|
||||||
|
$json->{size} *= 1024 * 1024 * 1024;
|
||||||
|
} elsif ($unit eq 'T'){
|
||||||
|
$json->{size} *= 1024 * 1024 * 1024 * 1024;
|
||||||
|
} elsif ($unit eq 'P'){
|
||||||
|
$json->{size} *= 1024 * 1024 * 1024 * 1024 * 1024;
|
||||||
|
}
|
||||||
|
# No need to process the other mpath here
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
|
||||||
|
# Now check status of every path
|
||||||
|
@res = qx($multipathd show paths format "%m|%d|%t|%o|%T|%0|%z");
|
||||||
|
if ($? != 0){
|
||||||
|
push @{$json->{errors}}, "Failed to run multipathd show paths format";
|
||||||
|
}
|
||||||
|
# Skip header line
|
||||||
|
shift @res;
|
||||||
|
foreach (@res){
|
||||||
|
chomp;
|
||||||
|
next if $_ !~ /^$mpath\|/;
|
||||||
|
my (undef, $dev, $dm_st, $dev_st, $chk_st, $failures, $serial) = split(/\s*\|\s*/, $_);
|
||||||
|
push @{$json->{paths_details}}, {
|
||||||
|
dev => $dev,
|
||||||
|
dm_st => $dm_st,
|
||||||
|
dev_st => $dev_st,
|
||||||
|
chk_st => $chk_st,
|
||||||
|
failures => $failures + 0,
|
||||||
|
serial => $serial
|
||||||
|
};
|
||||||
|
if ($dm_st eq 'active'){
|
||||||
|
$json->{paths_num_active} += 1;
|
||||||
|
if ($dev_st ne 'running'){
|
||||||
|
$json->{paths_num_ko} += 1;
|
||||||
|
push @{$json->{paths_with_issue}}, $dev;
|
||||||
|
push @{$json->{errors}}, "dev $dev is not running";
|
||||||
|
} elsif ($chk_st ne 'ready' or $failures > 0){
|
||||||
|
$json->{paths_num_ko} += 1;
|
||||||
|
push @{$json->{paths_with_issue}}, $dev;
|
||||||
|
push @{$json->{errors}}, "dev $dev is not active";
|
||||||
|
} else {
|
||||||
|
$json->{paths_num_ok} += 1;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$json->{paths_num_inactive} += 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# We want easy usage from zabbix, so turn thos ones to strings
|
||||||
|
$json->{paths_with_issue} = join(',', @{$json->{paths_with_issue}});
|
||||||
|
$json->{errors} = join(',', @{$json->{errors}});
|
||||||
|
|
||||||
|
print to_json($json, { pretty => $pretty });
|
||||||
|
exit 0;
|
|
@ -0,0 +1,31 @@
|
||||||
|
#!/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;
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach (qx($multipath -l -v1)){
|
||||||
|
chomp;
|
||||||
|
push @{$json}, { '{#MPATH_DEV}' => $_ };
|
||||||
|
}
|
||||||
|
|
||||||
|
print to_json($json, { pretty => $pretty });
|
||||||
|
exit 0;
|
Loading…
Reference in New Issue