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 ( not 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__