diff --git a/ChangeLog b/ChangeLog index ac8334f4..69c78503 100644 --- a/ChangeLog +++ b/ChangeLog @@ -51,6 +51,7 @@ version 1.05 * Correct port numbering for Nortel 8110, 1100, 1150 in L3:Passport (Reported by David Pinkoski) * Documentation updates + * Translate OIDs returned by Entity MIB e_type version 1.04 (07/08/06) + Added C1130 and C1240 to L2::Aironet (Ralf Gross) diff --git a/Info/Entity.pm b/Info/Entity.pm index f596a4dc..e4547743 100644 --- a/Info/Entity.pm +++ b/Info/Entity.pm @@ -68,6 +68,7 @@ use vars qw/$VERSION $DEBUG %MIBS %FUNCS %GLOBALS %MUNGE $INIT/; ); %MUNGE = ( + 'e_type' => \&munge_e_type, ); sub e_port { @@ -88,6 +89,14 @@ sub e_port { return \%e_port; } + +sub munge_e_type { + my $oid = shift; + + my $name = &SNMP::translateObj($oid); + return $name if defined($name); + return $oid; +} 1; =head1 NAME