135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

entPhysicalIndex (e_index) is not-accessible. Create e_index method to facilitate emulation methods in other classes

Browse Source
This commit is contained in:
Eric Miller
2007-04-14 23:57:31 +00:00
parent 67081eed26
commit 79a4a55265
1 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Info/Entity.pm
View File

@@ -30,7 +30,7 @@
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
package SNMP::Info::Entity;
$VERSION = '1.04';
$VERSION = '1.05';
# $Id$
use strict;
@@ -48,7 +48,6 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
);
%FUNCS = (
'e_index' => 'entPhysicalIndex',
'e_alias' => 'entPhysicalAlias',
'e_class' => 'entPhysicalClass',
'e_descr' => 'entPhysicalDescr',
@@ -71,9 +70,29 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/;
'e_type' => \&munge_e_type,
);
# entPhysicalIndex is not-accessible. Create to facilitate emulation methods
# in other classes
sub e_index {
my $entity = shift;
my $partial = shift;
my $e_descr = $entity->e_descr($partial);
my %e_index;
foreach my $iid (keys %$e_descr) {
$e_index{$iid} = $iid;
}
return \%e_index;
}
sub e_port {
my $entity = shift;
my $e_map = $entity->e_map();
my $partial = shift;
my $e_map = $entity->e_map($partial);
my %e_port;
@@ -101,7 +120,7 @@ sub munge_e_type {
=head1 NAME
SNMP::Info::Entity - Perl5 Interface to SNMP data stored in ENTITY-MIB. RFC 2737
SNMP::Info::Entity - SNMP Interface to data stored in ENTITY-MIB. RFC 2737
=head1 AUTHOR
@@ -164,7 +183,7 @@ to a hash.
=item $entity->e_index()
Not normally implemented
Index
(C<entPhysicalIndex>)