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

2012-07-15 23:00:30 -04:00
parent b5c4bd99bf
commit 6256f33079
2 changed files with 21 additions and 0 deletions
--- a/Info/Layer3/Netscreen.pm
+++ b/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__