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

L3::Cisco i_vlan() will now call SUPER and try interface description as a fallback

Browse Source
This commit is contained in:
Eric A. Miller
2014-06-22 11:21:02 -04:00
parent 9148764d20
commit 102a7e10cc
1 changed files with 19 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Info/Layer3/Cisco.pm
View File

@@ -41,8 +41,8 @@ use SNMP::Info::CiscoConfig;
use SNMP::Info::CiscoPower; use SNMP::Info::CiscoPower;
use SNMP::Info::Layer3; use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Cisco::ISA = qw/SNMP::Info::CiscoVTP SNMP::Info::CDP @SNMP::Info::Layer3::Cisco::ISA = qw/SNMP::Info::CiscoVTP
SNMP::Info::CiscoStats SNMP::Info::CDP SNMP::Info::CiscoStats
SNMP::Info::CiscoRTT SNMP::Info::CiscoQOS SNMP::Info::CiscoRTT SNMP::Info::CiscoQOS
SNMP::Info::CiscoConfig SNMP::Info::CiscoPower SNMP::Info::CiscoConfig SNMP::Info::CiscoPower
SNMP::Info::Layer3 SNMP::Info::Layer3
@@ -54,23 +54,19 @@ use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '3.15'; $VERSION = '3.15';
%MIBS = ( %MIBS = (
%SNMP::Info::Layer3::MIBS, %SNMP::Info::Layer3::MIBS, %SNMP::Info::CiscoPower::MIBS,
%SNMP::Info::CiscoPower::MIBS, %SNMP::Info::CiscoConfig::MIBS, %SNMP::Info::CiscoQOS::MIBS,
%SNMP::Info::CiscoConfig::MIBS, %SNMP::Info::CiscoRTT::MIBS, %SNMP::Info::CiscoStats::MIBS,
%SNMP::Info::CiscoQOS::MIBS, %SNMP::Info::CDP::MIBS, %SNMP::Info::CiscoVTP::MIBS,
%SNMP::Info::CiscoRTT::MIBS,
%SNMP::Info::CiscoStats::MIBS,
%SNMP::Info::CDP::MIBS,
%SNMP::Info::CiscoVTP::MIBS,
'CISCO-EIGRP-MIB' => 'cEigrpAsRouterId', 'CISCO-EIGRP-MIB' => 'cEigrpAsRouterId',
); );
%GLOBALS = ( %GLOBALS = (
%SNMP::Info::Layer3::GLOBALS, %SNMP::Info::CiscoPower::GLOBALS, %SNMP::Info::Layer3::GLOBALS, %SNMP::Info::CiscoPower::GLOBALS,
%SNMP::Info::CiscoConfig::GLOBALS, %SNMP::Info::CiscoQOS::GLOBALS, %SNMP::Info::CiscoConfig::GLOBALS, %SNMP::Info::CiscoQOS::GLOBALS,
%SNMP::Info::CiscoRTT::GLOBALS, %SNMP::Info::CiscoRTT::GLOBALS, %SNMP::Info::CiscoStats::GLOBALS,
%SNMP::Info::CiscoStats::GLOBALS, %SNMP::Info::CDP::GLOBALS, %SNMP::Info::CDP::GLOBALS, %SNMP::Info::CiscoVTP::GLOBALS,
%SNMP::Info::CiscoVTP::GLOBALS, 'eigrp_id' => 'cEigrpAsRouterId', 'eigrp_id' => 'cEigrpAsRouterId',
); );
%FUNCS = ( %FUNCS = (
@@ -100,21 +96,23 @@ $VERSION = '3.15';
); );
sub i_vlan { sub i_vlan {
my ($cisco) = shift; my $cisco = shift;
my ($partial) = shift; my $partial = shift;
my ($i_type) = $cisco->i_type($partial); my $i_type = $cisco->i_type($partial);
my ($i_descr) = $cisco->i_description($partial); my $i_descr = $cisco->i_description($partial);
my %i_vlan; my $i_vlan = $cisco->SUPER::i_vlan($partial);
foreach my $idx ( keys %$i_descr ) { foreach my $idx ( keys %$i_descr ) {
if ( $i_type->{$idx} eq 'l2vlan' || $i_type->{$idx} eq 135 ) { if ( $i_type->{$idx} eq 'l2vlan'
|| $i_type->{$idx} eq '135' && !defined $i_vlan->{$idx} )
{
if ( $i_descr->{$idx} =~ /\.(\d+)$/ ) { if ( $i_descr->{$idx} =~ /\.(\d+)$/ ) {
$i_vlan{$idx} = $1; $i_vlan->{$idx} = $1;
} }
} }
} }
return \%i_vlan; return $i_vlan;
} }
1; 1;