File Coverage

blib/lib/Cisco/SNMP/Image.pm

Criterion	Covered	Total	%
statement	18	51	35.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	6	11	54.5
pod	3	3	100.0
total	27	74	36.4

package Cisco::SNMP::Image;

##################################################
# 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 _imageOID {
    return '.1.3.6.1.4.1.9.9.25.1.1.1.2'
}

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

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

    my $response = Cisco::SNMP::_snmpwalk($session, _imageOID());

    my %ImageHash;
    for (@{$response}) {
        my ($key, $value) = split /\$/, $_, 2;
        $key =~ s/^CW_//;
        $key = ucfirst(lc($key));
        $value =~ s/\$$//;
        $ImageHash{$key} = $value
    }

    no strict 'refs';
    for my $key (keys(%ImageHash)) {
        *{"image" . $key} = sub {
            return $ImageHash{$key}
        }
    }
    use strict;

    if (defined $response) {
        return bless $response, $class
    } else {
        $Cisco::SNMP::LASTERROR = "Cannot read image MIB";
        return undef
    }
}

sub imageString {
    my $self  = shift;
    my ($idx) = @_;

    if (!defined $idx) {
        $idx = 0
    } elsif ($idx !~ /^\d+$/) {
        $Cisco::SNMP::LASTERROR = "Invalid image index `$idx'";
        return undef
    }
    return $self->[$idx]
}

sub get_imageString {
    my $self  = shift;
    my ($idx) = @_;

    my $s = $self->session;
    my $r = $s->get_request(
        varbindlist => [_imageOID() . '.' . ($idx)]
    );
    return $r->{_imageOID() . '.' . ($idx)}
}

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

1;

__END__