1
package HP::Proliant::Component::EventSubsystem::CLI;
2
our @ISA = qw(HP::Proliant::Component::EventSubsystem);
5
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
12
runtime => $params{runtime},
13
rawdata => $params{rawdata},
17
extendedinfo => undef,
29
runtime => $params{runtime},
32
foreach (grep(/^iml/, split(/\n/, $self->{rawdata}))) {
34
if (/^Event:\s+(\d+)\s+[\w]+:\s+(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+)/) {
35
# Event: 31 Added: 09/22/2011 05:11
37
$tmpevent{cpqHeEventLogEntryNumber} = $1;
39
# Event: 29 Added: 00/00/0000 00:00
40
$tmpevent{cpqHeEventLogUpdateTime} = 0;
43
$tmpevent{cpqHeEventLogUpdateTime} = timelocal(0, $6, $5, $3, $2 - 1, $4);
46
# Event: 10 Added: 27/27/2027 27:27
47
$tmpevent{cpqHeEventLogUpdateTime} = 0;
51
} elsif (/^(\w+):\s+(.*?)\s+\-\s+(.*)/) {
52
$tmpevent{cpqHeEventLogEntrySeverity} = $1;
53
$tmpevent{cpqHeEventLogEntryClass} = $2;
54
$tmpevent{cpqHeEventLogErrorDesc} = $3;
55
if ($tmpevent{cpqHeEventLogErrorDesc} =~ /.*?:\s+(\d+)/) {
56
$tmpevent{cpqHeEventLogEntryCode} = $1;
58
$tmpevent{cpqHeEventLogEntryCode} = 0;
63
push(@{$self->{events}},
64
HP::Proliant::Component::EventSubsystem::Event->new(%tmpevent));
66
runtime => $params{runtime},
72
push(@{$self->{events}},
73
HP::Proliant::Component::EventSubsystem::Event->new(%tmpevent));