← 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/PowersupplySubsystem.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/PowersupplySubsystem.pm
1
 
package HP::Proliant::Component::PowersupplySubsystem;
2
 
our @ISA = qw(HP::Proliant::Component);
3
 
 
4
 
use strict;
5
 
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
6
 
 
7
 
sub new {
8
 
  my $class = shift;
9
 
  my %params = @_;
10
 
  my $self = {
11
 
    runtime => $params{runtime},
12
 
    rawdata => $params{rawdata},
13
 
    method => $params{method},
14
 
    condition => $params{condition},
15
 
    status => $params{status},
16
 
    powersupplies => [],
17
 
    powerconverters => [],
18
 
    blacklisted => 0,
19
 
    info => undef,
20
 
    extendedinfo => undef,
21
 
  };
22
 
  bless $self, $class;
23
 
  if ($self->{method} eq 'snmp') {
24
 
    return HP::Proliant::Component::PowersupplySubsystem::SNMP->new(%params);
25
 
  } elsif ($self->{method} eq 'cli') {
26
 
    return HP::Proliant::Component::PowersupplySubsystem::CLI->new(%params);
27
 
  } else {
28
 
    die "unknown method";
29
 
  }
30
 
  return $self;
31
 
}
32
 
 
33
 
sub check {
34
 
  my $self = shift;
35
 
  my $errorfound = 0;
36
 
  $self->add_info('checking power supplies');
37
 
  if (scalar (@{$self->{powersupplies}}) == 0) {
38
 
    #$self->overall_check();
39
 
  } else {
40
 
    foreach (@{$self->{powersupplies}}) {
41
 
      $_->check();
42
 
    }
43
 
  }
44
 
}
45
 
 
46
 
sub dump {
47
 
  my $self = shift;
48
 
  foreach (@{$self->{powersupplies}}) {
49
 
    $_->dump();
50
 
  }
51
 
}
52
 
 
53
 
 
54
 
package HP::Proliant::Component::PowersupplySubsystem::Powersupply;
55
 
our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem);
56
 
 
57
 
use strict;
58
 
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
59
 
 
60
 
sub new {
61
 
  my $class = shift;
62
 
  my %params = @_;
63
 
  my $self = {
64
 
    runtime => $params{runtime},
65
 
    cpqHeFltTolPowerSupplyChassis => $params{cpqHeFltTolPowerSupplyChassis},
66
 
    cpqHeFltTolPowerSupplyBay => $params{cpqHeFltTolPowerSupplyBay},
67
 
    cpqHeFltTolPowerSupplyPresent => $params{cpqHeFltTolPowerSupplyPresent},
68
 
    cpqHeFltTolPowerSupplyCondition => $params{cpqHeFltTolPowerSupplyCondition},
69
 
    cpqHeFltTolPowerSupplyRedundant => $params{cpqHeFltTolPowerSupplyRedundant},
70
 
    cpqHeFltTolPowerSupplyCapacityUsed => $params{cpqHeFltTolPowerSupplyCapacityUsed},
71
 
    cpqHeFltTolPowerSupplyCapacityMaximum => $params{cpqHeFltTolPowerSupplyCapacityMaximum},
72
 
    blacklisted => 0,
73
 
    info => undef,
74
 
    extendexinfo => undef,
75
 
  };
76
 
  bless $self, $class;
77
 
  return $self;
78
 
}
79
 
 
80
 
sub check {
81
 
  my $self = shift;
82
 
  $self->blacklist('p', $self->{cpqHeFltTolPowerSupplyBay});
83
 
  if ($self->{cpqHeFltTolPowerSupplyPresent} eq "present") {
84
 
    if ($self->{cpqHeFltTolPowerSupplyCondition} ne "ok") {
85
 
      if ($self->{cpqHeFltTolPowerSupplyCondition} eq "other") {
86
 
        $self->add_info(sprintf "powersupply %d is missing",
87
 
            $self->{cpqHeFltTolPowerSupplyBay});
88
 
      } else {
89
 
        $self->add_info(sprintf "powersupply %d needs attention (%s)",
90
 
            $self->{cpqHeFltTolPowerSupplyBay},
91
 
            $self->{cpqHeFltTolPowerSupplyCondition});
92
 
      }
93
 
      $self->add_message(CRITICAL, $self->{info});
94
 
    } else {
95
 
      $self->add_info(sprintf "powersupply %d is %s",
96
 
          $self->{cpqHeFltTolPowerSupplyBay},
97
 
          $self->{cpqHeFltTolPowerSupplyCondition});
98
 
    }
99
 
    $self->add_extendedinfo(sprintf "ps_%s=%s",
100
 
        $self->{cpqHeFltTolPowerSupplyBay},
101
 
        $self->{cpqHeFltTolPowerSupplyCondition});
102
 
    if ($self->{cpqHeFltTolPowerSupplyCapacityUsed} &&
103
 
        $self->{cpqHeFltTolPowerSupplyCapacityMaximum}) {
104
 
      if ($self->{runtime}->{options}->{perfdata}) {
105
 
        $self->{runtime}->{plugin}->add_perfdata(
106
 
            label => sprintf("pc_%s", $self->{cpqHeFltTolPowerSupplyBay}),
107
 
            value => $self->{cpqHeFltTolPowerSupplyCapacityUsed},
108
 
            warning => $self->{cpqHeFltTolPowerSupplyCapacityMaximum},
109
 
            critical => $self->{cpqHeFltTolPowerSupplyCapacityMaximum}
110
 
        );
111
 
      }
112
 
    } elsif ($self->{cpqHeFltTolPowerSupplyCapacityUsed}) {
113
 
      if ($self->{runtime}->{options}->{perfdata}) {
114
 
        $self->{runtime}->{plugin}->add_perfdata(
115
 
            label => sprintf("pc_%s", $self->{cpqHeFltTolPowerSupplyBay}),
116
 
            value => $self->{cpqHeFltTolPowerSupplyCapacityUsed}
117
 
        );
118
 
      }
119
 
    }
120
 
  } else {
121
 
    $self->add_info(sprintf "powersupply %d is %s",
122
 
        $self->{cpqHeFltTolPowerSupplyBay},
123
 
        $self->{cpqHeFltTolPowerSupplyPresent});
124
 
    $self->add_extendedinfo(sprintf "ps_%s=%s",
125
 
        $self->{cpqHeFltTolPowerSupplyBay},
126
 
        $self->{cpqHeFltTolPowerSupplyPresent});
127
 
  }
128
 
}
129
 
 
130
 
 
131
 
sub dump {
132
 
  my $self = shift;
133
 
  printf "[PS_%s]\n", $self->{cpqHeFltTolPowerSupplyBay};
134
 
  foreach (qw(cpqHeFltTolPowerSupplyBay cpqHeFltTolPowerSupplyChassis
135
 
      cpqHeFltTolPowerSupplyPresent cpqHeFltTolPowerSupplyCondition
136
 
      cpqHeFltTolPowerSupplyRedundant cpqHeFltTolPowerSupplyCapacityUsed
137
 
      cpqHeFltTolPowerSupplyCapacityMaximum)) {
138
 
    printf "%s: %s\n", $_, $self->{$_};
139
 
  }
140
 
  printf "info: %s\n\n", $self->{info};
141
 
}
142
 
 
143
 
 
144
 
package HP::Proliant::Component::PowersupplySubsystem::Powerconverter;
145
 
our @ISA = qw(HP::Proliant::Component::PowersupplySubsystem);
146
 
 
147
 
use strict;
148
 
use constant { OK => 0, WARNING => 1, CRITICAL => 2, UNKNOWN => 3 };
149
 
 
150
 
sub new {
151
 
  my $class = shift;
152
 
  my %params = @_;
153
 
  my $self = {
154
 
    runtime => $params{runtime},
155
 
 
156
 
    cpqHePowerConvEntry => $params{cpqHePowerConvEntry},
157
 
    cpqHePowerConvChassis => $params{cpqHePowerConvChassis},
158
 
    cpqHePowerConvIndex => $params{cpqHePowerConvIndex},
159
 
    cpqHePowerConvPresent => $params{cpqHePowerConvPresent},
160
 
    cpqHePowerConvRedundant => $params{cpqHePowerConvRedundant},
161
 
    cpqHePowerConvCondition => $params{cpqHePowerConvCondition},
162
 
    cpqHePowerConvHwLocation => $params{cpqHePowerConvHwLocation},
163
 
    blacklisted => 0,
164
 
    info => undef,
165
 
    extendexinfo => undef,
166
 
  };
167
 
  bless $self, $class;
168
 
  return $self;
169
 
}
170
 
 
171
 
sub check {
172
 
  my $self = shift;
173
 
  $self->blacklist('pc', $self->{cpqHePowerConvIndex});
174
 
  if ($self->{cpqHePowerConvPresent} eq "present") {
175
 
    if ($self->{cpqHePowerConvCondition} ne "ok") {
176
 
      if ($self->{cpqHePowerConvCondition} eq "other") {
177
 
        $self->add_info(sprintf "powerconverter %d is missing",
178
 
            $self->{cpqHePowerConvIndex});
179
 
      } else {
180
 
        $self->add_info(sprintf "powerconverter %d needs attention (%s)",
181
 
            $self->{cpqHePowerConvIndex},
182
 
            $self->{cpqHePowerConvCondition});
183
 
      }
184
 
      $self->add_message(CRITICAL, $self->{info});
185
 
    } else {
186
 
      $self->add_info(sprintf "powerconverter %d is %s",
187
 
          $self->{cpqHePowerConvIndex},
188
 
          $self->{cpqHePowerConvCondition});
189
 
    }
190
 
    $self->add_extendedinfo(sprintf "pc_%s=%s",
191
 
        $self->{cpqHePowerConvIndex},
192
 
        $self->{cpqHePowerConvCondition});
193
 
  } else {
194
 
    $self->add_info(sprintf "powerconverter %d is %s",
195
 
        $self->{cpqHePowerConvIndex},
196
 
        $self->{cpqHePowerConvPresent});
197
 
    $self->add_extendedinfo(sprintf "pc_%s=%s",
198
 
        $self->{cpqHePowerConvIndex},
199
 
        $self->{cpqHePowerConvPresent});
200
 
  }
201
 
}
202
 
 
203
 
 
204
 
sub dump {
205
 
  my $self = shift;
206
 
  printf "[PS_%s]\n", ($self->{cpqHePowerConvChassis} ? $self->{cpqHePowerConvChassis}.":" : "").$self->{cpqHePowerConvIndex};
207
 
  foreach (qw(cpqHePowerConvIndex cpqHePowerConvPresent cpqHePowerConvRedundant cpqHePowerConvCondition)) {
208
 
    printf "%s: %s\n", $_, $self->{$_};
209
 
  }
210
 
  printf "info: %s\n\n", $self->{info};
211
 
}
212
 
 
213
 
 
214
 
1;