← Back to branch summary

~ubuntu-branches/ubuntu/trusty/nagios-plugins-contrib/trusty-proposed

« back to all changes in this revision

Viewing changes to check_hpasm/check_hpasm-4.6.3/plugins-scripts/HP/Proliant/Component/FanSubsystem/SNMP.pm

  • Committer: Package Import Robot
  • Author(s): Bernd Zeimetz, Bernd Zeimetz, Jan Wagner, Evgeni Golov
  • Date: 2013-06-14 20:53:49 UTC
  • Revision ID: package-import@ubuntu.com-20130614205349-34xiy38pm1hzpjoi
Tags: 7.20130614
[ Bernd Zeimetz ]
* [036816ff] Merge pull request #15 from evgeni/master
  check_packages should find security updates on the official security mirror too
* [658a2e93] Add check_checksums nagios plugin.
* [9d5d2056] Updating check_raid.
* [e3ec1293] Updating check_ssl_cert to 1.14.6
* [779543ef] Updating check_hpasm to 4.6.3.2
* [0c838ee9] Updating check_multipath to 0.1.9
* [bec11251] Updating check_whois to 1.13
* [8e0a65d0] Refreshing patches.
* [c0b88cdb] Auto update of debian/copyright
* [59648a17] Fix src link for check_hpasm
* [8c242d0f] Support pre-Wheezy versions of coretutils in check_checksums.
* [7d3d2a06] Update release date in changelog (gah!).
* [768e463b] Merge pull request #16 from evgeni/master
  check_libs: ignore /var/lib/postgresql/ and /var/log/
* [2b9aace5] Bumping standards-Verison, no changes needed.

[ Jan Wagner ]
* [3bb873e4] disable epn for check_rbl

[ Evgeni Golov ]
* [2a7ab4b8] check_libs: ignore /var/spool/

Show diffs side-by-side

added added

removed removed

Lines of Context:
check_hpasm/check_hpasm-4.6.3/plugins-scripts/HP/Proliant/Component/FanSubsystem/SNMP.pm
1
 
package HP::Proliant::Component::FanSubsystem::SNMP;
2
 
our @ISA = qw(HP::Proliant::Component::FanSubsystem
3
 
    HP::Proliant::Component::SNMP);
4
 
 
5
 
use strict;
6
 
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
7
 
 
8
 
sub new {
9
 
  my $class = shift;
10
 
  my %params = @_;
11
 
  my $self = {
12
 
    runtime => $params{runtime},
13
 
    rawdata => $params{rawdata},
14
 
    fans => [],
15
 
    he_fans => [],
16
 
    th_fans => [],
17
 
    blacklisted => 0,
18
 
    info => undef,
19
 
    extendedinfo => undef,
20
 
  };
21
 
  bless $self, $class;
22
 
  $self->overall_init(%params);
23
 
  $self->he_init(%params);
24
 
  $self->te_init(%params);
25
 
  $self->unite();
26
 
  return $self;
27
 
}
28
 
 
29
 
sub overall_init {
30
 
  my $self = shift;
31
 
  my %params = @_;
32
 
  my $snmpwalk = $params{rawdata};
33
 
  # overall
34
 
  my $cpqHeThermalSystemFanStatus = '1.3.6.1.4.1.232.6.2.6.4.0';
35
 
  my $cpqHeThermalSystemFanStatusValue = {
36
 
    1 => 'other',
37
 
    2 => 'ok',
38
 
    3 => 'degraded',
39
 
    4 => 'failed',
40
 
  };
41
 
  my $cpqHeThermalCpuFanStatus = '1.3.6.1.4.1.232.6.2.6.5.0';
42
 
  my $cpqHeThermalCpuFanStatusValue = {
43
 
    1 => 'other',
44
 
    2 => 'ok',
45
 
    4 => 'failed', # shutdown
46
 
  };
47
 
  $self->{sysstatus} = SNMP::Utils::get_object_value(
48
 
      $snmpwalk, $cpqHeThermalSystemFanStatus,
49
 
      $cpqHeThermalSystemFanStatusValue);
50
 
  $self->{cpustatus} = SNMP::Utils::get_object_value(
51
 
      $snmpwalk, $cpqHeThermalCpuFanStatus,
52
 
      $cpqHeThermalCpuFanStatusValue);
53
 
  $self->{sysstatus} |= lc $self->{sysstatus};
54
 
  $self->{cpustatus} |= lc $self->{cpustatus};
55
 
}
56
 
 
57
 
sub te_init {
58
 
  my $self = shift;
59
 
  my %params = @_;
60
 
  my $snmpwalk = $params{rawdata};
61
 
  my $ignore_redundancy = $params{ignore_redundancy};
62
 
  # cpqHeThermalFanTable
63
 
  my $oids = {
64
 
      cpqHeThermalFanEntry => '1.3.6.1.4.1.232.6.2.6.6.1',
65
 
      cpqHeThermalFanIndex => '1.3.6.1.4.1.232.6.2.6.6.1.1',
66
 
      cpqHeThermalFanRequired => '1.3.6.1.4.1.232.6.2.6.6.1.2',
67
 
      cpqHeThermalFanPresent => '1.3.6.1.4.1.232.6.2.6.6.1.3',
68
 
      cpqHeThermalFanCpuFan => '1.3.6.1.4.1.232.6.2.6.6.1.4',
69
 
      cpqHeThermalFanStatus => '1.3.6.1.4.1.232.6.2.6.6.1.5',
70
 
      cpqHeThermalFanHwLocation => '1.3.6.1.4.1.232.6.2.6.6.1.6',
71
 
      cpqHeThermalFanRequiredValue => {
72
 
        1 => 'other',
73
 
        2 => 'nonRequired',
74
 
        3 => 'required',
75
 
      },
76
 
      cpqHeThermalFanPresentValue => {
77
 
        1 => 'other',
78
 
        2 => 'absent',
79
 
        3 => 'present',
80
 
      },
81
 
      cpqHeThermalFanCpuFanValue => {
82
 
        1 => 'other',
83
 
        2 => 'systemFan',
84
 
        3 => 'cpuFan',
85
 
      },
86
 
      cpqHeThermalFanStatusValue => {
87
 
        1 => 'other',
88
 
        2 => 'ok',
89
 
        4 => 'failed',
90
 
      },
91
 
  };
92
 
  # INDEX { cpqHeThermalFanIndex }
93
 
  foreach ($self->get_entries($oids, 'cpqHeThermalFanEntry')) {
94
 
    next if ! $_->{cpqHeThermalFanPresent};
95
 
    push(@{$self->{th_fans}},
96
 
        HP::Proliant::Component::FanSubsystem::Fan->new(%{$_}));
97
 
  }
98
 
}
99
 
 
100
 
sub he_init {
101
 
  my $self = shift;
102
 
  my %params = @_;
103
 
  my $snmpwalk = $params{rawdata};
104
 
  my $ignore_redundancy = $params{ignore_redundancy};
105
 
  # cpqHeFltTolFanTable
106
 
  my $oids = {
107
 
      cpqHeFltTolFanEntry => '1.3.6.1.4.1.232.6.2.6.7.1',
108
 
      cpqHeFltTolFanChassis => '1.3.6.1.4.1.232.6.2.6.7.1.1',
109
 
      cpqHeFltTolFanIndex => '1.3.6.1.4.1.232.6.2.6.7.1.2',
110
 
      cpqHeFltTolFanLocale => '1.3.6.1.4.1.232.6.2.6.7.1.3',
111
 
      cpqHeFltTolFanPresent => '1.3.6.1.4.1.232.6.2.6.7.1.4',
112
 
      cpqHeFltTolFanType => '1.3.6.1.4.1.232.6.2.6.7.1.5',
113
 
      cpqHeFltTolFanSpeed => '1.3.6.1.4.1.232.6.2.6.7.1.6',
114
 
      cpqHeFltTolFanRedundant => '1.3.6.1.4.1.232.6.2.6.7.1.7',
115
 
      cpqHeFltTolFanRedundantPartner => '1.3.6.1.4.1.232.6.2.6.7.1.8',
116
 
      cpqHeFltTolFanCondition => '1.3.6.1.4.1.232.6.2.6.7.1.9',
117
 
      cpqHeFltTolFanHotPlug => '1.3.6.1.4.1.232.6.2.6.7.1.10',
118
 
      cpqHeFltTolFanHwLocation => '1.3.6.1.4.1.232.6.2.6.7.1.11',
119
 
      cpqHeFltTolFanCurrentSpeed => '1.3.6.1.4.1.232.6.2.6.7.1.12',
120
 
      cpqHeFltTolFanLocaleValue => {
121
 
          1 => "other",
122
 
          2 => "unknown",
123
 
          3 => "system",
124
 
          4 => "systemBoard",
125
 
          5 => "ioBoard",
126
 
          6 => "cpu",
127
 
          7 => "memory",
128
 
          8 => "storage",
129
 
          9 => "removableMedia",
130
 
          10 => "powerSupply", 
131
 
          11 => "ambient",
132
 
          12 => "chassis",
133
 
          13 => "bridgeCard",
134
 
      },
135
 
      cpqHeFltTolFanPresentValue => {
136
 
          1 => "other",
137
 
          2 => "absent",
138
 
          3 => "present",
139
 
      },
140
 
      cpqHeFltTolFanSpeedValue => {
141
 
          1 => "other",
142
 
          2 => "normal",
143
 
          3 => "high",
144
 
      },
145
 
      cpqHeFltTolFanRedundantValue => {
146
 
          1 => "other",
147
 
          2 => "notRedundant",
148
 
          3 => "redundant",
149
 
      },
150
 
      cpqHeFltTolFanTypeValue => {
151
 
          1 => "other",
152
 
          2 => "tachInput",
153
 
          3 => "spinDetect",
154
 
      },
155
 
      cpqHeFltTolFanConditionValue => {
156
 
          1 => "other",
157
 
          2 => "ok",
158
 
          3 => "degraded",
159
 
          4 => "failed",
160
 
      },
161
 
      cpqHeFltTolFanHotPlugValue => {
162
 
          1 => "other",
163
 
          2 => "nonHotPluggable",
164
 
          3 => "hotPluggable",
165
 
      },
166
 
  };
167
 
  # INDEX { cpqHeFltTolFanChassis, cpqHeFltTolFanIndex }
168
 
  foreach ($self->get_entries($oids, 'cpqHeFltTolFanEntry')) {
169
 
    next if ! defined $_->{cpqHeFltTolFanIndex};
170
 
    # z.b. USM65201WS hat nur solche fragmente. die werden erst gar nicht
171
 
    # als fans akzeptiert. dafuer gibts dann die overall condition
172
 
    # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.1 = INTEGER: 0
173
 
    # SNMPv2-SMI::enterprises.232.6.2.6.7.1.1.0.2 = INTEGER: 0
174
 
    $_->{cpqHeFltTolFanPctMax} = ($_->{cpqHeFltTolFanPresent} eq 'present') ?
175
 
        50 : 0;
176
 
    push(@{$self->{he_fans}},
177
 
        HP::Proliant::Component::FanSubsystem::Fan->new(%{$_}));
178
 
  }
179
 
 
180
 
}
181
 
 
182
 
sub unite {
183
 
  my $self = shift;
184
 
  my $tmpfans = {};
185
 
  foreach (@{$self->{he_fans}}) {
186
 
    $tmpfans->{$_->{cpqHeFltTolFanIndex}} = $_;
187
 
  }
188
 
  foreach (@{$self->{he_fans}}) {
189
 
    if (exists $tmpfans->{$_->{cpqHeFltTolFanRedundantPartner}}) {
190
 
      $_->{partner} = $tmpfans->{$_->{cpqHeFltTolFanRedundantPartner}};
191
 
    } else {
192
 
      $_->{partner} = undef;
193
 
    }
194
 
  }
195
 
  @{$self->{fans}} = @{$self->{he_fans}};
196
 
}
197
 
 
198
 
sub overall_check {
199
 
  my $self = shift;
200
 
  my $result = 0;
201
 
  $self->blacklist('ofs', '');
202
 
  if ($self->{sysstatus} && $self->{cpustatus}) {
203
 
    if ($self->{sysstatus} eq 'degraded') {
204
 
      $result = 1;
205
 
      $self->add_message(WARNING,
206
 
          sprintf 'system fan overall status is %s', $self->{sysstatus});
207
 
    } elsif ($self->{sysstatus} eq 'failed') {
208
 
      $result = 2;
209
 
      $self->add_message(CRITICAL,
210
 
          sprintf 'system fan overall status is %s', $self->{sysstatus});
211
 
    } 
212
 
    if ($self->{cpustatus} eq 'degraded') {
213
 
      $result = 1;
214
 
      $self->add_message(WARNING,
215
 
          sprintf 'cpu fan overall status is %s', $self->{cpustatus});
216
 
    } elsif ($self->{cpustatus} eq 'failed') {
217
 
      $result = 2;
218
 
      $self->add_message(CRITICAL,
219
 
          sprintf 'cpu fan overall status is %s', $self->{cpustatus});
220
 
    } 
221
 
    $self->add_info(sprintf 'overall fan status: system=%s, cpu=%s',
222
 
        $self->{sysstatus}, $self->{cpustatus});
223
 
  } else {
224
 
    $result = 0;
225
 
    $self->add_info('this system seems to be water-cooled. no fans found');
226
 
  }
227
 
  return $result;
228
 
}
229
 
 
230
 
1;
231