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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
|
#! /usr/bin/perl
use strict;
my $CELSIUS = 1;
my $PERFDATA = 1;
my $EXTENDEDINFO = 1;
my $HWINFO = 1;
my $HPACUCLI = 1;
my $NOINSTLEVEL = 'unknown';
use constant OK => 0;
use constant WARNING => 1;
use constant CRITICAL => 2;
use constant UNKNOWN => 3;
use constant DEPENDENT => 4;
my $plugin = Nagios::MiniPlugin->new(
shortname => '',
usage => 'Usage: %s [ -v|--verbose ] [ -t ] '.
'--hostname --community '.
' ...]',
version => '4.0',
blurb => 'This plugin checks the hardware of hp/compaq proliant servers',
url => 'http://labs.consol.de/nagios/check_hpasm',
timeout => 60,
shortname => '',
);
$plugin->add_arg(
spec => 'blacklist|b=s',
help => '--blacklist
Blacklist some (missing/failed) components',
required => 0,
default => '',
);
$plugin->add_arg(
spec => 'ignore-dimms|i',
help => '--ignore-dimms
Ignore "N/A"-DIMM status on misc. servers (e.g. older DL320)',
required => 0,
);
$plugin->add_arg(
spec => 'ignore-fan-redundancy',
help => '--ignore-fan-redundancy
Ignore missing redundancy partners',
required => 0,
);
$plugin->add_arg(
spec => 'customthresholds|c=s',
help => '--customthresholds
Use custom thresholds for certain temperatures',
required => 0,
);
$plugin->add_arg(
spec => 'eventrange=s',
help => '--eventrange=/
Period of time before critical IML events respecively become warnings or vanish
A range is descibed as a number and a unit (s, m, h, d), e.g. --eventrange 1h/20m',
required => 0,
);
$plugin->add_arg(
spec => 'perfdata=s',
help => '--perfdata=[short]
Output performance data. If your performance data string becomes
too long and is truncated by Nagios, then you can use --perfdata=short
instead. This will output temperature tags without location information',
required => 0,
);
$plugin->add_arg(
spec => 'hostname|H=s',
help => '--hostname
Hostname or IP-address of the server (SNMP mode only)',
required => 0,
);
$plugin->add_arg(
spec => 'port=i',
help => '--port
The SNMP port to use (default: 161)',
required => 0,
default => 161,
);
$plugin->add_arg(
spec => 'protocol|P=s',
help => '--protocol
The SNMP protocol to use (default: 2c, other possibilities: 1,3)',
required => 0,
default => '2c',
);
$plugin->add_arg(
spec => 'domain|d=s',
help => '--domain
The transport protocol to use (default: udp, other possibilities: tcp)',
required => 0,
default => 'udp',
);
$plugin->add_arg(
spec => 'community|C=s',
help => '--community
SNMP community of the server (SNMP v1/2 only)',
required => 0,
default => 'public',
);
$plugin->add_arg(
spec => 'username=s',
help => '--username
The securityName for the USM security model (SNMPv3 only)',
required => 0,
);
$plugin->add_arg(
spec => 'authpassword=s',
help => '--authpassword
The authentication password for SNMPv3',
required => 0,
);
$plugin->add_arg(
spec => 'authprotocol=s',
help => '--authprotocol
The authentication protocol for SNMPv3 (md5|sha)',
required => 0,
);
$plugin->add_arg(
spec => 'privpassword=s',
help => '--privpassword
The password for authPriv security level',
required => 0,
);
$plugin->add_arg(
spec => 'privprotocol=s',
help => '--privprotocol
The private protocol for SNMPv3 (des|aes|aes128|3des|3desde)',
required => 0,
);
$plugin->add_arg(
spec => 'snmpwalk=s',
help => '--snmpwalk
A file with the output of snmpwalk 1.3.6.1.4.1.232',
required => 0,
);
$plugin->add_arg(
spec => 'hpasmcli=s',
help => '--hpasmcli
A file with the output of hpasmcli',
required => 0,
);
$plugin->add_arg(
spec => 'servertype=s',
help => '--servertype
The type of the server: proliant (default) or bladesystem',
required => 0,
);
$plugin->add_arg(
spec => 'eval-nics',
help => '--eval-nics
Check network interfaces (and groups). Try it and report me whyt you think about it. I need to build up some know how on this subject. If get an error and you think, it is not justified for your configuration, please tell me about it. (alwasy send the output of "snmpwalk -On .... 1.3.6.1.4.1.232" and a description how you setup your nics and why it is correct opposed to the plugins error message',
required => 0,
);
$plugin->getopts();
if (! $PERFDATA && $plugin->opts->get('perfdata')) {
$PERFDATA = 1;
}
if ($PERFDATA && $plugin->opts->get('perfdata') &&
($plugin->opts->get('perfdata') eq 'short')) {
$PERFDATA = 2;
}
$plugin->{messages}->{unknown} = []; # wg. add_message(UNKNOWN,...)
$plugin->{info} = []; # gefrickel
$SIG{'ALRM'} = sub {
printf "UNKNOWN - check_hpasm timed out after %d seconds\n",
$plugin->opts->get('timeout');
exit $ERRORS{UNKNOWN};
};
alarm($plugin->opts->get('timeout'));
my $server = HP::Server->new( runtime => {
plugin => $plugin,
options => {
servertype => $plugin->opts->get('servertype'),
verbose => $plugin->opts->get('verbose'),
scrapiron => 0,
ignore_fan_redundancy => $plugin->opts->get('ignore-fan-redundancy'),
ignore_dimms => $plugin->opts->get('ignore-dimms'),
customthresholds => $plugin->opts->get('customthresholds'),
eventrange => $plugin->opts->get('eventrange'),
blacklist => $plugin->opts->get('blacklist'),
celsius => $CELSIUS,
perfdata => $PERFDATA,
extendedinfo => $EXTENDEDINFO,
hwinfo => $HWINFO,
hpacucli => $HPACUCLI,
noinstlevel => $NOINSTLEVEL,
},
},);
if (! $plugin->check_messages()) {
$server->init();
$plugin->add_message(OK, $server->identify()) if $HWINFO;
if (! $plugin->check_messages()) {
$plugin->add_message(OK, 'hardware working fine');
$plugin->add_message(OK, $server->get_summary())
if $server->get_summary();
$plugin->add_message(OK, $server->get_extendedinfo())
if $server->get_extendedinfo();
}
} else {
$plugin->add_message(CRITICAL, 'wrong device');
}
my ($code, $message) = $plugin->check_messages(join => ', ', join_all => ', ');
$message .= sprintf "\n%s\n", join("\n", _æ_ {$plugin->{info}})
if $plugin->opts->get('verbose') >= 1;
#printf "%s\n", Data::Dumper::Dumper($plugin->{info});
$plugin->nagios_exit($code, $message);
|
