Whiterabbit (#417)

* 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>

lib/SNMP/Info.pm

@@ -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) )
@@ -2164,6 +2176,10 @@ sub device_type {
         $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'
             if (

lib/SNMP/Info/Layer3/Whiterabbit.pm

@@ -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