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

Whiterabbit (#417)

Browse Source 
* CH: add white rabbit

* CH: .

* CH: better version field

* CH: whiterabbit fix version and pod documentation

* fix mib links

and a few wihtespace cleanups

* map enterprises.96

map enterprises.96 to whiterabbit.

this is the id of cern, only layer3::whiterabbit uses it

* removed inherited modules

remove modules that get pulled in via snmp::info::layer3
use SNMP::Info::LLDP;
use SNMP::Info::Bridge;

remove module that doesn't seems to be used
use Socket;

Co-authored-by: Christoph Handel <c.handel@gsi.de>
Co-authored-by: nick n <39005454+inphobia@users.noreply.github.com>
This commit is contained in:
Christoph Handel
2021-08-23 17:13:28 +02:00
committed by GitHub
parent 9b8dc0916c
commit 651169f726
2 changed files with 228 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lib/SNMP/Info.pm
View File

@@ -1074,6 +1074,12 @@ Subclass for VMware ESXi hosts.
See documentation in L<SNMP::Info::Layer3::VMware> for details.
=item SNMP::Info::Layer3::Whiterabbit
Subclass for whiterabbit devices.
See documentation in L<SNMP::Info::Layer3::Whiterabbit> for details.
=back
=back
@@ -1687,6 +1693,7 @@ sub device_type {
42 => 'SNMP::Info::Layer3::Sun',
43 => 'SNMP::Info::Layer2::3Com',
45 => 'SNMP::Info::Layer2::Baystack',
96 => 'SNMP::Info::Layer3::Whiterabbit',
171 => 'SNMP::Info::Layer3::DLink',
244 => 'SNMP::Info::Layer3::Lantronix',
311 => 'SNMP::Info::Layer3::Microsoft',
@@ -1750,6 +1757,7 @@ sub device_type {
11 => 'SNMP::Info::Layer2::HP',
43 => 'SNMP::Info::Layer2::3Com',
45 => 'SNMP::Info::Layer2::Baystack',
96 => 'SNMP::Info::Layer3::Whiterabbit',
171 => 'SNMP::Info::Layer3::DLink',
207 => 'SNMP::Info::Layer2::Allied',
266 => 'SNMP::Info::Layer2::Nexans',
@@ -1954,6 +1962,10 @@ sub device_type {
if (
$desc =~ /\bTeltonika.*RUT9\d{2}\b/);
# Whiterabbit Timing
$objtype = 'SNMP::Info::Layer3::Whiterabbit'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.96\.100\.1000/i );
# Generic device classification based upon sysObjectID
if ( ( $objtype eq 'SNMP::Info::Layer3' )
and ( defined($id) )
@@ -2163,6 +2175,10 @@ sub device_type {
# it would flip/flop between those
$objtype = 'SNMP::Info::Layer3::Scalance'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.4329\.6\.1\.2/i );
# Whiterabbit Timing
$objtype = 'SNMP::Info::Layer3::Whiterabbit'
if ( $soid =~ /\.1\.3\.6\.1\.4\.1\.96\.100\.1000/i );
# Teltonika RUT9xx Series
$objtype = 'SNMP::Info::Layer3::Teltonika'

212
lib/SNMP/Info/Layer3/Whiterabbit.pm Normal file
View File

@@ -0,0 +1,212 @@
# SNMP::Info::Layer3::Whiterabbit - SNMP Interface to Whiterabbit
#
# Copyright (c) 2020 Christoph Handel GSI Helmholtzzentrum fuer
# Schwerionenforschung
#
# Copyright (c) 2008-2009 Max Baker changes from version 0.8 and beyond.
#
# Copyright (c) 2002,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 ,
# the GSI Helmholtzzentrum fuer Schwerionenforschung, 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::Whiterabbit;
use strict;
use warnings;
use Exporter;
use SNMP::Info::Layer3;
use SNMP::Info::MAU;
@SNMP::Info::Layer3::Whiterabbit::ISA = qw/
SNMP::Info::Layer3
SNMP::Info::MAU
Exporter
/;
@SNMP::Info::Layer3::Whiterabbit::EXPORT_OK = qw//;
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %PORTSTAT, %MODEL_MAP, %MUNGE);
$VERSION = '3.71';
%MIBS = (
%SNMP::Info::Layer3::MIBS,
%SNMP::Info::MAU::MIBS,
'WR-SWITCH-MIB' => 'wrsScalar',
);
%GLOBALS = (
%SNMP::Info::Layer3::GLOBALS,
%SNMP::Info::MAU::GLOBALS,
'serial1' => 'wrsVersionSwitchSerialNumber.0',
'vendor1' => 'wrsVersionManufacturer.0',
'os_ver' => 'wrsVersionSwVersion.0',
);
%FUNCS = (
%SNMP::Info::Layer3::FUNCS,
%SNMP::Info::MAU::FUNCS,
);
%MUNGE = (
# Inherit all the built in munging
%SNMP::Info::Layer3::MUNGE,
%SNMP::Info::MAU::MUNGE,
);
sub layers {
# not reporting anything in sysServices
# but it sure is a bridge and can do 2
# at some later point it might get 3, so put it in layer3 right from the start
return '00000111';
}
sub os {
return 'whiterabbit';
}
sub vendor {
my $whiterabbit = shift;
return $whiterabbit->vendor1();
}
sub mac {
# use dot1dBaseBridgeAddress
my $whiterabbit = shift;
return $whiterabbit->b_mac();
}
1;
__END__
=head1 NAME
SNMP::Info::Layer3::Whiterabbit - SNMP Interface to Whiterabbit Switches
=head1 AUTHOR
Christoph Handel
=head1 SYNOPSIS
# Let SNMP::Info determine the correct subclass for you.
my $whiterabbit = new SNMP::Info(
AutoSpecify => 1,
Debug => 1,
DestHost => 'myswitch',
Community => 'public',
Version => 2
)
or die "Can't connect to DestHost.\n";
my $class = $whiterabbit->class();
print "SNMP::Info determined this device to fall under subclass : $class\n";
=head1 DESCRIPTION
Provides abstraction to the configuration information obtainable from a
Whiterabbit Switch via SNMP.
=head2 Inherited Classes
=over
=item SNMP::Info::Layer3
=item SNMP::Info::MAU
=back
=head2 Required MIBs
=over
=item F<WR-SWITCH-MIB>
=item F<WRS-PRODUCTS-MIB>
=back
L<https://github.com/GSI-CS-CO/wrs_mibs.git>
=head1 GLOBALS
These are methods that return scalar value from SNMP
=over
=item $whiterabbit->layers()
Overwrite snmp value, we support 1-3
=item $whiterabbit->os()
staticly returns whiterabbit
=item $whiterabbit->vendor()
return manufacturer as read from device. e.g. seven solutions, creotech, etc.
=item $whiterabbit->model()
as returned by mib. no meaningful translation
=item $whiterabbit->mac()
use the dot1dBaseBridgeAddress
=item $whiterabbit->os_ver()
including git hash
=back
=head2 Globals imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"GLOBALS"> for details.
=head2 Globals imported from SNMP::Info::MAU
See documentation in L<SNMP::Info::MAU/"GLOBALS"> for details.
=head1 TABLE METHODS
These are methods that return tables of information in the form of a reference
to a hash.
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.
=head2 Table Methods imported from SNMP::Info::MAU
See documentation in L<SNMP::Info::MAU/"TABLE METHODS"> for details.
=cut