[2809045] Strip preceding netscreen from model name in L3::Netscreen

ChangeLog

@@ -10,6 +10,7 @@ version 2.09
     [ENHANCEMENTS]
     
     * [3418918] Extreme devices now report OS as either extremeware or xos
+    * [2809045] Strip preceding netscreen from model name in L3::Netscreen
     
     [BUG FIXES]
     

Info/Layer3/Netscreen.pm

@@ -92,6 +92,26 @@ sub serial {
     return;
 }
 
+sub model {
+    my $netscreen = shift;
+
+    my $id = $netscreen->id();
+
+    unless ( defined $id ) {
+        print
+            " SNMP::Info::Layer3::model() - Device does not support sysObjectID\n"
+            if $netscreen->debug();
+        return;
+    }
+
+    my $model = &SNMP::translateObj($id);
+
+    return $id unless defined $model;
+
+    $model =~ s/^netscreen//i;
+    return $model;
+}
+
 1;
 
 __END__