diff --git a/ChangeLog b/ChangeLog index 64028905..d554e219 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ SNMP::Info - Friendly OO-style interface to Network devices using SNMP. +version 2.10 (2012-12-08) + + [NEW FEATURES] + * Support for Force10 devices (W. Bulley) + version 2.09 (2012-11-28) [NEW FEATURES] diff --git a/Info.pm b/Info.pm index e6ed8503..410ef183 100644 --- a/Info.pm +++ b/Info.pm @@ -710,6 +710,12 @@ Subclass for Extreme Networks switches. See documentation in L for details. +=item SNMP::Info::Layer3::Force10 + +Subclass for Force10 devices. + +See documentation in L for details. + =item SNMP::Info::Layer3::Foundry Subclass for Foundry Network devices. diff --git a/Info/Layer3/Force10.pm b/Info/Layer3/Force10.pm new file mode 100644 index 00000000..8f1c577c --- /dev/null +++ b/Info/Layer3/Force10.pm @@ -0,0 +1,400 @@ +# SNMP::Info::Layer3::Force10 +# $Id$ +# +# Copyright (c) 2012 William Bulley +# 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 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::Layer3::Force10; + +use strict; +use Exporter; + +use SNMP::Info::Layer3; +use SNMP::Info::MAU; +use SNMP::Info::LLDP; + +@SNMP::Info::Layer3::Force10::ISA = qw/SNMP::Info::LLDP SNMP::Info::MAU + SNMP::Info::Layer3 Exporter/; +@SNMP::Info::Layer3::Force10::EXPORT_OK = qw//; + +use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE/; + +$VERSION = '2.08_001'; + +%MIBS = ( + %SNMP::Info::Layer3::MIBS, + %SNMP::Info::MAU::MIBS, + %SNMP::Info::LLDP::MIBS, + 'F10-PRODUCTS-MIB' => 'f10Products', +); + +%GLOBALS = ( + %SNMP::Info::Layer3::GLOBALS, + %SNMP::Info::MAU::GLOBALS, + %SNMP::Info::LLDP::GLOBALS, +); + +%FUNCS = ( + %SNMP::Info::Layer3::FUNCS, + %SNMP::Info::MAU::FUNCS, + %SNMP::Info::LLDP::FUNCS, +); + +%MUNGE = ( + %SNMP::Info::Layer3::MUNGE, + %SNMP::Info::MAU::MUNGE, + %SNMP::Info::LLDP::MUNGE, +); + +# use MAU-MIB for admin. duplex and admin. speed +*SNMP::Info::Layer3::Force10::i_duplex_admin + = \&SNMP::Info::MAU::mau_i_duplex_admin; +*SNMP::Info::Layer3::Force10::i_speed_admin + = \&SNMP::Info::MAU::mau_i_speed_admin; + +sub vendor { + return 'force10'; +} + +sub os { + return 'ftos'; +} + +sub os_ver { + my $force10 = shift; + my $descr = $force10->description(); + my $os_ver = undef; + + $os_ver = $1 if ( $descr =~ /Force10\s+Application\s+Software\s+Version:\s+(\S+)/s ); + + return $os_ver; +} + +sub model { + my $force10 = shift; + my $id = $force10->id(); + + my $model = &SNMP::translateObj($id); + return $id unless defined $model; + + return $model; +} + +# Use Q-BRIDGE-MIB + +sub fw_mac { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_fw_mac($partial); +} + +sub fw_port { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_fw_port($partial); +} + +sub v_name { + my $force10 = shift; + my $partial = shift; + + return $force10->qb_v_name($partial); +} + +# ------------------- stub for now----------------- +sub i_vlan { + my $force10 = shift; + my $partial = shift; + + my $i_vlan = {}; + + return $i_vlan; +} + +sub i_vlan_membership { + my $force10 = shift; + my $partial = shift; + + my $index = $force10->bp_index(); + my $v_index = $force10->v_index(); + + my $v_ports = $force10->qb_v_egress(); + + # If given a partial it will be an ifIndex, we need to use dot1dBasePort + if ($partial) { + my %r_index = reverse %$index; + $partial = $r_index{$partial}; + } + + my $i_vlan_membership = {}; + + foreach my $idx ( sort keys %{$v_ports} ) { + next unless ( defined $v_ports->{$idx} ); + my $portlist = $v_ports->{$idx}; # is an array reference + my $ret = []; + my $vlan_ndx = $idx; + + # Convert portlist bit array to bp_index array + for ( my $i = 0; $i <= $#$portlist; $i++ ) { + push( @{$ret}, $i + 1 ) if ( @$portlist[$i] ); + } + + #Create HoA ifIndex -> VLAN array + foreach my $port ( @{$ret} ) { + my $ifindex = $index->{$port}; + next unless ( defined($ifindex) ); # shouldn't happen + next if ( defined $partial and $ifindex !~ /^$partial$/ ); + my $vlan_tag = $v_index->{$vlan_ndx}; + + # FIXME: would be preferable to use + # the mapping from Q-BRIDGE-MIB::dot1qVlanFdbId + my $mod = $vlan_tag % 4096; + + push ( @{ $i_vlan_membership->{$ifindex} }, ($mod) ); + } + } + + return $i_vlan_membership; +} + +# Use LLDP + +sub hasCDP { + my $force10 = shift; + + return $force10->hasLLDP(); +} + +sub c_ip { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_ip($partial); +} + +sub c_if { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_if($partial); +} + +sub c_port { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_port($partial); +} + +sub c_id { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_id($partial); +} + +sub c_platform { + my $force10 = shift; + my $partial = shift; + + return $force10->lldp_rem_sysdesc($partial); +} + +1; + +__END__ + +=head1 NAME + +SNMP::Info::Layer3::Force10 - SNMP Interface to Force10 Networks FTOS + +=head1 AUTHOR + +William Bulley + +=head1 SYNOPSIS + + # Let SNMP::Info determine the correct subclass for you. + my $force10 = new SNMP::Info( + AutoSpecify => 1, + Debug => 1, + # These arguments are passed directly to SNMP::Session + DestHost => 'myswitch', + Community => 'public', + Version => 2 + ) + or die "Can't connect to DestHost.\n"; + + my $class = $force10->class(); + print "SNMP::Info determined this device to fall under subclass : $class\n"; + +=head1 DESCRIPTION + +Subclass for Force10 Networks FTOS-based devices. + +=head2 Inherited Classes + +=over + +=item SNMP::Info::Layer3 + +=item SNMP::Info::MAU + +=item SNMP::Info::LLDP + +=back + +=head2 Required MIBs + +=over + +=item F + +=item Inherited Classes' MIBs + +See L for its own MIB requirements. + +See L for its own MIB requirements. + +See L for its own MIB requirements. + +=back + +=head1 GLOBALS + +These are methods that return scalar values from SNMP: + +=over + +=item $force10->vendor() + + Returns 'force10' + +=item $force10->hasCDP() + + Returns whether LLDP is enabled. + +=item $force10->model() + +Tries to reference $force10->id() to the Force10 product MIB listed above. + +=item $force10->os() + +Returns 'ftos' + +=item $force10->os_ver() + +Grabs the operating system version from C + +=back + +=head2 Global Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head2 Global Methods imported from SNMP::Info::MAU + +See documentation in L for details. + +=head2 Global Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head1 TABLE METHODS + +These are methods that return tables of information in the form of a reference +to a hash. + +=over + +=item $force10->v_name() + +Returns the VLAN names. + +=item $force10->i_vlan() + +Currently not implemented. + +=item $force10->i_vlan_membership() + +Returns reference to hash of arrays: +key = C, value = array of VLAN IDs. +These are the VLANs which are members of the egress list for the port. + +=item $force10->fw_mac() + +Use the F instead of F + +=item $force10->fw_port() + +Use the F instead of F + +=item $force10->c_id() + +Returns LLDP information. + +=item $force10->c_if() + +Returns LLDP information. + +=item $force10->c_ip() + +Returns LLDP information. + +=item $force10->c_platform() + +Returns LLDP information. + +=item $force10->c_port() + +Returns LLDP information. + +=item $force10->i_duplex_admin() + +Returns info from F + +=item $force10->i_speed_admin() + +Returns info from F + +=back + +=head2 Table Methods imported from SNMP::Info::Layer3 + +See documentation in L for details. + +=head2 Table Methods imported from SNMP::Info::MAU + +See documentation in L for details. + +=head2 Table Methods imported from SNMP::Info::LLDP + +See documentation in L for details. + +=cut