1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
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"};
}
|