From 1e2387474a449452b78520b9ad96a8b4b5e99722 Mon Sep 17 00:00:00 2001 From: Harald Pfeiffer Date: Wed, 17 Apr 2019 19:07:19 +0200 Subject: initial commit of source fetch --- .../check_multipath/check-multipath.pl | 1556 ++++++++++++++++++++ 1 file changed, 1556 insertions(+) create mode 100644 nagios-plugins-contrib-24.20190301~bpo9+1/check_multipath/check-multipath.pl (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/check_multipath/check-multipath.pl') diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/check_multipath/check-multipath.pl b/nagios-plugins-contrib-24.20190301~bpo9+1/check_multipath/check-multipath.pl new file mode 100644 index 0000000..7ae3c0c --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/check_multipath/check-multipath.pl @@ -0,0 +1,1556 @@ +#!/usr/bin/perl +# +# DESCRIPTION: Nagios plugin for checking the status of multipath devices on Linux servers. +# +# +# AUTHOR: Hinnerk Rümenapf (hinnerk.ruemenapf@rrz.uni-hamburg.de) +# Based on work by +# - Trond H. Amundsen +# - Gunther Schlegel +# - Matija Nalis +# +#------------------------------------------------------------- +# +# == IMPORTANT == +# +# "sudo" must be configured to allow 'multipath -l' +# and/or 'multipath -ll' if you intend to use the option -ll +# (and also 'multipath -r', if you intend to use the --reload option) +# for the NAGIOS-user without password +# +#------------------------------------------------------------- +# +# +# Copyright (C) 2011-2016 +# Hinnerk Rümenapf, Trond H. Amundsen, Gunther Schlegel, Matija Nalis, +# Bernd Zeimetz, Sven Anders, Ben Evans +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +# +# +# Vs 0.0.1 Initial Version +# 0.0.2 added check if path is 'active', fixed messages sorting, +# shorter messages, path state line check more flexible +# +# 0.1.0 added support for older 'multipath'-tool version, added +# testcase 14 and 15 +# +# 0.1.1 bugfix, improved flexibility, added testcases 16 and 17 +# 0.1.2 added support for more 'multipath'-tool versions, added testcases 18 and 19 +# 0.1.3 minor improvements +# 0.1.4 add hostname to "unknown error" message, improve help text +# 0.1.5 add debian testcases and patch by Bernd Zeimetz +# 0.1.6 Added checklunline test for "-" character, thanks to Sven Anders also for test data (testcase 22) +# 0.1.7 Added test option +# 0.1.8 Added Support for LUN names without WWID (e.g. iSCSI LUNs) +# 0.1.9 Added extraconfig option +# +# 0.2.0 Improved flexibility, more testcases. Thanks to Benjamin von Mossner and Ben Evans +# Warning if data for LUNs in --extraconfig is missing +# Added --reload option (based on Ben Evans' idea) +# 0.2.1 Improved LUN-line check, thanks to Michal Svamberg +# 0.2.2 Improved path error check, extended extraconfig capabilities (thanks to Nasimuddin Ansari for his comment) +# +# 0.3.0 Added Option --ll, added handling of checker messages. Thanks to Andreas Steinel +# +# 0.4.0 Added check if multipathd is running (suggested by Dmitry Sakoun) 11. Dec. 2015 +# Added --group option (based on comments by Robert Towster and Tom Schier) +# 0.4.1 minor changes 14. Dec. 2015 +# +# 0.4.5 distinguish between different attributes identifying a LUN (OPTIONAL) (based on suggestions by Séverin Launiau) +# for output and extraconfig LUN-selector (see usage message) +# Added ability to check counts of policies per LUN (suggested by Jim Clark) +# Added ability to check counts of scsi-hosts and scsi-ids per LUN 3. Aug. 2016 +# 0.4.6 Bugfix (output) +# 0.4.7 Compatibility with CentOS/RHEL 5-7: no "switch", check second directory for multipath binary (thanks to Christian Zettel) 25. Aug. 2016 +# + + +use strict; +use warnings; +#use Switch; ## causes compatibility issues (perl version) +use POSIX qw(isatty); +use Getopt::Long qw(:config no_ignore_case); + +# Global (package) variables used throughout the code +use vars qw( $NAME $VERSION $AUTHOR $CONTACT $E_OK $E_WARNING $E_CRITICAL + $E_UNKNOWN $USAGE $HELP $LICENSE $SUDO $MULTIPATH_LIST $MULTIPATH_LIST_LONG $MULTIPATH_RELOAD + $linebreak $counter $exit_code + %opt %reverse_exitcode %text2exit @multipathStateLines %nagios_level_count + @perl_warnings @reports @ok_reports @debugInput + ); + +#--------------------------------------------------------------------- +# Initialization and global variables +#--------------------------------------------------------------------- + + +# === Version and similar info === +$NAME = 'check-multipath.pl'; +$VERSION = '0.4.7 25. AUG 2016'; +$AUTHOR = 'Hinnerk Rümenapf'; +$CONTACT = 'hinnerk [DOT] ruemenapf [AT] uni-hamburg [DOT] de (hinnerk [DOT] ruemenapf [AT] gmx [DOT] de)'; + + + +# Collect perl warnings in an array +$SIG{__WARN__} = sub { push @perl_warnings, [@_]; }; + + +#--------------------------------------------- +# TESTCASES +# +# These testcases are important documentation +# and thus included in the script! +#--------------------------------------------- +@debugInput=( + +# 0. DUMMY +"", + +# 1. OK, 2 LUNs, 4 paths each (REAL example) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:1 sdd 8:48 active ready running\n" +." |- 4:0:0:1 sdf 8:80 active ready running\n" +." |- 3:0:0:1 sdh 8:112 active ready running\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:0 sdc 8:32 active ready running\n" +." |- 4:0:0:0 sde 8:64 active ready running\n" +." |- 3:0:0:0 sdg 8:96 active ready running\n" +." `- 3:0:1:0 sdi 8:128 active ready running\n", + + +# 2. WARN, 2 LUNs, one path missing (REAL example) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 3:0:0:1 sdf 8:80 active ready running\n" +." |- 4:0:0:1 sdi 8:128 active ready running\n" +." `- 4:0:1:1 sdk 8:160 active ready running\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 3:0:0:0 sdc 8:32 active ready running\n" +." |- 4:0:0:0 sdg 8:96 active ready running\n" +." |- 3:0:1:0 sdh 8:112 active ready running\n" +." `- 4:0:1:0 sde 8:64 active ready running\n", + + +# 3. ERR, 2 LUNs, no paths (REAL example) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 \n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 \n" +."size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n", + + +#4. OK, 1 LUN, 4 paths (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:1 sdd 8:48 active ready running\n" +." |- 4:0:0:1 sdf 8:80 active ready running\n" +." |- 3:0:0:1 sdh 8:112 active ready running\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n", + + +#5. WARN, 1 LUN, 2 paths (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:1 sdd 8:48 active ready running\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n", + + +#6. WARN, 1 LUN, 1 path (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n", + + +#7. WARN, 1 LUN, 1 no paths (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 \n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n", + + + +#8. WARN 2 LUNs, 4 paths each, TEST: failed/faulty (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:1 sdd 8:48 active ready running\n" +." |- 4:0:0:1 sdf 8:80 failed ready running\n" +." |- 3:0:0:1 sdh 8:112 active faulty running\n" +." `- 3:0:1:1 sdk 8:160 dadada ready running\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:0 sdc 8:32 faulty ready running\n" +." |- 4:0:0:0 sde 8:64 dadada ready failed\n" +." `- 3:0:1:0 sdi 8:128 active ready running\n", + + +#9. NO LUN +"", + + +#10. Syntax error 1 +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +."4:0:1:1 sdd 8:48 active ready running\n" +." |- 4:0:0:1 sdf 8:80 failed ready running\n" +." |- 3:0:0:1 sdh 8:112 active faulty running\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n", + + +# 11. Syntax error 2 +"mpatha 36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:0 sdc 8:32 faulty ready running\n" +." |- 4:0:0:0 sde 8:64 active ready failed\n" +." `- 3:0:1:0 sdi 8:128 active ready running\n", + + +# 12. Syntax error 3 +"mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."sisze=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 4:0:1:0 sdc 8:32 faulty ready running\n" +." |- 4:0:0:0 sde 8:64 active ready failed\n" +." `- 3:0:1:0 sdi 8:128 active ready running\n", + + +#13. Syntax error 4 +" |- 4:0:1:1 sdd 8:48 active ready running\n" +." `- 3:0:1:1 sdk 8:160 active ready running\n", + + +#14. old syntax OK (REAL example) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."[size=1.9T][features=1 queue_if_no_path][hwhandler=0][rw]\n" +."\\_ round-robin 0 [prio=-4][active]\n" +." \\_ 3:0:1:1 sde 8:64 [active][undef]\n" +." \\_ 3:0:0:1 sdi 8:128 [active][undef]\n" +." \\_ 4:0:1:1 sdj 8:144 [active][undef]\n" +." \\_ 4:0:0:1 sdf 8:80 [active][undef]\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."[size=2.0T][features=1 queue_if_no_path][hwhandler=0][rw]\n" +."\\_ round-robin 0 [prio=-4][active]\n" +." \\_ 3:0:0:0 sdg 8:96 [active][undef]\n" +." \\_ 3:0:1:0 sdc 8:32 [active][undef]\n" +." \\_ 4:0:0:0 sdd 8:48 [active][undef]\n" +." \\_ 4:0:1:0 sdh 8:112 [active][undef]\n", + + +#15. old syntax ERR (edit) +"mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK\n" +."[size=1.9T][features=1 queue_if_no_path][hwhandler=0][rw]\n" +."\\_ round-robin 0 [prio=-4][active]\n" +." \\_ 3:0:1:1 sde 8:64 [fault][undef]\n" +." \\_ 4:0:1:1 sdj 8:144 [active][undef]\n" +." \\_ 4:0:0:1 sdf 8:80 [active][undef]\n" +."mpatha (36000d77b000048d117c68c81bf7c160a) dm-0 FALCON,IPSTOR DISK\n" +."[size=2.0T][features=1 queue_if_no_path][hwhandler=0][rw]\n" +."\\_ round-robin 0 [prio=-4][active]\n" +." \\_ 3:0:0:0 sdg 8:96 [active][undef]\n" +." \\_ 3:0:1:0 sdc 8:32 [dadada][undef]\n" +." \\_ 4:0:0:0 sdd 8:48 [active][fail]\n" +." \\_ 4:0:1:0 sdh 8:112 [fault][undef]\n", + + +#16. Other sample (REAL example, thanks to Kai Groshert) +"36006016019e02a00d009495ddbf3e011 dm-2 DGC,VRAID\n" +."size=450G features='1 queue_if_no_path' hwhandler='1 emc' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| |- 2:0:0:1 sdi 8:128 active undef running\n" +."| `- 1:0:0:1 sdc 8:32 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." |- 1:0:1:1 sdf 8:80 active undef running\n" +." `- 2:0:1:1 sdl 8:176 active undef running\n" +."36006016019e02a008e1c5f67dbf3e011 dm-5 DGC,VRAID\n" +."size=550G features='1 queue_if_no_path' hwhandler='1 emc' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| |- 1:0:1:2 sdg 8:96 active undef running\n" +."| `- 2:0:1:2 sdm 8:192 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." |- 1:0:0:2 sdd 8:48 active undef running\n" +." `- 2:0:0:2 sdj 8:144 active undef running\n" +."36003005700f0eb70160c9b590a77c13e dm-0 LSI,RAID 5/6 SAS 6G\n" +."size=136G features='0' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=0 status=active\n" +." `- 0:2:0:0 sda 8:0 active undef running\n", + + +#17. Other sample, modified (thanks to Kai Groshert) +"36006016019e02a00d009495ddbf3e011 dm-2 DGC,VRAID\n" +."size=450G features='1 queue_if_no_path' hwhandler='1 emc' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| |- 2:0:0:1 sdi 8:128 active undef running\n" +."| `- 1:0:0:1 sdc 8:32 undef undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." |- 1:0:1:1 sdf 8:80 active undef running\n" +." `- 2:0:1:1 sdl 8:176 active undef running\n" +."36006016019e02a008e1c5f67dbf3e011 dm-5 DGC,VRAID\n" +."size=550G features='1 queue_if_no_path' hwhandler='1 emc' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| |- 1:0:1:2 sdg 8:96 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." |- 1:0:0:2 sdd 8:48 active undef running\n" +." `- 2:0:0:2 sdj 8:144 failed undef dadada\n" +."36003005700f0eb70160c9b590a77c13e dm-0 LSI,RAID 5/6 SAS 6G\n" +."size=136G features='0' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=0 status=active\n" +." `- 0:2:0:0 sda 8:0 active undef running\n", + + +#18. RedHat 4 sample, (thanks to Sébastien Maury) +"MYVOLUME (36005076801810523100000000000006f)\n" +."[size=576 GB][features=\"1 queue_if_no_path\"][hwhandler=\"0\"]\n" +."\\_ round-robin 0 [active]\n" +." \\_ 13:0:1:0 sdc 8:32 [active]\n" +." \\_ 13:0:2:0 sdd 8:48 [active]\n" +." \\_ 13:0:3:0 sde 8:64 [active]\n" +." \\_ 13:0:4:0 sdf 8:80 [active]\n" +." \\_ 14:0:1:0 sdh 8:112 [active]\n" +." \\_ 14:0:2:0 sdi 8:128 [active]\n" +." \\_ 14:0:3:0 sdj 8:144 [active]\n" +." \\_ 14:0:4:0 sdk 8:160 [active]\n", + + +#19. RedHat 4 sample, modified (thanks to Sébastien Maury) +"MYVOLUME (36005076801810523100000000000006f)\n" +."[size=576 GB][features=\"1 queue_if_no_path\"][hwhandler=\"0\"]\n" +."\\_ round-robin 0 [active]\n" +." \\_ 13:0:1:0 sdc 8:32 [active]\n" +." \\_ 13:0:2:0 sdd 8:48 [active]\n" +." \\_ 13:0:3:0 sde 8:64 [failed]\n" +." \\_ 13:0:4:0 sdf 8:80 [active]\n" +." \\_ 14:0:1:0 sdh 8:112 [faulty]\n" +." \\_ 14:0:2:0 sdi 8:128 [active]\n" +." \\_ 14:0:3:0 sdj 8:144 [dadada]\n" +." \\_ 14:0:4:0 sdk 8:160 [active]\n", + + +#20. netapp / Debian Squeeze sample (thanks to Bernd Zeimetz) +"foobar_backup_lun0 (360a98aaaa72d444e423464685a786175) dm-1 NETAPP,LUN\n" +."size=299G features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."|-+- policy='round-robin 0' prio=8 status=active\n" +."| |- 0:0:0:0 sda 8:0 active ready running\n" +."| `- 1:0:0:0 sde 8:64 active ready running\n" +."`-+- policy='round-robin 0' prio=2 status=enabled\n" +." |- 0:0:1:0 sdb 8:16 active ready running\n" +." `- 1:0:1:0 sdf 8:80 active ready running\n" +."foobar_postgresql_lun0 (360a98aaaa470505a684a656930385a4a) dm-2 NETAPP,LUN\n" +."size=4.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."|-+- policy='round-robin 0' prio=8 status=active\n" +."| |- 0:0:2:0 sdc 8:32 active ready running\n" +."| `- 1:0:2:0 sdg 8:96 active ready running\n" +."`-+- policy='round-robin 0' prio=2 status=enabled\n" +." |- 0:0:3:0 sdd 8:48 active ready running\n" +." `- 1:0:3:0 sdh 8:112 active ready running\n", + + +#21. netapp / Debian Squeeze failed path sample (thanks to Bernd Zeimetz) +"foobar_postgresql_lun0 (360a98aaaa470505a684a656930385a4a) dm-2 NETAPP,LUN\n" +."size=299G features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." `- #:#:#:# - #:# active faulty running\n", + +#22. "-" in LUN name (thanks to Sven Anders ) +"tex-lun4 (3600000e00d0000000002161200120000) dm-7 FUJITSU ,ETERNUS_DXL\n" +."[size=1.2T][features=1 queue_if_no_path][hwhandler=0]\n" +."\\_ round-robin 0 [prio=0][active]\n" +." \\_ 7:0:1:4 sdt 65:48 [active][undef]\n" +." \\_ 2:0:1:4 sdu 65:64 [active][undef]\n" +."tex-lun3 (3600000e00d0000000002161200110000) dm-8 FUJITSU ,ETERNUS_DXL\n" +."[size=1.0T][features=1 queue_if_no_path][hwhandler=0]\n" +."\\_ round-robin 0 [prio=0][active]\n" +." \\_ 2:0:1:3 sds 65:32 [active][undef]\n" +." \\_ 7:0:1:3 sdr 65:16 [active][undef]\n", + +#23. LUN without WWID (iSCSI) thanks to Ernest Beinrohr +"1STORAGE_server_target2 dm-2 IET,VIRTUAL-DISK\n" +."size=1.0T features='0' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=0 status=active\n" +." |- 9:0:0:1 sdc 8:32 active undef running\n" +." `- 10:0:0:1 sdd 8:48 active undef running\n", + +#24. LUN without WWID (iSCSI) thanks to Ernest Beinrohr +"1STORAGE_server_target2 dm-2 IET,VIRTUAL-DISK\n" +."size=1.0T features='0' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." |- 9:0:0:1 sdc 8:32 active ready running\n" +." `- 10:0:0:1 sdd 8:48 failed faulty running\n", + +#25. Old Debian Lenny example (edited) thanks to Benjamin von Mossner +"360a98000503361754b5a58724f6f7a59dm-2 NETAPP ,LUN\n" +."size=450G features='1 queue_if_no_path' hwhandler='1 emc' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| |- 2:0:0:1 sdi 8:128 active undef running\n" +."| `- 1:0:0:1 sdc 8:32 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." |- 1:0:1:1 sdf 8:80 active undef running\n" +." `- 2:0:1:1 sdl 8:176 active undef running\n", + +#26. thanks to Ben Evans +"map00 (36d4ae52000a2666a0000083751e90c16) dm-1 DELL,MD32xx\n" +."size=9.1T features='2 pg_init_retries 50' hwhandler='1 rdac' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| `- 1:0:0:0 sdb 8:16 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." `- 2:0:0:0 sdf 8:80 active failed running\n", + +#27. thanks to Ben Evans +"map00 (36d4ae52000a2666a0000083751e90c16) dm-1 DELL,MD32xx\n" +."size=9.1T features='2 pg_init_retries 50' hwhandler='1 rdac' wp=rw\n" +."|-+- policy='round-robin 0' prio=0 status=active\n" +."| `- 1:0:0:0 sdb 8:16 active undef running\n" +."`-+- policy='round-robin 0' prio=0 status=enabled\n" +." `- #:#:#:# - #:# active undef running\n", + +#28. thanks to Michal Svamberg +"fc-p6-vicepb (1Proware_FF010000333001EC) dm-1 Proware,R_laila\n" +."size=4.8T features='0' hwhandler='0' wp=rw\n" +."|-+- policy='round-robin 0' prio=1 status=active\n" +."| `- 9:0:1:0 sdd 8:48 active ready running\n" +."|-+- policy='round-robin 0' prio=1 status=enabled\n" +."| `- 9:0:0:0 sdc 8:32 active ready running\n" +."|-+- policy='round-robin 0' prio=1 status=enabled\n" +."| `- 9:0:2:0 sde 8:64 active ready running\n" +."`-+- policy='round-robin 0' prio=1 status=enabled\n" +." `- 9:0:5:0 sdh 8:112 active ready running", + +#29. more errors (edited) +"mpathb (36000d7700000c5780d68e963a7d30695) dm-1 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='service-time 0' prio=1 status=active\n" +." |- 7:0:0:1 sdd 8:48 active ready running\n" +." |- 7:0:1:1 sdg 8:96 active ready running\n" +." |- 8:0:0:1 sdj 8:144 failed faulty offline\n" +." `- 8:0:1:1 sdm 8:192 active ready running\n" +."mpatha (36000d77e0000c9f549b7b04ab12f4f29) dm-0 FALCON,IPSTOR DISK\n" +."size=1.9T features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."`-+- policy='service-time 0' prio=1 status=active\n" +." |- 7:0:0:0 sdc 8:32 active shaky running\n" +." |- 7:0:1:0 sdf 8:80 active ready running\n" +." |- 8:0:0:0 sdi 8:128 failed faulty offline\n" +." `- 8:0:1:0 sdl 8:176 active ready running\n", + +#30. thanks to Andreas Steinel +"sddv: checker msg is \"tur checker reports path is down\"\n" +."mpatha (3aaaabbbbccccddddeeeeffff00001111) dm-16 DGC,VRAID\n" +."[size=300G][features=1 queue_if_no_path][hwhandler=1 alua][rw]\n" +."\\_ round-robin 0 [prio=100][active]\n" +." \\_ 2:0:2:10 sdao 66:128 [active][ready] \n" +." \\_ 1:0:2:10 sddk 71:32 [active][ready] \n" +."\\_ round-robin 0 [prio=10][enabled]\n" +." \\_ 2:0:3:10 sdaz 67:48 [active][ready] \n" +."\\_ round-robin 0 [prio=0][enabled]\n" +." \\_ 1:0:3:10 sddv 71:208 [active][faulty]\n", + +#31. thanks to Robert Towster +"3600507606700440c1d0bba930b81dd65 dm-1 IBM,ServeRAID M1210e\n" +."size=185G features='0' hwhandler='0' wp=rw\n" +."`-+- policy='round-robin 0' prio=1 status=active\n" +." `- 2:2:0:0 sdaa 65:160 active ready running\n" +."360050768018106d97800000000000134 dm-13 IBM,2145\n" +."size=200G features='1 queue_if_no_path' hwhandler='0' wp=rw\n" +."|-+- policy='round-robin 0' prio=50 status=active\n" +."| |- 0:0:2:11 sdt 65:48 active ready running\n" +."| `- 1:0:2:11 sdau 66:224 active ready running\n" +."`-+- policy='round-robin 0' prio=10 status=enabled\n" +." |- 0:0:3:11 sdz 65:144 active ready running\n" +." `- 1:0:3:11 sdba 67:64 active ready running\n", + +#32. thanks to Séverin Launiau +"3600a098038303039492b473242384661 dm-19 NETAPP ,LUN C-Mode\n" +."size=5.0T features='4 queue_if_no_path pg_init_retries 50 retain_attached_hw_handle' hwhandler='1 alua' wp=rw\n" +."|-+- policy='service-time 0' prio=50 status=active\n" +."| `- 7:0:0:0 sdb 8:16 active ready running\n" +."`-+- policy='service-time 0' prio=10 status=enabled\n" +." `- 11:0:0:0 sdg 8:96 active ready running\n" +."360a98000375432714a3f336733636843 dm-3 NETAPP ,LUN\n" +."size=10T features='4 queue_if_no_path pg_init_retries 50 retain_attached_hw_handle' hwhandler='0' wp=rw\n" +."`-+- policy='service-time 0' prio=2 status=active\n" +." |- 8:0:0:0 sdd 8:48 active ready running\n" +." |- 9:0:0:0 sde 8:64 active ready running\n" +." |- 10:0:0:0 sdf 8:80 active ready running\n" +." `- 12:0:0:0 sdi 8:128 active ready running\n" +."3600a098038303039365d4671616a756e dm-2 NETAPP ,LUN C-Mode\n" +."size=150G features='4 queue_if_no_path pg_init_retries 50 retain_attached_hw_handle' hwhandler='1 alua' wp=rw\n" +."|-+- policy='service-time 0' prio=50 status=active\n" +."| `- 11:0:0:1 sdh 8:112 active ready running\n" +."`-+- policy='service-time 0' prio=10 status=enabled\n" +." `- 7:0:0:1 sdc 8:32 active ready running\n" + ); + + +# Commands with full path +$SUDO = '/usr/bin/sudo'; + + +# check path for multipath command +my $multipathCmd = '/usr/sbin/multipath'; +if (! -e $multipathCmd ) { + $multipathCmd = '/sbin/multipath'; + if ( ! -e $multipathCmd ) { + $multipathCmd = ''; + } # if +} # if + +# commands with options +$MULTIPATH_LIST_LONG = $multipathCmd.' -ll'; +$MULTIPATH_LIST = $multipathCmd.' -l'; +$MULTIPATH_RELOAD = $multipathCmd.' -r'; + + +# Exit codes +$E_OK = 0; +$E_WARNING = 1; +$E_CRITICAL = 2; +$E_UNKNOWN = 3; + +# Nagios error levels reversed +%reverse_exitcode + = ( + 0 => 'OK', + 1 => 'WARNING', + 2 => 'CRITICAL', + 3 => 'UNKNOWN', + ); + + +# Translate text exit codes to values +%text2exit + = ( 'ok' => $E_OK, + 'warning' => $E_WARNING, + 'critical' => $E_CRITICAL, + 'unknown' => $E_UNKNOWN, + ); + + +# Usage text +$USAGE = <<"END_USAGE"; + +Usage: $NAME [OPTIONS] +END_USAGE + +# Help text +$HELP = <<'END_HELP'; + +check-multipath.pl - Nagios plugin to check multipath connections +see: + http://exchange.nagios.org/directory/Plugins/Operating-Systems/Linux/check-2Dmultipath-2Epl/details + http://www.nagios.org/documentation + +The number of parameters and options has increased over the time, as a result of feature requests by users. +You might not need most of them. + +A configuration for a specific LUN name via --extraconfig has highest priority and overrides group and global config. +If a regex defined in --group matches a LUN line the specified group values are used. (First regex in List, checked from left to right) +Otherwise the global defaults are used (--min-paths, --ok-paths). + +OPTIONS: + -m, --min-paths Low mark, less paths per LUN are CRITICAL [2] + -o, --ok-paths High mark, less paths per LUN raise WARNING [4] + -n, --no-multipath Exitcode for no LUNs, no multipath driver and multipathd not running [warning] + -M, --mdskip Skip extra check if multipathd is running (check uses '--no-multipath' returncode) + + -a, --addchecks define low/high marks for additional checks + number of policies per LUN p,, DEFAULT: p,0,0 + number of scsi-hosts per LUN sh,, DEFAULT: sh,0,0 + number of scsi-ids, per LUN si,, DEFAULT: si,0,0 + e.g. 'p,1,2,sh,1,2'; 'si,1,2,p,1,2,sh,2,4'; 'p,1,2' + See documentation of multipath output. If the HIGH value is 0, the check is skipped. + A typical standard-configuration uses 2 scsi-hosts and 2 scsi-ids, resulting in four paths + representing all possible combinations: h0-i0, h0-i1, h1-i0, h1-i1. + + --scsi-all Count all scsi-hosts and scsi-ids, even from paths that report an error state. + + -r, --reload force devmap reload if status is WARNING or CRITICAL + (multipath -r) + Can help to pick up LUNs coming back to life. + + -L, --ll use multipath -ll instead of multipath -l + Can improve detection of failed paths with older versions of multipath tools + + + -l, --linebreak Define end-of-line string: + REG regular UNIX-Newline + HTML
+ -other- use specified string as linebreak symbol, + e.g. ', ' (all in one line, comma seperated) + + -g, --group Specify perl-regex to identify groups of LUNs with other default-thresholds. + Overrides global config for LUNs with LUN lines that math a group regex. + In most cases a simple String should be sufficient. NOTE: special regex characters must be escaped! + ",,[@#,]:" for each group with deviant thresholds (see explanation of --addchecks) + e.g. "IBM,ServeRAID,1,1:HAL,ChpRAID,1,2:" or "IBM,ServeRAID,1,1@#,p,1,2:HAL,ChpRAID,1,2@#,sh,1,2,si,1,2:" + Use command multipath -l to see the LUN lines and to identify groups. + + -e, --extraconfig Specify different low/high thresholds for LUNs. + Overrides group and global config for the specified LUNs. + optional: specify return code if no data for LUN selector was found + (ok, warning, critical), default is warning + the return code MAY be followed by definitions of additional check, see explanation of --addchecks above + ",,[,[,]]:" for each LUN with deviant thresholds + e.g. "iscsi_lun_01,2,2:dummyLun,1,1,ok:paranoid_lun,8,16,critical:" + "oddLun,3,5:" + "paranoidOddLun,5,11,critical,p,3,5,sh,5,9,si,3,7:" + "default,2,4,warning:DonalLunny,6,8,warning,sh,1,4,si,1,4:" + + is by default checked against the "generic Name", as used in older plugin versions. + You can specify a prefix to select a LUN attribute as identifier. + Not all attributes may be available, depending on the specific multipath configuration. + Use command multipath -l to see the complete LUN lines. + "G!" generic name, as used in older versions. Exists always. Content depends on the specific configuration. DEFAULT + "W!" WWID as reported by the multipath command + "D!" dm Identifier (dm-3 or similar) + "N!" user-firendly name + e.g. 'W!36000d774000045f655ea91cb4ea41d6f,4,8,critical:DonalLunny,6,8:D!dm-3,1,2,warning,sh,1,2,si,1,2:' + NOTE: enclose parameter value in SINGLE-quotes for this notation! + + -p, --print List to determine which attribute of the LUN should be printed as identifier in the output + The letters in the list are checked from left to right, the first coresponding attribute that exists is printed. + The letter G is always appended to the list. + Avalible are: + G: generic name, as used in older versions. Exists always. Content depends on the specific configuration. + W: WWID as reported by the multipath command + D: dm Identifier (dm-3 or similar) + N: user-firendly name + e.g. "DN": print dm-identifier (if present), else user friendly name (if present) else generic name (as G is always appended to the list) + "WDN": print WWID (if present), else print dm-identifier (if present), else user friendly name (if present) else generic name (as G ist always appended to the list) + + -s, --state Prefix alerts with alert state + -S, --short-state Prefix alerts with alert state abbreviated + -h, --help Display this help text + -V, --version Display version info + -v, --verbose More text output + + -d, --di Run testcase instead of real check [0] + -t, --test Do not display testcase input, just result + + -h, --help Display this message + + +NOTE: 'sudo' must be configured to allow the nagios-user to call + multipath -l and/or multipath -ll if you use the -ll option + (and also multipath -r, if you intend to use the --reload option) + *without* password. + +END_HELP + +# Version and license text +$LICENSE = <<"END_LICENSE"; + +$NAME $VERSION + +Copyright (C) 2011-2016 $AUTHOR +License GPLv3+: GNU GPL version 3 or later +This is free software: you are free to change and redistribute it. +There is NO WARRANTY, to the extent permitted by law. + +Written by +$AUTHOR <$CONTACT> + +Thanks for contributions to +Bernd Zeimetz, Sven Anders, Ben Evans and others + +Based on work by +- Trond H. Amundsen +- Gunther Schlegel +- Matija Nalis +END_LICENSE + + +# Options with default values +%opt + = ( #'timeout' => 5, # default timeout is 5 seconds + 'help' => 0, + 'version' => 0, + 'no_multipath' => 'warning', + 'min-paths' => 2, + 'ok-paths' => 4, + 'state' => 0, + 'di' => 0, + 'shortstate' => 0, + 'linebreak' => undef, + 'extraconfig' => '', + 'verbose' => 0, + 'test' => 0, + 'reload' => 0, + 'll' => 0, + 'mdskip' => 0, + 'group' => '', + 'print' => '', + 'scsi-all' => 0, + 'addchecks' => '', + ); + + +# the hash keys define the valid check identifiers. only \w characters for IDs! +# Initialize the hash with defaults (no checks) +my %addChecks + = ( + 'sh' => [0,0], # scsi-hosts + 'si' => [0,0], # scsi-ids + 'p' => [0,0], # policies + ); + +# short human readable description +my %addCheckNames + = ( + 'sh' => 'scsi-hosts', + 'si' => 'scsi-ids', + 'p' => 'policies', + ); + + +# Get options +GetOptions(#'t|timeout=i' => \$opt{timeout}, + 'h|help' => \$opt{'help'}, + 'V|version' => \$opt{'version'}, + 'n|no-multipath=s' => \$opt{'no_multipath'}, + 'm|min-paths=i' => \$opt{"min-paths"}, + 'o|ok-paths=i' => \$opt{"ok-paths"}, + 'd|di=i' => \$opt{"di"}, + 's|state' => \$opt{'state'}, + 'S|short-state' => \$opt{'shortstate'}, + 'l|linebreak=s' => \$opt{'linebreak'}, + 'e|extraconfig=s' => \$opt{'extraconfig'}, + 'v|verbose' => \$opt{'verbose'}, + 't|test' => \$opt{'test'}, + 'r|reload' => \$opt{'reload'}, + 'L|ll' => \$opt{'ll'}, + 'M|mdskip' => \$opt{'mdskip'}, + 'g|group=s' => \$opt{'group'}, + 'p|print=s' => \$opt{'print'}, + 'scsi-all' => \$opt{'scsi-all'}, + 'a|addchecks=s' => \$opt{'addchecks'}, + ) or do { print $USAGE; exit $E_UNKNOWN }; + +# If user requested help +if ($opt{'help'}) { + print $USAGE, $HELP; + exit $E_OK; +} + +# If user requested version info +if ($opt{'version'}) { + print $LICENSE; + exit $E_OK; +} + +# Reports (messages) are gathered in this array +@reports = (); + +# +# DOES NOT WORK when calling commands with qx() +# +# Setting timeout +#$SIG{ALRM} = sub { +# print "PLUGIN TIMEOUT: $NAME timed out after $opt{timeout} seconds\n"; +# exit $E_UNKNOWN; +#}; +#alarm $opt{timeout}; + + + +#--------------------------------------- +# +# Initialise a hash with current addcheck defaults +# copy the arrays, not just the references! +# +sub getNewAddCheckHash { + my %h; + + foreach my $k (keys %addChecks) { + #print "getNewAddCheckHash : '$k'\n"; + my @arr = @{$addChecks{$k}}; + $h{$k}= \@arr; + } # foreach + + return \%h; +} # sub + + +#--------------------------------------- +# +# analyse definition of additional checks, write check-values to referenced hash +# +sub getAddChecks { + my ($inString, $rOuthash, $errPrefix) = @_; + + if ( !defined($inString) ) { # undefined or empty means no change + return; + } elsif ($inString eq '') { + return; + } # if + + if ( !defined($errPrefix) ) { # errorPrefix should give information about the call context + $errPrefix = ''; + } # if + + if ($inString !~ m!^\w+,\d+,\d+(,\w+,\d+,\d+)*$! ) { + unknown_error($errPrefix."invalid addcheck definition: '$inString', syntax error. See help information."); + } # if + + while ($inString =~ m!(\w+),(\d+),(\d+)!g) { + my ( $id, $low, $high ) = ($1, $2, $3); + #print "AddCheck: id='$id', low='$low', high='$high', errprefix='$errPrefix'\n"; + + if ( defined($$rOuthash{$id}) ) { # hash keys define valid ids + if ( $low <= $high ) { # make sure low and high value are in the right order + @{$$rOuthash{$id}} = ($low, $high); # only set values found in input string, leave the others untouched + } else { + unknown_error($errPrefix."invalid addcheck definition for id '$id', low value bigger than high value. See help information."); + } # if + } else { + unknown_error($errPrefix."invalid addcheck identifier '$id' in '$inString', syntax error. See help information."); + } # if + } # while +} # sub + +#--------------------------------------- + + + +# Default line break +$linebreak = isatty(*STDOUT) ? "\n" : '
'; + + +# Line break from option +if (defined $opt{linebreak}) { + if ($opt{linebreak} eq 'REG') { + $linebreak = "\n"; + } + elsif ($opt{linebreak} eq 'HTML') { + $linebreak = '
'; + } + else { + $linebreak = $opt{linebreak}; + } +} # if + +# Analyse additional check definitions. Parameter sets defaults +# exit on Error +getAddChecks( $opt{'addchecks'}, \%addChecks, "Parameter '--addchecks'; " ); + + +# group option +my @group = (); + +#print "--group='".$opt{'group'}."'\n"; +if ($opt{'group'} ne '') { + if ( $opt{'group'} !~ m!^(.+?,\d+,\d+(?:@#(,\w+,\d+,\d+)*)?:)+$! ) { + unknown_error("Wrong usage of '--group' option: '" + . $opt{'group'} + . "' syntax error. See help information."); + } # if + + while ( $opt{'group'} =~ m/(.+?),(\d+),(\d+)(?:@#,([\w\d,]+))?:/g ) { + my $regex = $1; + my $crit = $2; + my $warn = $3; + my $addchecks = $4; + if ( !defined($addchecks) ) { + $addchecks = ''; + } # if + #print "GROUP: Regex='$regex', c=$crit, w=$warn, addchecks='$addchecks'\n"; + + if ($crit > $warn) { + unknown_error("Error in '--group' option '" + . $opt{'group'} + . "' for group rule '$regex': critical threshold ($crit) must not be higher than warning threshold ($warn)."); + } # if + + my $rHash = getNewAddCheckHash(); # initialise with default + getAddChecks( $addchecks, $rHash, "Parameter '--group'; " ); + push ( @group, { 'regex' => $regex, 'warn' => $warn, 'crit' => $crit, 'addchecks' => $rHash } ); + } # while +} # if + + +# print option +$opt{'print'} .= 'G'; # last resort: "generic name" (always present) als default +if ($opt{'print'} !~ m!^[GWND]+$!) { + unknown_error("Error in '--print' option: invalid character in value '". $opt{'print'} ."'. Please check usage."); +} # if + + +# extraconfig option +my @extraconfig = (); + +if ($opt{extraconfig} ne '') { + if ( $opt{extraconfig} !~ m/^([GWDN]!)?([\w\-]+,\d+,\d+(?:,(?:ok|warning|critical)(?:,\w+,\d+,\d+)*)?:)+$/ ) { + unknown_error("Wrong usage of '--extraconfig' option: '" + . $opt{extraconfig} + . "' syntax error. See help information."); + } # if + + #print "EXTRA-Param '$opt{extraconfig}'\n"; + while ( $opt{extraconfig} =~ m/(?:([GWDN])!)?([\w\-]+),(\d+),(\d+)(?:,(ok|warning|critical)(?:,([\w\d,]+))?)?:+/g ) { + my $attribute = $1; + my $attribValue = $2; + my $crit = $3; + my $warn = $4; + my $ret = $5; + my $addchecks = $6; + my $missingRet = $E_WARNING; # set default + + if ( defined($ret) ) { # if retcode is given: convert and store + $missingRet=$text2exit{$ret}; + } else { + $ret = '#UNDEF#'; + } # if + if ( !defined($addchecks) ) { + $addchecks = ''; + } # if + if ( !defined($attribute) ) { + $attribute = 'G'; # DEFAULT: generic Name + } # if + + #print "EXTRA: attrib='$attribute', val='$attribValue', c=$crit, w=$warn, m=$missingRet, '$ret', addchecks='$addchecks'\n"; + + if ($crit > $warn) { + unknown_error("Error in '--extraconfig' option '" + . $opt{extraconfig} + . "' for LUN selector '".$attribute.'!'.$attribValue."': critical threshold ($crit) must not be higher than warning threshold ($warn)."); + } # if + + my $rHash = getNewAddCheckHash (); # initialise with default + getAddChecks( $addchecks, $rHash, "Parameter '--extraconfig'; " ); + push ( @extraconfig, {'attrib' => $attribute, 'val' =>$attribValue, 'warn' => $warn, 'crit' => $crit, 'missingRet' => $missingRet, 'addchecks' => $rHash, 'found' => 0 }); + } # while +} # if + + + +# Check syntax of '--no-multipath' option +if (!exists $text2exit{$opt{no_multipath}}) { + unknown_error("Wrong usage of '--no-multipath' option: '" + . $opt{no_multipath} + . "' is not a recognized keyword"); +} + +# Check min-paths option +if ( $opt{"min-paths"} < 1 ) { + unknown_error("Wrong usage of '--min-paths' option: '" + . $opt{"min-paths"} + . "' (must be at least 1)"); +} + +# Check ok-paths option +if ( $opt{"ok-paths"} < $opt{"min-paths"} ) { + unknown_error("Wrong usage of '--ok-paths' option: '" + . $opt{"ok-paths"} + . "' (must NOT be less than '--min-paths': " + . $opt{"min-paths"} + . ")") ; +} + +# Check di (Debug-Input) option +if ( $opt{"di"} > $#debugInput ) { + unknown_error("Wrong usage of '--di' option: '" + . $opt{"di"} + . "' (must NOT be bigger than: " + . $#debugInput + . ")") ; +} + + +#--------------------------------------------------------------------- +# Functions +#--------------------------------------------------------------------- + +#--------------------------------------- +# +# Store a message in the message array +# +sub report { + my ($msg, $exval) = @_; + return push @reports, [ $msg, $exval ]; +} + +#--------------------------------------- +# +# Give an error and exit with unknown state +# +sub unknown_error { + my $msg = shift; + + if ($opt{"test"}) { + print "ERROR: $msg |TESTCASE|\n"; + } else { + my $hostname = qx('hostname'); # add hostname to error message + chomp $hostname; + print "ERROR: $msg |Host: $hostname|\n"; + } + exit $E_UNKNOWN; +} + +#--------------------------------------- +# +# get attribute to print from LUN data +# +sub getLunPrintName { + my ( $rLunDef ) = @_; + + my $lunPrintName = 'UNDEF'; + my $displayPrio = $opt{'print'}; + for(my $i = 0; $i < length($displayPrio); $i++) { # all characters in prio-string + my $c = substr ($displayPrio, $i, 1); + #print "i=$i, c='$c'\n"; + if ($$rLunDef{$c}) { # first non-empty attribute wins + $lunPrintName = $$rLunDef{$c}; + #print "FOUND: $lunPrintName i=$i, c='$c'\n"; + last; + } # if + } # for + + return $lunPrintName; +} # sub + + +#--------------------------------------- +# +# get output of multipath -l +# or debug input (testcase) +# +sub get_multipath_text { + my ( $cmd ) = @_; + + if ( !defined($cmd) || $cmd !~ m!^/\w+! ) { + unknown_error ("INVALID system command '$cmd' specified."); + } + my $cmdFull = $cmd.' 2>/dev/null'; # ignore error output + + my $output = ""; + + if ( ! $opt{"di"} ) { # normal action, NO debug input + #print "Reale USER-ID : $< Effektive USER-ID : $>\n"; + #print getpwuid( $< )."\n"; + my $command = ""; + if ($< == 0 ) { # called by root? + $command = $cmdFull; # use command "as is" + } else { + $command = "$SUDO $cmdFull"; # otherwise: use sudo + } + #print "exec [$command]\n"; + + $output = qx($command); + my $err = $!; + if ($? != 0) { + + # if no multipath driver found just set empty string (no LUNs) + if ( $output =~ m/multipath kernel driver not loaded/ ) { + $output = ""; + } else { + if ($< != 0) { + # (root) NOPASSWD: /sbin/multipath -l + # (root) NOPASSWD: /sbin/multipath -ll + # (root) NOPASSWD: /sbin/multipath -r + my $sudoListCommand = "$SUDO -l 2>/dev/null"; + my $sudoList = qx($sudoListCommand); + if ($sudoList !~ m!\(root\) \s+ NOPASSWD\: \s+ $cmd!x ) { + unknown_error ("Command failed, 'sudo' not configured for command: '$cmd'?" ); + } # if + } # if + + unknown_error ("command '$command' FAILED: '$output', '$err'"); + } + } + #print "-----\ndi=". $opt{"di"} ."\n-----\n[". $output ."]\n-----\n\n"; + } else { # TESTCASE + $output = $debugInput[$opt{"di"}]; + if (!$opt{"test"} ) { + print "=====\nTESTCASE di=". $opt{"di"} ."\n-----\n". $output ."=====\n"; + } # if + } + + $output =~ s/[\[\]\\]+/ /g; # substitute special characters with space + my @textArray = split (/[\n\r]+/, $output); # Array of text lines + return \@textArray; +} + + +#--------------------------------------- +# +# check if text is a LUN description line +# if so, set variables for new LUN +# +sub checkLunLine { + my ($textLine, $rCurrentLun, $rLunData) = @_; + #print "checkLunLine: '$textLine'\n"; + + my $idGeneric = ''; + my $idWWID = ''; + my $idDm = ''; + my $idName = ''; + + # mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 FALCON,IPSTOR DISK + # mpathb (36000d774000045f655ea91cb4ea41d6f) dm-1 + # MYVOLUME (36005076801810523100000000000006f) + # tex-lun4 (3600000e00d0000000002161200120000) dm-7 FUJITSU ,ETERNUS_DXL + # fc-p6-vicepb (1Proware_FF010000333001EC) dm-1 Proware,R_laila thanks to Michal Svamberg + #if ($textLine =~ m/^([\w\-]+) \s+ \([\w\-]+\)/x) { + if ($textLine =~ m/^([\w\-]+) \s+ \(([\w\-]+)\) (?: \s+ ([\w\-]+))?/x) { + $$rCurrentLun = $1; + $idGeneric = $1; + $idName = $1; + $idWWID = $2; + $idDm = $3; + + if ( !defined($idDm) ) { + $idDm =''; + } + #report("named LUN $$rCurrentLun found, G='$idGeneric', W='$idWWID', D='$idDm', N='$idName'", $E_OK); + } + # 36006016019e02a00d009495ddbf3e011 dm-2 DGC,VRAID + # 360a98000503361754b5a58724f6f7a59 dm-2 NETAPP ,LUN + # 360a98000503361754b5a58724f6f7a59 dm-2 NETAPP ,LUN C-Mode + #elsif ($textLine =~ m/^[0-9a-fA-F]+ \s+ ([\w\-\_]+)/x) { + elsif ($textLine =~ m/^([0-9a-fA-F]+) \s+ ([\w\-\_]+)/x) { + $$rCurrentLun = $2; + $idGeneric = $2; + $idWWID = $1; + $idDm = $2; + #report("simple (1) LUN $$rCurrentLun found, G='$idGeneric', W='$idWWID', D='$idDm', N='$idName'", $E_OK); + } + # 360a98000503361754b5a58724f6f7a59dm-2 NETAPP ,LUN + #elsif ($textLine =~ m/^[0-9a-fA-F]{3,33} \s* ([\w\-\_]+) \s+/x) { + elsif ($textLine =~ m/^([0-9a-fA-F]{33}) ([\w\-]+) \s+ ([\w\-\_]+)/x) { + $$rCurrentLun = $2; + $idGeneric = $2; + $idWWID = $1; + $idDm = $2; + #report("simple (2) LUN $$rCurrentLun found, G='$idGeneric', W='$idWWID', D='$idDm', N='$idName'", $E_OK); + } + # iscsi-LUN example + # 1STORAGE_server_target2 dm-2 IET,VIRTUAL-DISK + #elsif ($textLine =~ m/^([\w\-]+) \s+ [a-z]+\-\d+ \s+ [\w\-\,]+/x) { + elsif ($textLine =~ m/^([\w\-_]+) \s+ ([\w\-]+) \s+ [\w\-\_]+/x) { + $$rCurrentLun = $1; + $idGeneric = $1; + $idName = $1; + $idDm = $2; + + #report("LUN without WWID $$rCurrentLun found, G='$idGeneric', W='$idWWID', D='$idDm', N='$idName'", $E_OK); + } + else { + return 0; ## Not a LUN line, stop here and return zero + } # if + + # initialise data of found LUN + ${$rLunData}{$$rCurrentLun} = { 'paths' => 0, 'policies' => 0, + 'lunline' => $textLine, + 'G' => $idGeneric, 'W' => $idWWID, 'D' => $idDm, 'N' => $idName, + 'sh-hash' => {}, 'si-hash' => {} + }; + return 1; +} # sub + + +#--------------------------------------- +# +# check if text is a policy description line +# +sub checkPolicyLine { + my ($textLine, $currentLun, $rLunData) = @_; + #print "checkPolicyLine: '$textLine'\n"; + + # `-+- policy='round-robin 0' prio=-1 status=active + # |-+- policy='round-robin 0' prio=0 status=active + ##\_ round-robin 0 [prio=-4][active] + ## _ round-robin 0 prio=-4 active + #\_ round-robin 0 [active] + # _ round-robin 0 active + #if ( $textLine =~ m/^[|\`\-\+_\s]+ \s+ (?:policy=\')?[\w\.\-\_]+ \s \d(?:\')? \s+ prio=/x ) { + if ( $textLine =~ m/^[|\`\-\+_\s]+ \s+ (?:policy=\')?[\w\.\-\_]+ \s \d(?:\')? \s+ \w+/x ) { + ${$$rLunData{$currentLun}}{'policies'}++; + #print "checkPolicyLine: found policy no. ".${$$rLunData{$currentLun}}{'policies'}."\n"; + return 1; + } else { + return 0; + } # if +} # sub + + +#--------------------------------------- +# +# analyse multipath state +# (output lines) +# +sub checkMultipathText { + my ($rTextArray) = @_; + + my $state = "pathDesc"; + my $currentLun = ""; + my %lunData = (); + my $i = 0; + + foreach my $textLine (@$rTextArray) { + $i++; + #print "$i:\n"; + if ($state eq 'pathDesc') { # initial state: look for path state, new LUN Name, policy + # check for path status line + # |- 3:0:0:1 sdf 8:80 active undef running + ## \_ 3:0:1:1 sde 8:64 [active][undef] + ## _ 3:0:1:1 sde 8:64 active undef + ## \_ 13:0:1:0 sdc 8:32 [active] + ## _ 13:0:1:0 sdc 8:32 active + + # (thanks to Bernd Zeimetz) + # `- #:#:#:# - #:# active faulty running + + # (thanks to Ben Evans) + # `- #:#:#:# - #:# active undef running + + #if ( $textLine =~ m/^[\s_\|\-\`\\\+]+ [#\d\:]+ \s+ ([\w\-]+) \s+ [#\d\:]+ \s+ \w+/xi ) { + if ( $textLine =~ m/^[\s_\|\-\`\\\+]+ ([#\d]+):[#\d]+:([#\d]+):[#\d]+ \s+ ([\w\-]+) \s+ [#\d\:]+ \s+ \w+/xi ) { + my $sh = $1; + my $si = $2; + my $pathName = $3; + my $ok = 0; + + my $rLunData = $lunData{$currentLun}; + + #print "pathDesc: [$textLine], "; + #print "LUN '$currentLun', path '$pathName', sh='$sh', si='$si'\n"; + + if ($textLine =~ m/fail|fault|offline|shaky/) { # fail or fault, offline or shaky? + #print "ERROR: $textLine\n"; + report("LUN ".getLunPrintName ($rLunData).", path $pathName: ERROR.", $E_WARNING); + } + elsif ($textLine !~ m/\sactive\s/) { # path is active? + #print "NOT active: $textLine\n"; + report("LUN ".getLunPrintName ($rLunData).", path $pathName: NOT active.", $E_WARNING); + } + elsif ($pathName eq "-") { # empty path name => path is missing (thanks to Ben Evans) + report("LUN ".getLunPrintName ($rLunData).": missing path (empty path name)", $E_WARNING); + } + else { + if ( $currentLun eq "") { # YES => check logic, increase path count for LUN + unknown_error ("Path info before LUN name. Line $i:\n'$textLine'") + } + $$rLunData{'paths'}++; + $ok =1; + } # if + + + if ( $ok || $opt{'scsi-all'}) { # if path is OK or ALL paths are to be counted + if ($sh =~ m!^\d+$! ) { + ${$$rLunData{'sh-hash'}}{$sh}=1; # store scsi-host as hash key + } # if + + if ($si =~ m!^\d+$! ) { + ${$$rLunData{'si-hash'}}{$si}=1; # store scsi-id as hash key + } # if + } # if + } # check for new LUN name + elsif ( checkLunLine ($textLine, \$currentLun, \%lunData) ) { + $state="lunInfo"; + } # check for new LUN name + elsif ( ($currentLun ne "") && checkPolicyLine ($textLine, $currentLun, \%lunData) ) { + ; # SKIP NESTED POLICY + } + elsif ( $textLine =~ m/checker msg is /) { + ; # SKIP tur message stuff + } + else { # error: unknown line format + unknown_error ("Line $i not recognised. Expected path info, new LUN or nested policy:\n'$textLine'") + } + } # case + + # after new LUN was found skip the INFO-Line (nothing else...) + elsif ($state eq 'lunInfo') { + if ( $currentLun eq "" ) { # check logic + unknown_error ("No current LUN while looking for LUN info. Line $i:\n'$textLine'") + } + # size=2.0T features='1 queue_if_no_path' hwhandler='0' wp=rw + ##[size=1.9T][features=1 queue_if_no_path][hwhandler=0][rw] + ## size=1.9T features=1 queue_if_no_path hwhandler=0 rw + #[size=576 GB][features="1 queue_if_no_path"][hwhandler="0"] + # size=576 GB features="1 queue_if_no_path" hwhandler="0" + + #if ($textLine =~ m/^\s*size=[\w\.]+\s+features=/x) { + if ($textLine =~ m/^\s*size=[\w\.]+\s+ ([a-zA-Z]+\s+)? features=/x) { + $state = "pathPolicy"; + } else { # error: unknown line format + unknown_error ("Line $i not recognised. Expected LUN info:\n'$textLine'") + } + } # case + + # after LUN info was found skip the path policy (nothing else...) + # or handle new LUN if no paths available + elsif ($state eq 'pathPolicy') { + if ( $currentLun eq "") { # check logic + unknown_error ("No current LUN while looking for path policy. Line $i:\'$textLine'") + } + + if ( checkPolicyLine ($textLine, $currentLun, \%lunData)) { + $state = "pathDesc"; + } # new LUN found + elsif ( checkLunLine ($textLine, \$currentLun, \%lunData) ) { + $state = "lunInfo"; + } else { # error: unknown line format + unknown_error ("Line $i not recognised. Expected path policy or new LUN:\n'$textLine'") + } + } + else { + unknown_error ("Internal error: unknown state '$state' of parser") + } # if + } # foreach + + return \%lunData +} # sub + + + +#--------------------------------------- +# +# test value +# +sub testValue { + my ($val, $low, $high, $lunPrintName, $txtErr, $txtOk) = @_; + + if ( !defined($txtOk) ) { + $txtOk = ''; + } elsif ($txtOk ne '') { + $txtOk .= ' '; + } #if + + #print "TEST val='$val', low='$low', high='$high', LUN='$lunPrintName', txtErr='$txtErr', txtOk='$txtOk'\n"; + + if ($val < $low){ + report("LUN $lunPrintName: less than $low $txtErr ($val/$high)!", $E_CRITICAL); + } elsif ($val < $high){ + report("LUN $lunPrintName: less than $high $txtErr ($val/$high).", $E_WARNING); + } else { + report("LUN $lunPrintName: $txtOk$val/$high.", $E_OK); + } # if +} # sub + +#--------------------------------------- +# +# test additional checks +# +sub testAddChecks { + my ($rDefHash, $rValueHash, $lunPrintName) = @_; + + foreach my $id (sort keys %{$rDefHash} ) { + my $rDefArr = $$rDefHash{$id}; + + if ($$rDefArr[1] > 0 ) { # high mark 0 => NO check + testValue ($$rValueHash{$id}, $$rDefArr[0], $$rDefArr[1], $lunPrintName, $addCheckNames{$id}, $addCheckNames{$id}); + } else { + #print "SKIP $$rValueHash{$id}, $$rDefArr[0], $$rDefArr[1], $lunPrintName, $addCheckNames{$id}, $addCheckNames{$id} \n" + }# if + } # foreach +} # sub + +#===================================================================== +# Main program +#===================================================================== + + +# check if multipathd is running +if ( !$opt{'mdskip'} ) { # check is not disabled + my $cmd = 'ps -e'; + my $output = qx($cmd); + #print "####\n$output\n####\n"; + + my $err = $!; + if ($? != 0) { + report("Check if multipathd is running FAILED. (There is an option to disable this check.) Command '$cmd': '$err'", $E_WARNING); + } else { + if ( $output !~ m!\smultipathd\n!s ) { + report ("No multipathd running. (Not found in process list.)", $text2exit{$opt{'no_multipath'}} ); + } else { + #print "FOUND: multipathd process.\n"; + }# if + }# if +} # if + + +if ( ($opt{'di'} == 0) && ($multipathCmd eq '') ) { + # No testcase called and no multipath binary found + unknown_error ("No multipath binary found. Unable to perform check."); +} # if + + +my $mpListCmd = $MULTIPATH_LIST; +if ($opt{'ll'}) { + $mpListCmd = $MULTIPATH_LIST_LONG; +} + +my @multipathStateText = @{ get_multipath_text( $mpListCmd ) }; # get input data + +my %lunData = %{checkMultipathText ( \@multipathStateText )}; # analyse it + + +# if no LUN found... +if (scalar keys %lunData == 0) { + report ("No LUN found or no multipath driver.", $text2exit{$opt{'no_multipath'}}); +} + + +# +# Check path count for each LUN +# +foreach my $lunName ( sort {$a cmp $b} keys %lunData) { + my $rLunDef = $lunData{$lunName}; + my $pathCount = $$rLunDef{'paths'}; + my $policiesCount = $$rLunDef{'policies'}; + my $lunLine = $$rLunDef{'lunline'}; + + my $warn = $opt{'ok-paths'}; + my $crit = $opt{'min-paths'}; + + my $rAddChecks = \%addChecks; # initialise with default + + # Get the LUN-ID to be displayed, a 'G' in appended to the option-string at parameter check + my $lunPrintName = getLunPrintName ($rLunDef); + + # check if an extraconfig entry matches + my $extraconfigMatched = 0; + foreach my $rExtraConf( @extraconfig ) { + if ( $$rExtraConf{'val'} eq $$rLunDef{$$rExtraConf{'attrib'}}) { + $warn = $$rExtraConf{'warn'}; + $crit = $$rExtraConf{'crit'}; + + $rAddChecks = $$rExtraConf{'addchecks'}; + $$rExtraConf{'found'} = 1; + $extraconfigMatched = 1; + #print "EXTRA: ".$$rExtraConf{'attrib'}."!".$$rExtraConf{'val'}." c=$crit w=$warn \n"; + last; + } # if + } # foreach + + if ( !$extraconfigMatched ) { # NO extaconfig entry matched + foreach my $rGroupDef ( @group ) { # LUN-Line matches a group definition? + my $regex = ${$rGroupDef}{'regex'}; + #print "GRP: '$regex'\n"; + if ($lunLine =~ m!$regex! ) { + $warn = ${$rGroupDef}{'warn'}; + $crit = ${$rGroupDef}{'crit'}; + $rAddChecks = ${$rGroupDef}{'addchecks'}; + #print "GRP: '$regex' MATCH: c=$crit w=$warn\n"; + last; + } # if + } # foreach + }# if + + #print "LUN '$lunPrintName'\n"; + + testValue ($pathCount, $crit, $warn, $lunPrintName, 'paths', '' ); + + my %addCheckValues = ( + 'sh' => scalar( keys %{$$rLunDef{'sh-hash'}}), + 'si' => scalar( keys %{$$rLunDef{'si-hash'}}), + 'p' => $policiesCount + ); + testAddChecks ( $rAddChecks, \%addCheckValues, $lunPrintName); +} # foreach + + +# +# Check if all LUNs in extraconfig were found +# +foreach my $rExtraConf ( @extraconfig ) { + if (! $$rExtraConf{'found'} ) { + report("NO DATA found for extra-config LUN selector '". $$rExtraConf{'attrib'}.'!'.$$rExtraConf{'val'}."'", $$rExtraConf{'missingRet'} ); + } +} # foreach + + + +# Counter variable +%nagios_level_count + = ( + 'OK' => 0, + 'WARNING' => 0, + 'CRITICAL' => 0, + 'UNKNOWN' => 0, + ); + +# holds only ok messages +@ok_reports = (); + +# Reset the WARN signal +$SIG{__WARN__} = 'DEFAULT'; + +# Print any perl warnings that have occured +if (@perl_warnings) { + foreach (@perl_warnings) { + chop @$_; + report("INTERNAL ERROR: @$_", $E_UNKNOWN); + } # foreach +} # if + +$counter = 0; +ALERT: +foreach (sort {$a->[1] <= $b->[1]} @reports) { + my ($msg, $level) = @{ $_ }; + $nagios_level_count{$reverse_exitcode{$level}}++; + + # Prefix with nagios level if specified with option '--state' + $msg = $reverse_exitcode{$level} . ": $msg" if $opt{state}; + + # Prefix with one-letter nagios level if specified with option '--short-state' + $msg = (substr $reverse_exitcode{$level}, 0, 1) . ": $msg" if $opt{shortstate}; + + if ($level == $E_OK && !$opt{verbose}) { + push @ok_reports, $msg; + next ALERT; + } + + ($counter++ == 0) ? print $msg : print $linebreak, $msg; +} # foreach + +# Determine our exit code +$exit_code = $E_OK; +if ($nagios_level_count{UNKNOWN} > 0) { $exit_code = $E_UNKNOWN; } +if ($nagios_level_count{WARNING} > 0) { $exit_code = $E_WARNING; } +if ($nagios_level_count{CRITICAL} > 0) { $exit_code = $E_CRITICAL; } + + +# Print OK messages +$counter = 0; +if ($exit_code == $E_OK && !$opt{verbose}) { + if ( (!$opt{'state'}) && (!$opt{'shortstate'}) ) { + print 'OK'.$linebreak; + } + foreach my $msg (@ok_reports) { + ($counter++ == 0) ? print $msg : print $linebreak, $msg; + } # foreach +} # if + +# Call reload command if NOT ok and parameter --reload is set +if ( ($exit_code != $E_OK) && $opt{'reload'} ){ + my $txt = get_multipath_text($MULTIPATH_RELOAD); + print $linebreak.'Reload was issued.'; +} + +print $linebreak; +#print "$exit_code\n"; +# Exit with proper exit code +exit $exit_code; -- cgit v1.2.3