head 1.7;
access;
symbols
SNMPDX_1_0_0:1.7
SNMPDX_0_2_11:1.6
SNMPDX_0_2_10:1.5
SNMPDX_0_2_9:1.5
SNMPDX_0_2_8:1.4
SNMPDX_0_2_7:1.4
SNMPDX_0_2_6:1.3
SNMPDX_0_2_5:1.3
SNMPDX_0_2_4:1.2
SNMPDX_0_2_3:1.2
SNMPDX_0_2_2:1.2
SNMPDX_0_2_1:1.1
SNMPDX_0_2_0:1.1;
locks; strict;
comment @# @;
1.7
date 2007.03.01.10.52.39; author rse; state Exp;
branches;
next 1.6;
commitid FNuFlqR2Qo3fkn8s;
1.6
date 2005.10.05.17.42.13; author rse; state Exp;
branches;
next 1.5;
1.5
date 2004.07.28.13.00.59; author thl; state Exp;
branches;
next 1.4;
1.4
date 2003.09.10.15.01.46; author rse; state Exp;
branches;
next 1.3;
1.3
date 2003.09.10.12.29.06; author thl; state Exp;
branches;
next 1.2;
1.2
date 2003.09.09.13.44.04; author thl; state Exp;
branches;
next 1.1;
1.1
date 2003.09.08.14.37.21; author thl; state Exp;
branches;
next ;
desc
@@
1.7
log
@Upgrade build environment to GNU shtool 2.0.6 and GNU autoconf 2.60
@
text
@##
## OSSP snmpdx - SNMP Daemon Extension
## Copyright (c) 2003-2007 The OSSP Project
## Copyright (c) 2003-2007 Ralf S. Engelschall
## Copyright (c) 2003-2005 Cable & Wireless
##
## This file is part of OSSP snmpdx, a SNMP daemon extension which
## can be found at http://www.ossp.org/pkg/tool/snmpdx/.
##
## This program is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License
## as published by the Free Software Foundation; either version
## 2.0 of the License, or (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this file; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
## USA, or contact Ralf S. Engelschall .
##
## hwPs.pm: probe for Hardware, Power Supply
##
package My::Probe::hwPs;
our @@ISA = qw(My::Probe);
sub oids ($) {
my ($self) = @@_;
return $self->{-ctx}->{-mib}->oids("*.snmpdx.host.hardware.hwPs.*");
}
sub probe ($$) {
my ($self, $obj) = @@_;
if ($self->{-ctx}->{-platform}->id() =~ m/FreeBSD/i) {
my @@hwPsENTRY; #N/A
}
elsif ($self->{-ctx}->{-platform}->id() =~ m/Linux/i) {
my @@hwPsENTRY; #N/A
}
elsif($self->{-ctx}->{-platform}->id() =~ m/SunOS/i) {
my @@hwPsENTRY;
my $n = 0;
# local workspace
my $out; my $raw; my $arch; my $new;
# initialize arch
$arch = $self->{-ctx}->{-platform}->arch();
# hwPsENTRY
$out = $self->{-ctx}->{-sys}->run("/usr/platform/$arch/sbin/prtdiag -v", "1m");
$raw = $out->{-stdout};
if ($raw =~ m/\n=+ Environmental Status =+\n.*\nPower Supplies:[^\n]*\n(.*?)\n=+/s) {
$raw = $1;
foreach $line (split "\n", $raw) {
if ($line =~ m/(\d+)\s+(OK|ERROR)/) {
my $new = {};
$new->{hwPsIndex} = $n;
$new->{hwPsId} = "Powersupply_$1";
if ($2 =~ m/^OK$/) {
$new->{hwPsStatus} = 1;
}
else {
$new->{hwPsStatus} = 0;
}
$hwPsENTRY[$n++] = $new;
}
}
}
if ($obj->{-name} =~ m/\.hwPsENTRY\.([^.]+)\.(\d+)$/) {
my $col = $1;
my $row = ($2 > 0 ? $2 - 1 : 0);
$self->{-ctx}->{-log}->printf(4, "col=%s row=%s", $col, $row);
$obj->{-value} = $hwPsENTRY[$row]->{$col} if (defined $hwPsENTRY[$row] and defined $hwPsENTRY[$row]->{$col});
}
}
return;
}
1;
@
1.6
log
@flush pending changes
@
text
@d3 2
a4 2
## Copyright (c) 2003-2005 The OSSP Project
## Copyright (c) 2003-2005 Ralf S. Engelschall
@
1.5
log
@remove irrelevant assignments which perl >= 5.8.4 optimizes away anyway
@
text
@d3 3
a5 3
## Copyright (c) 2003 The OSSP Project
## Copyright (c) 2003 Ralf S. Engelschall
## Copyright (c) 2003 Cable & Wireless
@
1.4
log
@More source tree cleanups and polishing, especially adding the GPL-based copyright header used inside OSSP packages
@
text
@d40 1
a40 1
my @@hwPsENTRY = undef; #N/A
d43 1
a43 1
my @@hwPsENTRY = undef; #N/A
d46 1
a46 1
my @@hwPsENTRY = undef;
@
1.3
log
@fix more array/scalar problem; add Index; rename variables removing Info
@
text
@d2 1
a2 1
## snmpdx -- SNMP Daemon Extension
d7 2
a8 4
## Permission to use, copy, modify, and distribute this software for
## any purpose with or without fee is hereby granted, provided that
## the above copyright notice and this permission notice appear in all
## copies.
d10 4
a13 12
## THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
## WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
## IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
## USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
## ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
## OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
## SUCH DAMAGE.
d15 11
a25 1
## hwPs: Hardware, Powersupply
@
1.2
log
@fix array/scalar problem
@
text
@d40 1
a40 1
my @@hwPsInfoENTRY = undef; #N/A
d43 1
a43 1
my @@hwPsInfoENTRY = undef; #N/A
d46 2
a47 1
my @@hwPsInfoENTRY = undef;
d55 1
a55 1
# hwPsInfoENTRY
d63 2
a64 1
$new->{hwPsId} = "PS$1";
d71 1
a71 1
push(@@hwPsInfoENTRY, $new);
d76 1
a76 1
if ($obj->{-name} =~ m/\.hwPsInfoENTRY\.([^.]+)\.(\d+)$/) {
d80 1
a80 1
$obj->{-value} = @@hwPsInfoENTRY[$row]->{$col} if (defined @@hwPsInfoENTRY[$row] and defined @@hwPsInfoENTRY[$row]->{$col});
@
1.1
log
@hwFan and hwPs for SunOS as array
@
text
@d40 1
a40 1
my $hwPsInfoENTRY = undef; #N/A
d43 1
a43 1
my $hwPsInfoENTRY = undef; #N/A
d46 1
a46 1
my $hwPsInfoENTRY = undef;
@