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
216
217
218
219
220
221
|
package HP::Proliant::Component::EventSubsystem::SNMP;
our @ISA = qw(HP::Proliant::Component::EventSubsystem
HP::Proliant::Component::SNMP);
use strict;
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
use Time::Local;
sub new {
my $class = shift;
my %params = @_;
my $self = {
runtime => $params{runtime},
rawdata => $params{rawdata},
events => [],
blacklisted => 0,
info => undef,
extendedinfo => undef,
};
bless $self, $class;
$self->overall_init(%params);
$self->init(%params);
return $self;
}
sub overall_init {
my $self = shift;
my %params = @_;
my $snmpwalk = $params{rawdata};
# overall
my $cpqHeEventLogSupported = '1.3.6.1.4.1.232.6.2.11.1.0';
my $cpqHeEventLogSupportedValue = {
1 => 'other',
2 => 'notSupported',
3 => 'supported',
4 => 'clear',
};
my $cpqHeEventLogCondition = '1.3.6.1.4.1.232.6.2.11.2.0';
my $cpqHeEventLogConditionValue = {
1 => 'other',
2 => 'ok',
3 => 'degraded',
4 => 'failed',
};
$self->{eventsupp} = SNMP::Utils::get_object_value(
$snmpwalk, $cpqHeEventLogSupported,
$cpqHeEventLogSupportedValue);
$self->{eventstatus} = SNMP::Utils::get_object_value(
$snmpwalk, $cpqHeEventLogCondition,
$cpqHeEventLogConditionValue);
$self->{eventsupp} |= lc $self->{eventsupp};
$self->{eventstatus} |= lc $self->{eventstatus};
}
sub init {
my $self = shift;
my %params = @_;
my $snmpwalk = $self->{rawdata};
my $oids = {
cpqHeEventLogEntry => "1.3.6.1.4.1.232.6.2.11.3.1",
cpqHeEventLogEntryNumber => "1.3.6.1.4.1.232.6.2.11.3.1.1",
cpqHeEventLogEntrySeverity => "1.3.6.1.4.1.232.6.2.11.3.1.2",
cpqHeEventLogEntryClass => "1.3.6.1.4.1.232.6.2.11.3.1.3",
cpqHeEventLogEntryCode => "1.3.6.1.4.1.232.6.2.11.3.1.4",
cpqHeEventLogEntryCount => "1.3.6.1.4.1.232.6.2.11.3.1.5",
cpqHeEventLogInitialTime => "1.3.6.1.4.1.232.6.2.11.3.1.6",
cpqHeEventLogUpdateTime => "1.3.6.1.4.1.232.6.2.11.3.1.7",
cpqHeEventLogErrorDesc => "1.3.6.1.4.1.232.6.2.11.3.1.8",
cpqHeEventLogEntryClassValue => {
# 2 Fan Failure (Fan 1, Location I/O Board)
# Internal Storage System Overheating (Slot 0, Zone 1, Location Storage, Temperature Unknown)
# System Fans Not Redundant (Location I/O Board)
# MY MUSTARD: only critical events should lead to an alert, if at all. The caution events mean "loss of redundancy".
# We monitor temperatures and fan status anyway.
#2 => "",
# 3 Corrected Memory Error threshold exceeded (System Memory, Memory Module 1)
# Uncorrectable Memory Error detected by ROM-based memory validation (Board 1, Memory Module 4)
# MY MUSTARD: threshold exceeded is caution. Uncorrectable errors are critical. Both should be detected anyway.
3 => "Main Memory",
# 4 Accelerator Cache Memory Parity Error (Socket 1)
#4 => "",
# 5 Processor Correctable error threshold exceeded (Board 0, Processor 2)
#5 => "",
# 6 Unrecoverable Intermodule Bus error (Error code 0x00000000)
#6 => "",
# 8 PCI Bus Error (Slot 0, Bus 0, Device 0, Function 0)
8 => "PCI Bus",
# 10 1720-S.M.A.R.T. Hard Drive Detects Imminent Failure
# POST Error: 201-Memory Error Multi-bit error occurred during memory initialization, Board 1, Bank B. Bank containing DIMM(s) has been disabled..
# POST Error: 201-Memory Error Single-bit error occured during memory initialization, Board 1, DIMM 1. Bank containing DIMM(s) has been disabled..
# POST Error: 207-Memory Configuration Warning - memory boards should be installed sequentially.
# POST Error: 210-Memory Board Failure on board 4.
# POST Error: 210-Memory Board Power Fault on board 3.
# POST Error: 207-Memory initialization error on Memory Board 5 DIMM 7. The operating system may not have access to all of the memory installed in the system..
# POST Error: 207-Invalid Memory Configuration-Mismatched DIMMs within DIMM Bank Memory in Bank A Not Utilized..
10 => "POST Messages",
11 => "Power Subsystem",
13 => "ASR",
# 14 Automatic Operating System Shutdown Initiated Due to Overheat Condition
# Automatic Operating System Shutdown Initiated Due to Fan Failure
# Blue Screen Trap (BugCheck, STOP: 0x00000050 (0x9CB2C5B4, 0x00000001, 0x00000004, 0x00000000))
# Operating System failure (BugCheck, STOP: 0x000000AB (0x00000005, 0x00000488, 0x00000000, 0x00000002))
14 => "OS Class",
# 15 Unknown Event (Class 15, Code 255)
#15 => "",
# 17 Network Adapter Link Down (Slot 0, Port 4)
# Network Adapters Redundancy Reduced (Slot 0, Port 1)
17 => "Network Adapter",
# 19 Drive Array Device Failure (Slot 0, Bus 2, Bay 4)
# Internal SAS Enclosure Device Failure (Bay 1, Box 1, Port 2I, Slot 1)
#19 => "",
# 20 An Unrecoverable System Error (NMI) has occurred
# Unrecoverable System Error has occurred (Error code 0x01AE0E2F, 0x00000000)
20 => "Unrecoverable System Error",
# 32 ROM flashed (New version: 01/09/2008)
32 => "System Revision",
# 33 IML Cleared (Administrator)
# IML cleared through HP ProLiant Health Agent (cmahealthd)
# Insight Diagnostics Note: Physisches Festplattenlaufwerk 5, Controller Steckplatz 0-Diagnosis: Fehlgeschlagen
33 => "Maintenance Note",
# 34 New Chassis Connected (Enclosure Address 27AC)
# Loss Of Chassis Connectivity (Enclosure Serial Number 8004******)
# Server Blade Enclosure Server Blade Inserted (Slot 16, Enclosure Address 0000)
#34 => "",
},
cpqHeEventLogEntrySeverityValue => {
2 => "informational",
3 => "infoWithAlert",
6 => "repaired",
9 => "caution",
15 => "critical",
},
# Time
# 07 D8 09 02 11 11
};
# INDEX { cpqHeEventLogEntryNumber }
foreach ($self->get_entries($oids, 'cpqHeEventLogEntry')) {
if ($_->{cpqHeEventLogInitialTime} =~ /^(([0-9a-fA-F]{2})( [0-9a-fA-F]{2})*)\s*$/) {
$_->{cpqHeEventLogInitialTime} =~ s/ //;
my ($year, $month, $day, $hour, $min) = map { hex($_) } split(/\s+/, $_->{cpqHeEventLogInitialTime});
if ($year == 0) {
$_->{cpqHeEventLogInitialTime} = 0;
} else {
eval {
$_->{cpqHeEventLogInitialTime} = timelocal(0, $min, $hour, $day, $month - 1, $year);
};
if ($@) {
$_->{cpqHeEventLogInitialTime} = 0;
}
}
} elsif ($_->{cpqHeEventLogInitialTime} =~ /^0x([0-9a-fA-F]{4})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/) {
my ($year, $month, $day, $hour, $min) = map { hex($_) } ($1, $2, $3, $4, $5);
if ($year == 0) {
$_->{cpqHeEventLogInitialTime} = 0;
} else {
eval {
$_->{cpqHeEventLogInitialTime} = timelocal(0, $min, $hour, $day, $month - 1, $year);
};
if ($@) {
$_->{cpqHeEventLogInitialTime} = 0;
}
}
} elsif ($_->{cpqHeEventLogInitialTime} =~ /^\0\0\0\0\0\0/) {
$_->{cpqHeEventLogInitialTime} = 0;
}
if ($_->{cpqHeEventLogUpdateTime} =~ /^(([0-9a-fA-F]{2})( [0-9a-fA-F]{2})*)\s*$/) {
$_->{cpqHeEventLogUpdateTime} =~ s/ //;
my ($year, $month, $day, $hour, $min) = map { hex($_) } split(/\s+/, $_->{cpqHeEventLogUpdateTime});
if ($year == 0) {
$_->{cpqHeEventLogUpdateTime} = 0;
} else {
eval {
$_->{cpqHeEventLogUpdateTime} = timelocal(0, $min, $hour, $day, $month - 1, $year);
};
if ($@) {
$_->{cpqHeEventLogUpdateTime} = 0;
}
}
} elsif ($_->{cpqHeEventLogUpdateTime} =~ /^0x([0-9a-fA-F]{4})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})/) {
my ($year, $month, $day, $hour, $min) = map { hex($_) } ($1, $2, $3, $4, $5);
if ($year == 0) {
$_->{cpqHeEventLogUpdateTime} = 0;
} else {
eval {
$_->{cpqHeEventLogUpdateTime} = timelocal(0, $min, $hour, $day, $month - 1, $year);
};
if ($@) {
$_->{cpqHeEventLogUpdateTime} = 0;
}
}
} elsif ($_->{cpqHeEventLogUpdateTime} =~ /^\0\0\0\0\0\0/) {
$_->{cpqHeEventLogUpdateTime} = 0;
}
if ($_->{cpqHeEventLogErrorDesc} =~ /^(([0-9a-fA-F]{2})(\s+[0-9a-fA-F]{2})*)\s*$/) {
$_->{cpqHeEventLogErrorDesc} = join "", map { chr($_) } map { if (hex($_) > 127) { 20; } else { hex($_) } } split(/\s+/, $_->{cpqHeEventLogErrorDesc});
}
push(@{$self->{events}},
HP::Proliant::Component::EventSubsystem::Event->new(%{$_}));
}
}
sub overall_check {
my $self = shift;
my $result = 0;
$self->blacklist('oe', '');
if ($self->{eventsupp} && $self->{eventsupp} eq "supported") {
if ($self->{eventstatus} eq "ok") {
$result = 0;
$self->add_info('eventlog system is ok');
} else {
$result = 0;
$self->add_info(sprintf "eventlog system is %s", $self->{eventstatus});
}
} else {
$result = 0;
$self->add_info('no event status found');
}
}
1;
|
