548 lines
12 KiB
Perl
548 lines
12 KiB
Perl
# SNMP::Info::Layer2::HP - SNMP Interface to HP ProCurve Switches
|
|
# Max Baker <max@warped.org>
|
|
#
|
|
# Copyright (c) 2002, 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::HP;
|
|
$VERSION = 0.1;
|
|
|
|
use strict;
|
|
|
|
use Exporter;
|
|
use SNMP::Info::Layer2;
|
|
use SNMP::Info::MAU;
|
|
|
|
use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT
|
|
%MYGLOBALS %MYMIBS %MYFUNCS %MYMUNGE %MUNGE $INIT/ ;
|
|
@SNMP::Info::Layer2::HP::ISA = qw/SNMP::Info::Layer2 SNMP::Info::MAU Exporter/;
|
|
@SNMP::Info::Layer2::HP::EXPORT_OK = qw//;
|
|
|
|
$DEBUG=0;
|
|
$SNMP::debugging=$DEBUG;
|
|
|
|
# See SNMP::Info for the details of these data structures and
|
|
# the interworkings.
|
|
$INIT = 0;
|
|
|
|
%MYMIBS = ( 'ENTITY-MIB' => 'entPhysicalSerialNum',
|
|
'RFC1271-MIB' => 'logDescription',
|
|
'HP-ICF-OID' => 'hpSwitch4000',
|
|
);
|
|
|
|
%MIBS = ( %SNMP::Info::Layer2::MIBS,
|
|
%SNMP::Info::MAU::MIBS,
|
|
%MYMIBS );
|
|
|
|
%MYGLOBALS = ('serial1' => 'entPhysicalSerialNum.1',
|
|
# 'model' => 'entPhysicalModelName.1',
|
|
);
|
|
%GLOBALS = (
|
|
%SNMP::Info::Layer2::GLOBALS,
|
|
%SNMP::Info::MAU::GLOBALS,
|
|
%MYGLOBALS
|
|
);
|
|
|
|
%MYFUNCS = (
|
|
'i_type2' => 'ifType',
|
|
'e_map' => 'entAliasMappingIdentifier',
|
|
'e_name' => 'entPhysicalName',
|
|
'e_class' => 'entPhysicalClass',
|
|
'e_parent' => 'entPhysicalContainedIn',
|
|
'e_descr' => 'entPhysicalDescr',
|
|
'e_type' => 'entPhysicalVendorType',
|
|
'e_model' => 'entPhysicalModelName',
|
|
'e_hwver' => 'entPhysicalHardwareRev',
|
|
'e_swver' => 'entPhysicalSoftwareRev',
|
|
'e_fwver' => 'entPhysicalFirmwareRev',
|
|
'e_serial' => 'entPhysicalSerialNum',
|
|
# RFC1271
|
|
'l_descr' => 'logDescription'
|
|
|
|
);
|
|
%FUNCS = (
|
|
%SNMP::Info::Layer2::FUNCS,
|
|
%SNMP::Info::MAU::FUNCS,
|
|
%MYFUNCS
|
|
);
|
|
|
|
%MYMUNGE = (
|
|
);
|
|
|
|
%MUNGE = (
|
|
# Inherit all the built in munging
|
|
%SNMP::Info::Layer2::MUNGE,
|
|
%SNMP::Info::MAU::MUNGE,
|
|
%MYMUNGE
|
|
);
|
|
|
|
|
|
# Method Overrides
|
|
|
|
# Some have the serial num in entity mib, some dont.
|
|
sub serial {
|
|
my $hp = shift;
|
|
|
|
# procurve 2xxx have this
|
|
my $serial = $hp->serial1();
|
|
|
|
# 4xxx dont
|
|
return undef if $serial =~ /nosuchobject/i;
|
|
|
|
return $serial;
|
|
}
|
|
|
|
sub interfaces {
|
|
my $hp = shift;
|
|
my $interfaces = $hp->i_index();
|
|
my $i_descr = $hp->i_description();
|
|
|
|
my %if;
|
|
foreach my $iid (keys %$interfaces){
|
|
my $descr = $i_descr->{$iid};
|
|
next unless defined $descr;
|
|
#$if{$iid} = $iid;
|
|
$if{$iid} = $descr if (defined $descr and length $descr);
|
|
}
|
|
|
|
return \%if
|
|
|
|
}
|
|
|
|
# e_port maps EntityTable entries to IfTable
|
|
sub e_port {
|
|
my $hp = shift;
|
|
my $e_map = $hp->e_map();
|
|
|
|
my %e_port;
|
|
|
|
foreach my $e_id (keys %$e_map) {
|
|
my $id = $e_id;
|
|
$id =~ s/\.0$//;
|
|
|
|
my $iid = $e_map->{$e_id};
|
|
$iid =~ s/.*\.//;
|
|
|
|
$e_port{$id} = $iid;
|
|
}
|
|
|
|
return \%e_port;
|
|
}
|
|
|
|
sub i_type {
|
|
my $hp = shift;
|
|
my $e_descr = $hp->e_descr();
|
|
my $e_port = $hp->e_port();
|
|
|
|
# Grab default values to pass through
|
|
my $i_type = $hp->i_type2();
|
|
|
|
# Now Stuff in the entity-table values
|
|
foreach my $port (keys %$e_descr){
|
|
my $iid = $e_port->{$port};
|
|
next unless defined $iid;
|
|
my $type = $e_descr->{$port};
|
|
$type =~ s/^HP ?//;
|
|
$i_type->{$iid} = $type;
|
|
}
|
|
|
|
return $i_type;
|
|
|
|
}
|
|
|
|
sub i_name {
|
|
my $hp = shift;
|
|
my $i_alias = $hp->i_alias();
|
|
my $e_name = $hp->e_name();
|
|
my $e_port = $hp->e_port();
|
|
|
|
my %i_name;
|
|
|
|
foreach my $port (keys %$e_name){
|
|
my $iid = $e_port->{$port};
|
|
next unless defined $iid;
|
|
my $alias = $i_alias->{$iid};
|
|
next unless defined $iid;
|
|
$i_name{$iid} = $e_name->{$port};
|
|
|
|
# Check for alias
|
|
$i_name{$iid} = $alias if (defined $alias and length($alias));
|
|
}
|
|
|
|
return \%i_name;
|
|
}
|
|
|
|
sub vendor {
|
|
return 'hp';
|
|
}
|
|
|
|
sub log {
|
|
my $hp=shift;
|
|
|
|
my $log = $hp->l_descr();
|
|
|
|
my $logstring = undef;
|
|
|
|
foreach my $val (values %$log){
|
|
next if $val =~ /^Link\s+(Up|Down)/;
|
|
$logstring .= "$val\n";
|
|
}
|
|
|
|
return $logstring;
|
|
}
|
|
|
|
sub slots {
|
|
my $hp=shift;
|
|
|
|
my $e_name = $hp->e_name();
|
|
|
|
return undef unless defined $e_name;
|
|
|
|
my $slots;
|
|
foreach my $slot (keys %$e_name) {
|
|
$slots++ if $e_name->{$slot} =~ /slot/i;
|
|
}
|
|
|
|
return $slots;
|
|
}
|
|
|
|
#sub fan {
|
|
# my $hp = shift;
|
|
#
|
|
# my %ents = reverse %{$hp->e_name()};
|
|
#
|
|
# my $fan = $ents{'Fan'};
|
|
#
|
|
#}
|
|
|
|
sub i_duplex {
|
|
my $hp = shift;
|
|
|
|
my $mau_index = $hp->mau_index();
|
|
my $mau_link = $hp->mau_link();
|
|
|
|
my %i_duplex;
|
|
foreach my $mau_port (keys %$mau_link){
|
|
my $iid = $mau_index->{$mau_port};
|
|
next unless defined $iid;
|
|
|
|
my $linkoid = $mau_link->{$mau_port};
|
|
my $link = &SNMP::translateObj($linkoid);
|
|
next unless defined $link;
|
|
|
|
my $duplex = undef;
|
|
|
|
if ($link =~ /fd$/i) {
|
|
$duplex = 'full';
|
|
} elsif ($link =~ /hd$/i){
|
|
$duplex = 'half';
|
|
}
|
|
|
|
$i_duplex{$iid} = $duplex if defined $duplex;
|
|
}
|
|
return \%i_duplex;
|
|
}
|
|
|
|
|
|
sub i_duplex_admin {
|
|
my $hp = shift;
|
|
|
|
my $interfaces = $hp->interfaces();
|
|
my $mau_index = $hp->mau_index();
|
|
my $mau_auto = $hp->mau_auto();
|
|
my $mau_autostat = $hp->mau_autostat();
|
|
my $mau_typeadmin = $hp->mau_type_admin();
|
|
my $mau_autosent = $hp->mau_autosent();
|
|
|
|
my %mau_reverse = reverse %$mau_index;
|
|
|
|
my %i_duplex_admin;
|
|
foreach my $iid (keys %$interfaces){
|
|
my $mau_index = $mau_reverse{$iid};
|
|
next unless defined $mau_index;
|
|
|
|
my $autostat = $mau_autostat->{$mau_index};
|
|
|
|
# HP25xx has this value
|
|
if (defined $autostat and $autostat =~ /enabled/i){
|
|
$i_duplex_admin{$iid} = 'auto';
|
|
next;
|
|
}
|
|
|
|
my $type = $mau_autosent->{$mau_index};
|
|
|
|
next unless defined $type;
|
|
|
|
if ($type == 0) {
|
|
$i_duplex_admin{$iid} = 'none';
|
|
next;
|
|
}
|
|
|
|
my $full = $hp->_isfullduplex($type);
|
|
my $half = $hp->_ishalfduplex($type);
|
|
|
|
if ($full and !$half){
|
|
$i_duplex_admin{$iid} = 'full';
|
|
} elsif ($half) {
|
|
$i_duplex_admin{$iid} = 'half';
|
|
}
|
|
}
|
|
|
|
return \%i_duplex_admin;
|
|
}
|
|
|
|
#sub i_up_admin {
|
|
# my $hp = shift;
|
|
#
|
|
# my $mau_index = $hp->mau_index();
|
|
# my $mau_status = $hp->mau_status();
|
|
#
|
|
# my %i_up_admin;
|
|
# foreach my $mau_port (keys %$mau_status){
|
|
# my $iid = $mau_index->{$mau_port};
|
|
# next unless defined $iid;
|
|
# my $status = $mau_status->{$mau_port};
|
|
#
|
|
# $i_up_admin{$iid} = ($status =~ /shutdown/i) ?
|
|
# 'down' : 'up';
|
|
# }
|
|
#
|
|
# return \%i_up_admin;
|
|
#
|
|
#}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
SNMP::Info::Layer2::HP - SNMP Interface to HP Procurve Switches
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Provides abstraction to the configuration information obtainable from a
|
|
HP device through SNMP. Information is stored in a number of
|
|
MIB's such as IF-MIB, ENTITY-MIB, RFC1271-MIB, HP-ICF-OID, MAU-MIB
|
|
|
|
=head1 AUTHOR
|
|
|
|
Max Baker (C<max@warped.org>)
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
my $hp = new SNMP::Info::Layer2::HP(DestHost => 'router' ,
|
|
Community => 'public' );
|
|
|
|
=head1 CREATING AN OBJECT
|
|
|
|
=over
|
|
|
|
=item new SNMP::Info::Layer2::HP()
|
|
|
|
Arguments passed to new() are passed on to SNMP::Session::new()
|
|
|
|
|
|
my $hp = new SNMP::Info::Layer2::HP(
|
|
DestHost => $host,
|
|
Community => 'public',
|
|
Version => 3,...
|
|
)
|
|
die "Couldn't connect.\n" unless defined $hp;
|
|
|
|
=item $hp->session()
|
|
|
|
Sets or returns the SNMP::Session object
|
|
|
|
# Get
|
|
my $sess = $hp->session();
|
|
|
|
# Set
|
|
my $newsession = new SNMP::Session(...);
|
|
$hp->session($newsession);
|
|
|
|
=item $hp->all(), $hp->load_all()
|
|
|
|
Runs each of the HP List methods and returns a hash reference.
|
|
|
|
$hp->all() will call $hp->load_all() once and then return cahced valued.
|
|
Use $hp->load_all() to reload from the device.
|
|
|
|
=back
|
|
|
|
=head1 HP Global Configuration Values
|
|
|
|
=over
|
|
|
|
=item $hp->name()
|
|
(B<sysName>)
|
|
|
|
=item $hp->ip()
|
|
(B<sysIpAddr>)
|
|
|
|
=item $hp->netmask()
|
|
(B<sysNetMask>)
|
|
|
|
=item $hp->broadcast()
|
|
(B<sysBroadcast>)
|
|
|
|
=item $hp->location()
|
|
(B<sysLocation>)
|
|
|
|
=item $hp->contact()
|
|
(B<sysContact>)
|
|
|
|
=item $hp->description()
|
|
(B<sysDescr>)
|
|
|
|
=item $hp->layers()
|
|
(B<sysServices>)
|
|
|
|
=item $hp->serial()
|
|
(B<chassisSerialNumberString>)
|
|
|
|
=item $hp->model()
|
|
(B<chassisModel>)
|
|
|
|
=item $hp->ps1_type()
|
|
(B<chassisPs1Type>)
|
|
|
|
=item $hp->ps2_type()
|
|
(B<chassisPs2Type>)
|
|
|
|
=item $hp->ps1_status()
|
|
(B<chassisPs1Status>)
|
|
|
|
=item $hp->ps2_status()
|
|
(B<chassisPs2Status>)
|
|
|
|
=item $hp->slots()
|
|
(B<chassisNumSlots>)
|
|
|
|
=item $hp->fan()
|
|
(B<chassisFanStatus>)
|
|
|
|
=back
|
|
|
|
=head1 CATALYST TABLE ENTRIES
|
|
|
|
=head2 Module table
|
|
|
|
=over
|
|
|
|
=item $hp->m_type(), $hp->load_m_type()
|
|
(B<moduleType>)
|
|
|
|
=item $hp->m_model(), $hp->load_m_model()
|
|
(B<moduleModel>)
|
|
|
|
=item $hp->m_serial(), $hp->load_m_serial()
|
|
(B<moduleSerialNumber>)
|
|
|
|
=item $hp->m_status(), $hp->load_m_status()
|
|
(B<moduleStatus>)
|
|
|
|
=item $hp->m_name(), $hp->load_m_name()
|
|
(B<moduleName>)
|
|
|
|
=item $hp->m_ports(), $hp->load_m_ports()
|
|
(B<moduleNumPorts>)
|
|
|
|
=item $hp->m_ports_status(), $hp->load_m_ports_status()
|
|
Returns a list of space separated status strings for the ports.
|
|
To see the status of port 4 :
|
|
@ports_status = split(' ', $hp->m_ports_status() );
|
|
$port4 = $ports_status[3];
|
|
|
|
(B<modulePortStatus>)
|
|
|
|
=item $hp->m_ports_hwver(), $hp->load_m_ports_hwver()
|
|
(B<moduleHwVersion>)
|
|
|
|
=item $hp->m_ports_fwver(), $hp->load_m_ports_fwver()
|
|
(B<moduleFwVersion>)
|
|
|
|
=item $hp->m_ports_swver(), $hp->load_m_ports_swver()
|
|
(B<moduleSwVersion>)
|
|
|
|
=item $hp->m_ports_ip(), $hp->load_m_ports_ip()
|
|
(B<moduleIPAddress>)
|
|
|
|
=item $hp->m_ports_sub1(), $hp->load_m_ports_sub1()
|
|
(B<moduleSubType>)
|
|
|
|
=item $hp->m_ports_sub2(), $hp->load_m_ports_sub2()
|
|
(B<moduleSubType2>)
|
|
|
|
|
|
=back
|
|
|
|
=head2 Port Entry Table
|
|
|
|
=over
|
|
|
|
=item $hp->p_name(), $hp->load_p_name()
|
|
(B<portName>)
|
|
|
|
=item $hp->p_type(), $hp->load_p_type()
|
|
(B<portType>)
|
|
|
|
=item $hp->p_status(), $hp->load_p_status()
|
|
(B<portOperStatus>)
|
|
|
|
=item $hp->p_status2(), $hp->load_p_status2()
|
|
(B<portAdditionalStatus>)
|
|
|
|
=item $hp->p_speed(), $hp->load_p_speed()
|
|
(B<portAdminSpeed>)
|
|
|
|
=item $hp->p_duplex(), $hp->load_p_duplex()
|
|
(B<portDuplex>)
|
|
|
|
=item $hp->p_port(), $hp->load_p_port()
|
|
(B<portIfIndex>)
|
|
|
|
=back
|
|
|
|
=head2 VLAN Entry Table
|
|
|
|
ftp://ftp.cisco.com/pub/mibs/supportlists/wsc5000/wsc5000-communityIndexing.html
|
|
|
|
=over
|
|
|
|
=item $hp->v_state(), $hp->load_v_state()
|
|
(B<vtpVlanState>)
|
|
|
|
=item $hp->v_type(), $hp->load_v_type()
|
|
(B<vtpVlanType>)
|
|
|
|
=item $hp->v_name(), $hp->load_v_name()
|
|
(B<vtpVlanName>)
|
|
|
|
=item $hp->v_mtu(), $hp->load_v_mtu()
|
|
(B<vtpVlanMtu>)
|
|
|
|
=back
|