/
Access.pm
27 lines (25 loc) · 888 Bytes
/
Access.pm
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
package Classes::Eltex::Access;
our @ISA = qw(Classes::Eltex);
use strict;
# MES2100: 1 PSU, no FAN
# MES2124P: 1 PSU, 2 FAN
# MES2308: 1 PSU, no FAN
# MES2324: 1 PSU, no FAN
# MES2326: 1 PSU, no FAN
# MES2348: 1 PSU, 2 FAN
sub init {
my $self = shift;
if ($self->mode =~ /device::hardware::load/) {
$self->analyze_and_check_cpu_subsystem('Classes::Eltex::MES::Component::CpuSubsystem');
} elsif ($self->mode =~ /device::hardware::health/) {
$self->analyze_and_check_environmental_subsystem('Classes::Eltex::Access::Component::EnvironmentalSubsystem');
if (! $self->check_messages()) {
$self->clear_messages(0);
$self->add_ok('environmental hardware working fine');
}
} elsif ($self->mode =~ /device::ha::status/) {
$self->analyze_and_check_ha_subsystem('Classes::Eltex::MES::Component::HaSubsystem');
} else {
$self->no_such_mode();
}
}