494 lines
13 KiB
Perl
494 lines
13 KiB
Perl
# SNMP::Info::Layer2::Aironet
|
|
# $Id$
|
|
#
|
|
# Copyright (c) 2008 Max Baker changes from version 0.8 and beyond.
|
|
#
|
|
# Copyright (c) 2003 Regents of the University of California
|
|
# All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions are met:
|
|
#
|
|
# * Redistributions of source code must retain the above copyright notice,
|
|
# this list of conditions and the following disclaimer.
|
|
# * Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
# * Neither the name of the University of California, Santa Cruz nor the
|
|
# names of its contributors may be used to endorse or promote products
|
|
# derived from this software without specific prior written permission.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
# LIABLE FOR # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
# POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
package SNMP::Info::Layer2::Aironet;
|
|
|
|
use strict;
|
|
use Exporter;
|
|
use SNMP::Info::Layer2;
|
|
use SNMP::Info::Entity;
|
|
use SNMP::Info::EtherLike;
|
|
use SNMP::Info::CiscoStats;
|
|
use SNMP::Info::CDP;
|
|
use SNMP::Info::IEEE802dot11;
|
|
|
|
@SNMP::Info::Layer2::Aironet::ISA = qw/SNMP::Info::Layer2 SNMP::Info::Entity SNMP::Info::EtherLike
|
|
SNMP::Info::CiscoStats SNMP::Info::CDP Exporter/;
|
|
@SNMP::Info::Layer2::Aironet::EXPORT_OK = qw//;
|
|
|
|
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
|
|
|
|
$VERSION = '1.09';
|
|
|
|
%GLOBALS = (
|
|
%SNMP::Info::IEEE802dot11::GLOBALS,
|
|
%SNMP::Info::Layer2::GLOBALS,
|
|
%SNMP::Info::Entity::GLOBALS,
|
|
%SNMP::Info::EtherLike::GLOBALS,
|
|
%SNMP::Info::CiscoStats::GLOBALS,
|
|
%SNMP::Info::CDP::GLOBALS,
|
|
'serial' => 'entPhysicalSerialNum.1',
|
|
'descr' => 'sysDescr'
|
|
);
|
|
|
|
%FUNCS = (
|
|
%SNMP::Info::IEEE802dot11::FUNCS,
|
|
%SNMP::Info::Layer2::FUNCS,
|
|
%SNMP::Info::Entity::FUNCS,
|
|
%SNMP::Info::EtherLike::FUNCS,
|
|
%SNMP::Info::CiscoStats::FUNCS,
|
|
%SNMP::Info::CDP::FUNCS,
|
|
'i_ssidlist' => 'cd11IfAuxSsid',
|
|
'i_ssidbcast' => 'cd11IfAuxSsidBroadcastSsid',
|
|
'i_80211channel' => 'cd11IfPhyDsssCurrentChannel',
|
|
'c_dot11subif' => 'cDot11ClientSubIfIndex',
|
|
'cd11_txrate' => 'cDot11ClientCurrentTxRateSet',
|
|
'cd11_uptime' => 'cDot11ClientUpTime',
|
|
'cd11_sigstrength' => 'cDot11ClientSignalStrength',
|
|
'cd11_sigqual' => 'cDot11ClientSigQuality',
|
|
'cd11_rxpkt' => 'cDot11ClientPacketsReceived',
|
|
'cd11_txpkt' => 'cDot11ClientPacketsSent',
|
|
'cd11_rxbyte' => 'cDot11ClientBytesReceived',
|
|
'cd11_txbyte' => 'cDot11ClientBytesSent',
|
|
'mbss_mac_addr' => 'cdot11MbssidIfMacAddress',
|
|
);
|
|
|
|
%MIBS = (
|
|
%SNMP::Info::IEEE802dot11::MIBS,
|
|
%SNMP::Info::Layer2::MIBS,
|
|
%SNMP::Info::Entity::MIBS,
|
|
%SNMP::Info::EtherLike::MIBS,
|
|
%SNMP::Info::CiscoStats::MIBS,
|
|
%SNMP::Info::CiscoVTP::MIBS,
|
|
%SNMP::Info::CDP::MIBS,
|
|
'CISCO-DOT11-IF-MIB' => 'cd11IfAuxSsid',
|
|
'CISCO-DOT11-ASSOCIATION-MIB' => 'cDot11ClientSubIfIndex',
|
|
'CISCO-DOT11-SSID-SECURITY-MIB' => 'cdot11SecVlanNameId',
|
|
'CISCO-VLAN-IFTABLE-RELATIONSHIP-MIB' => 'cviRoutedVlanIfIndex',
|
|
);
|
|
|
|
%MUNGE = (
|
|
%SNMP::Info::IEEE802dot11::MUNGE,
|
|
%SNMP::Info::Layer2::MUNGE,
|
|
%SNMP::Info::Entity::MUNGE,
|
|
%SNMP::Info::EtherLike::MUNGE,
|
|
%SNMP::Info::CiscoStats::MUNGE,
|
|
%SNMP::Info::CDP::MUNGE,
|
|
'cd11_txrate' => \&munge_cd11_txrate,
|
|
'mbss_mac_addr' => \&SNMP::Info::munge_mac,
|
|
);
|
|
|
|
# Use 802.11 power level without putting IEEE802dot11 in @ISA
|
|
*SNMP::Info::Layer2::Aironet::dot11_cur_tx_pwr_mw =
|
|
\&SNMP::Info::IEEE802dot11::dot11_cur_tx_pwr_mw;
|
|
|
|
sub vendor {
|
|
# Sorry, but it's true.
|
|
return 'cisco';
|
|
}
|
|
|
|
sub interfaces {
|
|
my $aironet = shift;
|
|
my $partial = shift;
|
|
|
|
my $i_description = $aironet->i_description($partial);
|
|
|
|
return $i_description;
|
|
}
|
|
|
|
# Tag on e_descr.1
|
|
sub description {
|
|
my $aironet = shift;
|
|
my $descr = $aironet->descr();
|
|
my $e_descr = $aironet->e_descr();
|
|
|
|
$descr = "$e_descr->{1} $descr" if defined $e_descr->{1};
|
|
|
|
return $descr;
|
|
}
|
|
|
|
# Fetch duplex from EtherLike
|
|
sub i_duplex {
|
|
my $aironet = shift;
|
|
my $partial = shift;
|
|
|
|
my $el_duplex = $aironet->el_duplex($partial);
|
|
|
|
my %i_duplex;
|
|
foreach my $d (keys %$el_duplex){
|
|
my $val = $el_duplex->{$d};
|
|
next unless defined $val;
|
|
$i_duplex{$d} = 'full' if $val =~ /full/i;
|
|
$i_duplex{$d} = 'half' if $val =~ /half/i;
|
|
}
|
|
|
|
return \%i_duplex;
|
|
}
|
|
|
|
#
|
|
# IOS 12.3 introduces the cDot11ClientSubIfIndex in the
|
|
# cDot11ClientConfigInfoTable, which supplies the ifIndex
|
|
# of the VLAN Subinterface if one exists, or of the primary
|
|
# interface if there are not subinterfaces. 12.2 used the
|
|
# Q-BRIDGE-MIB dot1qTpFdbTable but that was removed in 12.3.
|
|
sub _aironet_special {
|
|
my $aironet = shift;
|
|
my $os_ver = $aironet->os_ver();
|
|
if (defined($os_ver) && $os_ver =~ /^(\d+)\.(\d+)(\D|$)/ && (($1 == 12 && $2 >= 3) || $1 > 12)) {
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
#
|
|
# INDEX { ifIndex, cd11IfAuxSsid, cDot11ClientAddress }
|
|
sub _aironet_breakout_dot11idx {
|
|
my $oid = shift;
|
|
|
|
my @parts = split(/\./, $oid);
|
|
my $ifindex = shift(@parts);
|
|
my $ssidlen = shift(@parts);
|
|
my $ssid = pack("C*", splice(@parts, 0, $ssidlen));
|
|
my $mac = join(":", map {sprintf "%02x", $_} @parts);
|
|
return ($ifindex, $ssid, $mac);
|
|
}
|
|
|
|
sub fw_mac {
|
|
my $aironet = shift;
|
|
|
|
return qb_fw_mac($aironet) unless _aironet_special($aironet);
|
|
my $c_dot11subif = $aironet->c_dot11subif();
|
|
my $fw_mac = {};
|
|
|
|
foreach my $i (keys %$c_dot11subif) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($i);
|
|
$fw_mac->{$i} = $mac;
|
|
}
|
|
return $fw_mac;
|
|
}
|
|
|
|
sub fw_port {
|
|
my $aironet = shift;
|
|
|
|
return $aironet->qb_fw_port() unless _aironet_special($aironet);
|
|
my $c_dot11subif = $aironet->c_dot11subif();
|
|
my $fw_port = {};
|
|
|
|
foreach my $i (keys %$c_dot11subif) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($i);
|
|
$fw_port->{$i} = $c_dot11subif->{$i} || $ifindex;
|
|
}
|
|
return $fw_port;
|
|
}
|
|
|
|
sub bp_index {
|
|
my $aironet = shift;
|
|
|
|
return $aironet->orig_bp_index() unless _aironet_special($aironet);
|
|
my $c_dot11subif = $aironet->c_dot11subif();
|
|
my $bp_index = {};
|
|
|
|
foreach my $i (keys %$c_dot11subif) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($i);
|
|
my ($i) = $c_dot11subif->{$i} || $ifindex;
|
|
$bp_index->{$i} = $i;
|
|
}
|
|
return $bp_index;
|
|
}
|
|
|
|
###
|
|
#
|
|
# VLAN support
|
|
#
|
|
sub v_name {
|
|
my $aironet = shift;
|
|
|
|
my $v_name = {};
|
|
my $vlan_nameid = $aironet->cdot11SecVlanNameId();
|
|
foreach my $i (keys %$vlan_nameid) {
|
|
my @parts = split(/\./, $i);
|
|
my $namelen = shift(@parts);
|
|
|
|
my $name = pack("C*", @parts);
|
|
$v_name->{$i} = $name;
|
|
}
|
|
return $v_name;
|
|
}
|
|
|
|
sub v_index {
|
|
my $aironet = shift;
|
|
|
|
return $aironet->cdot11SecVlanNameId();
|
|
}
|
|
|
|
sub i_vlan {
|
|
my $aironet = shift;
|
|
|
|
my $i_vlan = {};
|
|
my $idxmap = $aironet->cviRoutedVlanIfIndex();
|
|
foreach my $i (keys %$idxmap) {
|
|
my @parts = split(/\./, $i);
|
|
$i_vlan->{$idxmap->{$i}} = $parts[0];
|
|
}
|
|
return $i_vlan;
|
|
}
|
|
|
|
# The MIB reports in units of half a megabit, e.g.,
|
|
# 5.5Mbps is reported as 11.
|
|
sub munge_cd11_txrate {
|
|
my $txrates = shift;
|
|
my @units = unpack("C*", $txrates);
|
|
my @rates = map {
|
|
my $unit = $_;
|
|
$unit *= 0.5;
|
|
} @units;
|
|
|
|
return \@rates;
|
|
}
|
|
|
|
# cd11 INDEX
|
|
sub cd11_port {
|
|
my $aironet = shift;
|
|
my $cd11_sigstrength = $aironet->cd11_sigstrength();
|
|
my $interfaces = $aironet->interfaces();
|
|
my %ret;
|
|
foreach (keys %$cd11_sigstrength) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($_);
|
|
$ret{$_} = $interfaces->{$ifindex};
|
|
}
|
|
return \%ret;
|
|
}
|
|
|
|
sub cd11_ssid {
|
|
my $aironet = shift;
|
|
my $cd11_sigstrength = $aironet->cd11_sigstrength();
|
|
my %ret;
|
|
foreach (keys %$cd11_sigstrength) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($_);
|
|
$ret{$_} = $ssid;
|
|
}
|
|
return \%ret;
|
|
}
|
|
|
|
sub cd11_mac {
|
|
my $aironet = shift;
|
|
my $cd11_sigstrength = $aironet->cd11_sigstrength();
|
|
my %ret;
|
|
foreach (keys %$cd11_sigstrength) {
|
|
my ($ifindex, $ssid, $mac) = _aironet_breakout_dot11idx($_);
|
|
$ret{$_} = $mac;
|
|
}
|
|
return \%ret;
|
|
}
|
|
|
|
# When using MBSS, the ifTable reports the
|
|
# base MAC address, but the actual association is
|
|
# with a different MAC address for MBSS.
|
|
# This convoluted path seems to be necessary
|
|
# to get the right overrides.
|
|
sub i_mac {
|
|
my $aironet = shift;
|
|
# no partial is possible due to the levels
|
|
# of indirection.
|
|
|
|
# Start with the ifPhysAddress, and override
|
|
my $mbss_mac = $aironet->orig_i_mac();
|
|
|
|
my $mbss_mac_addr = $aironet->mbss_mac_addr();
|
|
my $ssid_vlan = $aironet->cdot11SecAuxSsidVlan();
|
|
my $vlan_map = $aironet->cviRoutedVlanIfIndex();
|
|
my $ifstack = $aironet->ifStackStatus();
|
|
|
|
my $vlan_list = {};
|
|
foreach my $idx (keys %$vlan_map) {
|
|
my ($vlan, $num) = split(/\./, $idx);
|
|
push(@{$vlan_list->{$vlan}}, $vlan_map->{$idx});
|
|
}
|
|
|
|
my $stack = {};
|
|
foreach my $idx (keys %$ifstack) {
|
|
my ($upper, $lower) = split(/\./, $idx);
|
|
$stack->{$upper}->{$lower} = $ifstack->{$idx};
|
|
}
|
|
|
|
# mbss_mac_addr index is (radio, ssid).
|
|
# ssid_vlan maps ssid->vlan.
|
|
# vlan_map maps vlan->[list of interfaces]
|
|
# ifstack allows us to pick the right interface
|
|
foreach my $idx (keys %$mbss_mac_addr) {
|
|
my ($interface, @ssid) = split(/\./, $idx);
|
|
my $vlan = $ssid_vlan->{join(".", scalar(@ssid), @ssid)};
|
|
next unless defined($vlan);
|
|
foreach my $vlanif (@{$vlan_list->{$vlan}}) {
|
|
if (defined($stack->{$vlanif}->{$interface})) {
|
|
$mbss_mac->{$vlanif} = $mbss_mac_addr->{$idx};
|
|
}
|
|
}
|
|
}
|
|
|
|
return $mbss_mac;
|
|
}
|
|
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
SNMP::Info::Layer2::Aironet - SNMP Interface to Cisco Aironet devices running
|
|
IOS.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Max Baker
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
# Let SNMP::Info determine the correct subclass for you.
|
|
my $aironet = new SNMP::Info(
|
|
AutoSpecify => 1,
|
|
Debug => 1,
|
|
DestHost => 'myswitch',
|
|
Community => 'public',
|
|
Version => 2
|
|
)
|
|
or die "Can't connect to DestHost.\n";
|
|
|
|
my $class = $aironet->class();
|
|
print "SNMP::Info determined this device to fall under subclass : $class\n";
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Provides interface to SNMP Data available on newer Aironet devices running
|
|
Cisco IOS.
|
|
|
|
Note there are two classes for Aironet devices :
|
|
|
|
=over
|
|
|
|
=item SNMP::Info::Layer3::Aironet
|
|
|
|
This class is for devices running Aironet software (older)
|
|
|
|
=item SNMP::Info::Layer2::Aironet
|
|
|
|
This class is for devices running Cisco IOS software (newer)
|
|
|
|
=back
|
|
|
|
For speed or debugging purposes you can call the subclass directly, but not
|
|
after determining a more specific class using the method above.
|
|
|
|
my $aironet = new SNMP::Info::Layer2::Aironet(...);
|
|
|
|
=head2 Inherited Classes
|
|
|
|
=over
|
|
|
|
=item SNMP::Info::Layer2
|
|
|
|
=item SNMP::Info::Entity
|
|
|
|
=item SNMP::Info::EtherLike
|
|
|
|
=item SNMP::Info::CiscoVTP
|
|
|
|
=back
|
|
|
|
=head2 Required MIBs
|
|
|
|
=over
|
|
|
|
=item Inherited Classes
|
|
|
|
MIBs required by the inherited classes listed above.
|
|
|
|
=back
|
|
|
|
=head1 GLOBALS
|
|
|
|
These are methods that return scalar value from SNMP
|
|
|
|
=over
|
|
|
|
=item $aironet->discription()
|
|
|
|
Adds info from method e_descr() from SNMP::Info::Entity
|
|
|
|
=item $aironet->vendor()
|
|
|
|
Returns 'cisco' :)
|
|
|
|
=back
|
|
|
|
=head2 Globals imported from SNMP::Info::Layer2
|
|
|
|
See documentation in L<SNMP::Info::Layer2/"GLOBALS"> for details.
|
|
|
|
=head2 Globals imported from SNMP::Info::Entity
|
|
|
|
See documentation in L<SNMP::Info::Entity/"GLOBALS"> for details.
|
|
|
|
=head2 Globals imported from SNMP::Info::EtherLike
|
|
|
|
See documentation in L<SNMP::Info::EtherLike/"GLOBALS"> for details.
|
|
|
|
=head1 TABLE METHODS
|
|
|
|
=head2 Overrides
|
|
|
|
=over
|
|
|
|
=item $aironet->interfaces()
|
|
|
|
Uses the i_description() field.
|
|
|
|
=item $aironet->i_duplex()
|
|
|
|
Crosses information from SNMP::Info::EtherLike to get duplex info for
|
|
interfaces.
|
|
|
|
=back
|
|
|
|
=head2 Table Methods imported from SNMP::Info::Layer2
|
|
|
|
See documentation in L<SNMP::Info::Layer2/"TABLE METHODS"> for details.
|
|
|
|
=head2 Table Methods imported from SNMP::Info::Entity
|
|
|
|
See documentation in L<SNMP::Info::Entity/"TABLE METHODS"> for details.
|
|
|
|
=head2 Table Methods imported from SNMP::Info::EtherLike
|
|
|
|
See documentation in L<SNMP::Info::EtherLike/"TABLE METHODS"> for details.
|
|
|
|
=cut
|