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

removed cat/catalyst from model()

Browse Source
This commit is contained in:
Max Baker
2003-02-13 19:43:53 +00:00
parent 7a8967d924
commit 7d29cf4c13
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Info/Layer2.pm
View File

@@ -1,6 +1,5 @@
# SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices # SNMP::Info::Layer2 - SNMP Interface to Layer2 Devices
# Max Baker <max@warped.org> # Max Baker <max@warped.org>
# $Id$
# #
# Copyright (c) 2002, Regents of the University of California # Copyright (c) 2002, Regents of the University of California
# All rights reserved. # All rights reserved.
@@ -30,6 +29,7 @@
package SNMP::Info::Layer2; package SNMP::Info::Layer2;
$VERSION = 0.1; $VERSION = 0.1;
# $Id$
use strict; use strict;
@@ -91,6 +91,8 @@ sub model {
# Cisco # Cisco
$model =~ s/sysid$//i; $model =~ s/sysid$//i;
$model =~ s/^(cisco|catalyst)//i;
$model =~ s/^cat//i;
return $model; return $model;
} }

3
Info/Layer3.pm
View File

@@ -29,6 +29,7 @@
package SNMP::Info::Layer3; package SNMP::Info::Layer3;
$VERSION = 0.1; $VERSION = 0.1;
# $Id$
use strict; use strict;
@@ -146,6 +147,8 @@ sub model {
my $model = &SNMP::translateObj($id); my $model = &SNMP::translateObj($id);
$model =~ s/^cisco//i; $model =~ s/^cisco//i;
$model =~ s/^catalyst//;
$model =~ s/^cat//;
return $model; return $model;
} }