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

Ignore loopback, other, and cpu interfaces. Use IfDescr for interface since we don't have SNMP-REPEATER-MIB loaded and methods defined.

Browse Source
This commit is contained in:
Eric A. Miller
2012-07-31 16:26:30 -04:00
parent 18f59db2b9
commit 912ba274a6
1 changed files with 27 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
Info/Layer7.pm
View File

@@ -37,9 +37,9 @@ use SNMP::Info;
@SNMP::Info::Layer7::ISA = qw/SNMP::Info Exporter/;
@SNMP::Info::Layer7::EXPORT_OK = qw//;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE/;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/;
$VERSION = '2.08';
$VERSION = '2.09';
%MIBS = (
%SNMP::Info::MIBS,
@@ -60,7 +60,7 @@ $VERSION = '2.08';
# $l7->model() - Looks at sysObjectID which gives the oid of the system
# name, contained in a propriatry MIB.
# name, contained in a proprietary MIB.
sub model {
my $l7 = shift;
my $id = $l7->id();
@@ -84,15 +84,35 @@ sub interfaces {
my $l7 = shift;
my $partial = shift;
my $interfaces = $l7->i_index($partial) || {};
my $rptr_port = $l7->rptr_port($partial) || {};
my $interfaces = $l7->i_index($partial) || {};
my $i_descr = $l7->i_description($partial) || {};
foreach my $port ( keys %$rptr_port ) {
$interfaces->{$port} = $port;
# Replace the Index with the ifDescr field.
foreach my $iid ( keys %$i_descr ) {
my $port = $i_descr->{$iid};
next unless defined $port;
$interfaces->{$iid} = $port;
}
return $interfaces;
}
sub i_ignore {
my $l7 = shift;
my $partial = shift;
my $i_type = $l7->i_type($partial) || {};
my %i_ignore = ();
foreach my $if ( keys %$i_type ) {
my $type = $i_type->{$if};
$i_ignore{$if}++
if $type =~ /(loopback|other|cpu)/i;
}
return \%i_ignore;
}
1;
__END__