← 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.5.2/plugins-scripts/HP/BladeSystem.pm

  • Committer: Package Import Robot
  • Author(s): Bernd Zeimetz
  • Date: 2013-05-21 22:11:50 UTC
  • mfrom: (5.1.1 experimental)
  • Revision ID: package-import@ubuntu.com-20130521221150-k5bda5v5euvt7wg9
Tags: 6.20130521
* [e68c82e1] check_raid: do not run hpacucli if cciss_vol_status is available.
* [4a1c57e8] Also support tw-cli as additional name for the 3ware binary.
  Thanks to Dennis Hoppe
* [eb5e1c7c] Add /run/ to the check_libs ignore file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
check_hpasm/check_hpasm-4.5.2/plugins-scripts/HP/BladeSystem.pm
1
 
package HP::BladeSystem;
2
 
 
3
 
use strict;
4
 
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
5
 
use Data::Dumper;
6
 
 
7
 
our @ISA = qw(HP::Server HP::Proliant::Component::SNMP);
8
 
 
9
 
sub init {
10
 
  my $self = shift;
11
 
  $self->{components} = {
12
 
      common_enclosure_subsystem => undef,
13
 
      power_enclosure_subsystem => undef,
14
 
      power_supply_subsystem => undef,
15
 
      net_connector_subsystem => undef,
16
 
      server_blade_subsystem => undef,
17
 
  };
18
 
  $self->{serial} = 'unknown';
19
 
  $self->{product} = 'unknown';
20
 
  $self->{romversion} = 'unknown';
21
 
  $self->trace(3, 'BladeSystem identified');
22
 
  $self->collect();
23
 
  if (! $self->{runtime}->{plugin}->check_messages()) {
24
 
    $self->set_serial();
25
 
    $self->analyze_common_enclosures();
26
 
    $self->analyze_power_enclosures();
27
 
    $self->analyze_power_supplies();
28
 
    $self->analyze_net_connectors();
29
 
    $self->analyze_server_blades();
30
 
    $self->check_common_enclosures();
31
 
    $self->check_power_enclosures();
32
 
    $self->check_power_supplies();
33
 
    $self->check_net_connectors();
34
 
    $self->check_server_blades();
35
 
  }
36
 
}
37
 
 
38
 
sub identify {
39
 
  my $self = shift;
40
 
  return sprintf "System: '%s', S/N: '%s'",
41
 
      $self->{product}, $self->{serial};
42
 
}
43
 
 
44
 
sub dump {
45
 
  my $self = shift;
46
 
  printf STDERR "serial %s\n", $self->{serial};
47
 
  printf STDERR "product %s\n", $self->{product};
48
 
  printf STDERR "romversion %s\n", $self->{romversion};
49
 
  printf STDERR "%s\n", Data::Dumper::Dumper($self->{enclosures});
50
 
}
51
 
 
52
 
sub analyze_common_enclosures {
53
 
  my $self = shift;
54
 
  $self->{components}->{common_enclosure_subsystem} =
55
 
      HP::BladeSystem::Component::CommonEnclosureSubsystem->new(
56
 
    rawdata => $self->{rawdata},
57
 
    method => $self->{method},
58
 
    runtime => $self->{runtime},
59
 
  );
60
 
}
61
 
 
62
 
sub analyze_power_enclosures {
63
 
  my $self = shift;
64
 
  $self->{components}->{power_enclosure_subsystem} =
65
 
      HP::BladeSystem::Component::PowerEnclosureSubsystem->new(
66
 
    rawdata => $self->{rawdata},
67
 
    method => $self->{method},
68
 
    runtime => $self->{runtime},
69
 
  );
70
 
}
71
 
 
72
 
sub analyze_power_supplies {
73
 
  my $self = shift;
74
 
  $self->{components}->{power_supply_subsystem} =
75
 
      HP::BladeSystem::Component::PowerSupplySubsystem->new(
76
 
    rawdata => $self->{rawdata},
77
 
    method => $self->{method},
78
 
    runtime => $self->{runtime},
79
 
  );
80
 
}
81
 
 
82
 
sub analyze_net_connectors {
83
 
  my $self = shift;
84
 
  $self->{components}->{net_connector_subsystem} =
85
 
      HP::BladeSystem::Component::NetConnectorSubsystem->new(
86
 
    rawdata => $self->{rawdata},
87
 
    method => $self->{method},
88
 
    runtime => $self->{runtime},
89
 
  );
90
 
}
91
 
 
92
 
sub analyze_server_blades {
93
 
  my $self = shift;
94
 
  $self->{components}->{server_blade_subsystem} =
95
 
      HP::BladeSystem::Component::ServerBladeSubsystem->new(
96
 
    rawdata => $self->{rawdata},
97
 
    method => $self->{method},
98
 
    runtime => $self->{runtime},
99
 
  );
100
 
}
101
 
 
102
 
sub check_common_enclosures {
103
 
  my $self = shift;
104
 
  $self->{components}->{common_enclosure_subsystem}->check();
105
 
  $self->{components}->{common_enclosure_subsystem}->dump()
106
 
      if $self->{runtime}->{options}->{verbose} >= 2;
107
 
}
108
 
 
109
 
sub check_power_enclosures {
110
 
  my $self = shift;
111
 
  $self->{components}->{power_enclosure_subsystem}->check();
112
 
  $self->{components}->{power_enclosure_subsystem}->dump()
113
 
      if $self->{runtime}->{options}->{verbose} >= 2;
114
 
}
115
 
 
116
 
sub check_power_supplies {
117
 
  my $self = shift;
118
 
  $self->{components}->{power_supply_subsystem}->check();
119
 
  $self->{components}->{power_supply_subsystem}->dump()
120
 
      if $self->{runtime}->{options}->{verbose} >= 2;
121
 
}
122
 
 
123
 
sub check_net_connectors {
124
 
  my $self = shift;
125
 
  $self->{components}->{net_connector_subsystem}->check();
126
 
  $self->{components}->{net_connector_subsystem}->dump()
127
 
      if $self->{runtime}->{options}->{verbose} >= 2;
128
 
}
129
 
 
130
 
sub check_server_blades {
131
 
  my $self = shift;
132
 
  $self->{components}->{server_blade_subsystem}->check();
133
 
  $self->{components}->{server_blade_subsystem}->dump()
134
 
      if $self->{runtime}->{options}->{verbose} >= 2;
135
 
}
136
 
 
137
 
sub collect {
138
 
  my $self = shift;
139
 
  if ($self->{runtime}->{plugin}->opts->snmpwalk) {
140
 
    my $cpqRackMibCondition = '1.3.6.1.4.1.232.22.1.3.0';
141
 
    $self->trace(3, 'getting cpqRackMibCondition');
142
 
    if (! exists $self->{rawdata}->{$cpqRackMibCondition}) {
143
 
        $self->add_message(CRITICAL,
144
 
            'snmpwalk returns no health data (cpqrack-mib)');
145
 
    }
146
 
  } else {
147
 
    my $net_snmp_version = Net::SNMP->VERSION(); # 5.002000 or 6.000000
148
 
    #$params{'-translate'} = [
149
 
    #  -all => 0x0
150
 
    #];
151
 
    my ($session, $error) =
152
 
        Net::SNMP->session(%{$self->{runtime}->{snmpparams}});
153
 
    if (! defined $session) {
154
 
      $self->{plugin}->add_message(CRITICAL, 'cannot create session object');
155
 
      $self->trace(1, Data::Dumper::Dumper($self->{runtime}->{snmpparams}));
156
 
    } else {
157
 
      # revMajor is often used for discovery of hp devices
158
 
      my $cpqSeMibRev = '1.3.6.1.4.1.232.22.1';
159
 
      my $cpqSeMibRevMajor = '1.3.6.1.4.1.232.22.1.1.0';
160
 
      my $cpqRackMibCondition = '1.3.6.1.4.1.232.22.1.3.0';
161
 
      $self->trace(3, 'getting cpqRackMibCondition');
162
 
      my $result = $session->get_request(
163
 
          -varbindlist => [$cpqRackMibCondition]
164
 
      );
165
 
      if (!defined($result) ||
166
 
          $result->{$cpqRackMibCondition} eq 'noSuchInstance' ||
167
 
          $result->{$cpqRackMibCondition} eq 'noSuchObject' ||
168
 
          $result->{$cpqRackMibCondition} eq 'endOfMibView') {
169
 
        $self->add_message(CRITICAL,
170
 
            'snmpwalk returns no health data (cpqrack-mib)');
171
 
        $session->close;
172
 
      } else {
173
 
        $self->trace(3, 'getting cpqRackMibCondition done');
174
 
      }
175
 
    }
176
 
    if (! $self->{runtime}->{plugin}->check_messages()) {
177
 
      # snmp peer is alive
178
 
      $self->trace(2, sprintf "Protocol is %s",
179
 
          $self->{runtime}->{snmpparams}->{'-version'});
180
 
      my $oidtrees = [
181
 
          ["cpqSiComponent", "1.3.6.1.4.1.232.2.2"],
182
 
          ["cpqSiAsset", "1.3.6.1.4.1.232.2.2.2"],
183
 
          #["cpqRackInfo", "1.3.6.1.4.1.232.22"],
184
 
          ['cpqRackCommonEnclosureEntry', '1.3.6.1.4.1.232.22.2.3.1.1.1'],
185
 
          ['cpqRackCommonEnclosureTempEntry', '1.3.6.1.4.1.232.22.2.3.1.2.1'],
186
 
          ['cpqRackCommonEnclosureFanEntry', '1.3.6.1.4.1.232.22.2.3.1.3.1'],
187
 
          ['cpqRackCommonEnclosureFuseEntry', '1.3.6.1.4.1.232.22.2.3.1.4.1'],
188
 
          ['cpqRackCommonEnclosureManagerEntry', '1.3.6.1.4.1.232.22.2.3.1.6.1'],
189
 
          ['cpqRackPowerEnclosureEntry', '1.3.6.1.4.1.232.22.2.3.3.1.1'],
190
 
          ['cpqRackServerBladeEntry', '1.3.6.1.4.1.232.22.2.4.1.1.1'],
191
 
          ['cpqRackPowerSupplyEntry', '1.3.6.1.4.1.232.22.2.5.1.1.1'],
192
 
          ['cpqRackNetConnectorEntry', '1.3.6.1.4.1.232.22.2.6.1.1.1'],
193
 
          ['cpqRackMibCondition', '1.3.6.1.4.1.232.22.1.3.0'],
194
 
      ];
195
 
      my $cpqSiComponent = "1.3.6.1.4.1.232.2.2";
196
 
      my $cpqSiAsset = "1.3.6.1.4.1.232.2.2.2";
197
 
      my $cpqRackInfo = "1.3.6.1.4.1.232.22";
198
 
      $session->translate;
199
 
      my $response = {}; #break the walk up in smaller pieces
200
 
      foreach my $subtree (@{$oidtrees}) {
201
 
          my $tic = time; my $tac = $tic;
202
 
          my $response0 = $session->get_table(
203
 
              -maxrepetitions => 1,
204
 
              -baseoid => $subtree->[1]);
205
 
          if (scalar (keys %{$response0}) == 0) {
206
 
            $self->trace(2, sprintf "maxrepetitions failed. fallback");
207
 
            $response0 = $session->get_table(
208
 
                -baseoid => $subtree->[1]);
209
 
          }
210
 
          $tac = time;
211
 
          $self->trace(2, sprintf "%03d seconds for walk %s (%d oids)",
212
 
              $tac - $tic, $subtree->[0], scalar(keys %{$response0}));
213
 
          map { $response->{$_} = $response0->{$_} } keys %{$response0};
214
 
      }
215
 
      $session->close;
216
 
      map { $response->{$_} =~ s/^\s+//; $response->{$_} =~ s/\s+$//; }
217
 
          keys %$response;
218
 
      $self->{rawdata} = $response;
219
 
    }
220
 
  }
221
 
  return $self->{runtime}->{plugin}->check_messages();
222
 
}
223
 
 
224
 
sub set_serial {
225
 
  my $self = shift;
226
 
 
227
 
  my $cpqSiSysSerialNum = "1.3.6.1.4.1.232.2.2.2.1.0";
228
 
  my $cpqSiProductName = "1.3.6.1.4.1.232.2.2.4.2.0";
229
 
 
230
 
  $self->{serial} =
231
 
      SNMP::Utils::get_object($self->{rawdata}, $cpqSiSysSerialNum);
232
 
  $self->{product} =
233
 
      SNMP::Utils::get_object($self->{rawdata}, $cpqSiProductName);
234
 
  $self->{serial} = $self->{serial};
235
 
  $self->{product} = lc $self->{product};
236
 
  $self->{romversion} = 'unknown';
237
 
#####################################################################
238
 
$self->{runtime}->{product} = $self->{product};
239
 
}
240