File Coverage

blib/lib/Cisco/SNMP/Sensor.pm

Criterion	Covered	Total	%
statement	16	54	29.6
branch	0	16	0.0
condition	0	3	0.0
subroutine	6	9	66.6
pod	2	2	100.0
total	24	84	28.5

package Cisco::SNMP::Sensor;

##################################################
# AUTHOR = Michael Vincent
# www.VinsWorld.com
##################################################

use strict;
use warnings;

use Net::SNMP qw(:asn1);
use Cisco::SNMP;

our $VERSION = $Cisco::SNMP::VERSION;

our @ISA = qw(Cisco::SNMP);

##################################################
# Start Public Module
##################################################

sub _sensOID {
    return '1.3.6.1.4.1.9.9.91.1.1.1.1';
}

sub sensOIDs {
    return qw(Type Scale Precision Value Status ValueTimeStamp
      ValueUpdateRate EntityId);
}

sub sensor_info {
    my $self = shift;
    my $class = ref($self) || $self;

    my $session = $self->{_SESSION_};

    my %ret;
    my $OIDS;
    my @SENSKEYS = sensOIDs();

    # -1 because last key (EntityId) isn't an OID; rather, added
    for my $oid ( 0 .. $#SENSKEYS - 1 ) {
        ( $OIDS, $ret{$SENSKEYS[$oid]} )
          = Cisco::SNMP::_snmpwalk( $session,
            _sensOID() . '.' . ( $oid + 1 ) );
        if ( not defined $ret{$SENSKEYS[$oid]} ) {
            $Cisco::SNMP::LASTERROR
              = "Cannot get sensor `$SENSKEYS[$oid]' info";
            return undef;
        }
    }

    # need to record entity index
    for ( @{$OIDS} ) {

        # split the OID at dots
        my @entId = split /\./, $_;

        # take the last value, which is the entity Index equal to value returned
        push @{$ret{$SENSKEYS[$#SENSKEYS]}}, $entId[$#entId];
    }

    my %SensType = (
        1  => 'other',
        2  => 'unknown',
        3  => 'voltsAC',
        4  => 'voltsDC',
        5  => 'amperes',
        6  => 'watts',
        7  => 'hertz',
        8  => 'celsius',
        9  => 'percentRH',
        10 => 'rpm',
        11 => 'cmm',
        12 => 'truthvalue',
        13 => 'specialEnum',
        14 => 'dBm'
    );
    my %SensScale = (
        1  => 'yocto',
        2  => 'zepto',
        3  => 'atto',
        4  => 'femto',
        5  => 'pico',
        6  => 'nano',
        7  => 'micro',
        8  => 'milli',
        9  => 'units',
        10 => 'kilo',
        11 => 'mega',
        12 => 'giga',
        13 => 'tera',
        14 => 'exa',
        15 => 'peta',
        16 => 'zetta',
        17 => 'yotta'
    );
    my %SensStatus = (
        1 => 'ok',
        2 => 'unavailable',
        3 => 'nonoperational'
    );
    my %SensInfo;
    for my $sens ( 0 .. $#{$ret{$SENSKEYS[0]}} ) {
        my %SensInfoHash;
        for ( 0 .. $#SENSKEYS ) {
            if ( $_ == 0 ) {
                $SensInfoHash{$SENSKEYS[$_]}
                  = exists( $SensType{$ret{$SENSKEYS[$_]}->[$sens]} )
                  ? $SensType{$ret{$SENSKEYS[$_]}->[$sens]}
                  : $ret{$SENSKEYS[$_]}->[$sens];
            } elsif ( $_ == 1 ) {
                $SensInfoHash{$SENSKEYS[$_]}
                  = exists( $SensScale{$ret{$SENSKEYS[$_]}->[$sens]} )
                  ? $SensScale{$ret{$SENSKEYS[$_]}->[$sens]}
                  : $ret{$SENSKEYS[$_]}->[$sens];
            } elsif ( $_ == 4 ) {
                $SensInfoHash{$SENSKEYS[$_]}
                  = exists( $SensStatus{$ret{$SENSKEYS[$_]}->[$sens]} )
                  ? $SensStatus{$ret{$SENSKEYS[$_]}->[$sens]}
                  : $ret{$SENSKEYS[$_]}->[$sens];
            } else {
                $SensInfoHash{$SENSKEYS[$_]} = $ret{$SENSKEYS[$_]}->[$sens];
            }
        }
        $SensInfo{$ret{$SENSKEYS[$#SENSKEYS]}->[$sens]} = \%SensInfoHash;
    }
    return bless \%SensInfo, $class;
}

for ( sensOIDs() ) {
    Cisco::SNMP::_mk_accessors_hash_1( 'sens', $_ );
}

no strict 'refs';

# get_ direct
my @OIDS = sensOIDs();

# -1 because last key (EntityId) isn't an OID; rather, added
for my $o ( 0 .. $#OIDS - 1 ) {
    *{"get_sens" . $OIDS[$o]} = sub {
        my $self = shift;
        my ($val) = @_;

        if ( not defined $val ) { $val = 0 }
        my $s = $self->session;
        my $r = $s->get_request(
            varbindlist => [_sensOID() . '.' . ( $o + 1 ) . '.' . $val] );
        return $r->{_sensOID() . '.' . ( $o + 1 ) . '.' . $val};
      }
}

##################################################
# End Public Module
##################################################

1;

__END__