diff options
Diffstat (limited to 'contrib/check_nwstat.pl')
| -rw-r--r-- | contrib/check_nwstat.pl | 188 |
1 files changed, 188 insertions, 0 deletions
diff --git a/contrib/check_nwstat.pl b/contrib/check_nwstat.pl new file mode 100644 index 00000000..2194640e --- /dev/null +++ b/contrib/check_nwstat.pl @@ -0,0 +1,188 @@ +#!/usr/bin/perl +# +# check_nwstat.pl: Nagios plugin that uses Jim Drews' nwstat.pl for +# MRTG instead of emulating it. For use particularly with Cliff +# Woolley's mrtgext.pl Unix companion to Drews' MRTGEXT.NLM, where +# mrtgext.pl can contain custom commands that check_nwstat won't recognize, +# though this also does its best to perfectly emulate the C version +# of check_nwstat. +# + + +###################################################################### +# Configuration +###################################################################### + +$nwstatcmd = "/apps/mrtg/helpers/nwstat.pl"; + +use Getopt::Long; + +$::host = shift || &usage(%ERROR); +$::opt_v = undef; +$::opt_wv = undef; +$::opt_cv = undef; +$::opt_to = 10; +$::opt_url = undef; + +GetOptions (qw(v=s wv=i cv=i to=i url=s)) || &usage(%ERROR); + +my $cmd1 = ""; +my $cmd2 = "ZERO"; +my $backward = 0; +my $desc = ""; +my $okstr = "OK"; +my $probstr = "Problem"; +my $result = ""; +my @CMD; +my %ERROR = ("UNKNOWN" => -1, + "OK" => 0, + "WARNING" => 1, + "CRITICAL" => 2); +my $status = $ERROR{"OK"}; + + +###################################################################### +# Main program +###################################################################### + +$SIG{'ALRM'} = sub { + print "Connection timed out\n"; + exit $ERROR{"CRITICAL"}; +}; + +# translate table for compatability with +# check_nwstat (C version) +SWITCH: for ($::opt_v) { + /^LOAD(1|5|15)$/ + && do { $desc = "Load <status> - Up <cmd2>, ". + "$1-min load average = <cmd0>%"; + $cmd1 = "UTIL$1"; last; }; + /^CONNS$/ && do { $desc = "Conns <status>: ". + "<cmd0> current connections"; + $cmd1 = "CONNECT"; last; }; + /^CDBUFF$/ && do { $desc = "Dirty cache buffers = <cmd0>"; + $cmd1 = "S3"; last; }; + /^LTCH$/ && do { $desc = "Long term cache hits = <cmd0>%"; + $cmd1 = "S1"; + $backward = 1; last; }; + /^CBUFF$/ && do { $desc = "Total cache buffers = <cmd0>"; + $cmd1 = "S2"; + $backward = 1; last; }; + /^LRUM$/ && do { $desc = "LRU sitting time = <cmd0> minutes"; + $cmd1 = "S5"; + $backward = 1; last; }; + /^VPF(.*)$/ && do { $desc = "<status><int(cmd0/1024)> MB ". + "(<result>%) free on volume $1"; + $okstr = ""; $probstr = "Only "; + $cmd1 = "VKF$1"; + $cmd2 = "VKS$1"; + $backward = 1; last; }; + /^VKF/ && do { $desc = "<status><cmd0> KB free on volume $1"; + $okstr = ""; $probstr = "Only "; + $cmd1 = "$::opt_v"; + $backward = 1; last; }; + /^$/ && die "Nothing to check!"; + $desc = "<status>: <cmd0>"; + $cmd1 = "$::opt_v"; + } + + +# begin timeout period, run the check +alarm($::opt_to); +open ( CMD, "$nwstatcmd $host $cmd1 $cmd2|" ) || die "Couldn't execute nwstat"; +@CMD = <CMD>; +close ( CMD ); +alarm(0); + +for (@CMD) { chomp; } + +# for any variables that manipulate the results instead of +# just using <cmd0> directly, do that manipulation here into <result> +SWITCH: for ($::opt_v) { + /^VPF/ && do { $result=int(("$CMD[0]"/"$CMD[1]")*100); last; }; + $result = "$CMD[0]"; + } + +if ("$result" == -1) { + $status = $ERROR{"UNKNOWN"}; + $desc = "Server returned \"variable unknown\""; +} elsif ("$result" == -2) { + $status = $ERROR{"CRITICAL"}; + $desc = "Connection failed"; +} + +if (defined($::opt_cv) && $status == $ERROR{"OK"}) { + if ($backward) { + ("$result" <= "$::opt_cv") && ( $status = $ERROR{"CRITICAL"} ); + } else { + ("$result" >= "$::opt_cv") && ( $status = $ERROR{"CRITICAL"} ); + } +} +if (defined($::opt_wv) && $status == $ERROR{"OK"}) { + if ($backward) { + ("$result" <= "$::opt_wv") && ( $status = $ERROR{"WARNING"} ); + } else { + ("$result" >= "$::opt_wv") && ( $status = $ERROR{"WARNING"} ); + } +} + +$desc =~ s/<status>/($status == $ERROR{"OK"})?"$okstr":"$probstr"/eg; +$desc =~ s/<([^>]*)cmd([0-3])([^>]*)>/eval("$1\"$CMD[$2]\"$3")/eg; +$desc =~ s/<result>/"$result"/eg; + +if (defined($::opt_url)) { + print "<A HREF=\"$::opt_url\">$desc</A>\n"; +} else { + print "$desc\n"; +} +exit $status; + + +###################################################################### +# Subroutines +###################################################################### + +sub usage { + + %ERROR = shift; + + print <<EOF +check_nwstat.pl plugin for Nagios +by Cliff Woolley, (c) 2000 + +Usage: ./check_nwstat.pl <host_address> [-v variable] [-wv warn_value] [-cv crit_value] [-to to_sec] [-url url_value] + +Options: + [variable] = Variable to check. Valid variables include: + LOAD1 = 1 minute average CPU load + LOAD5 = 5 minute average CPU load + LOAD15 = 15 minute average CPU load + CONNS = number of currently licensed connections + VPF<vol> = percent free space on volume <vol> + VKF<vol> = KB of free space on volume <vol> + LTCH = percent long term cache hits + CBUFF = current number of cache buffers + CDBUFF = current number of dirty cache buffers + LRUM = LRU sitting time in minutes + [warn_value] = Threshold for value necessary to result in a warning status + [crit_value] = Threshold for value necessary to result in a critical status + [to_sec] = Number of secs before connection times out - default is 10 sec + [url_value] = URL to use in output as a hyperlink. Useful to link to a page + with more details or history for this variable (ie an MRTG page) + +This plugin attempts to contact the MRTGEXT NLM running on a Novell server +to gather the requested system information. + +Notes: + - This plugin requres that the MRTGEXT.NLM file distributed with + James Drews' MRTG extension for NetWare (available from + http://www.engr.wisc.edu/~drews/mrtg/) be loaded on the Novell + servers you wish to check. + - Critical thresholds should be lower than warning thresholds when + the following variables are checked: VPF, VKF, LTCH, CBUFF, and LRUM. +EOF +; + + exit $ERROR{"UNKNOWN"}; +} + |