Translate OIDs returned by Entity MIB e_type

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)

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