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

Add i_vlan, copied from my L3::Cisco.pm implementation.

Browse Source
This commit is contained in:
Bill Fenner
2007-08-13 12:52:05 +00:00
parent 75b570af95
commit f3058e4e9c
1 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Info/Layer3/Juniper.pm
View File

@@ -97,6 +97,24 @@ sub serial {
return $juniper->orig_serial();
}
sub i_vlan {
my ($juniper) = shift;
my ($partial) = shift;
my ($i_type) = $juniper->i_type($partial);
my ($i_descr) = $juniper->i_description($partial);
my %i_vlan;
foreach my $idx (keys %$i_descr) {
if ($i_type->{$idx} eq 'l2vlan' || $i_type->{$idx} eq 135) {
if ($i_descr->{$idx} =~ /\.(\d+)$/) {
$i_vlan{$idx} = $1;
}
}
}
\%i_vlan;
}
1;
__END__
@@ -180,6 +198,15 @@ See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
These are methods that return tables of information in the form of a reference
to a hash.
=over
=item $juniper->i_vlan()
Returns the list of interfaces whose ifType is l2vlan(135), and
the VLAN ID extracted from the interface description.
=back
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.