Add support for Vyatta/VyOS (#241)
This commit is contained in:
		| @@ -1551,6 +1551,7 @@ sub device_type { | ||||
|         35098 => 'SNMP::Info::Layer3::Pica8', | ||||
|         41112 => 'SNMP::Info::Layer2::Ubiquiti', | ||||
|         4413 => 'SNMP::Info::Layer2::Ubiquiti', | ||||
|         30803 => 'SNMP::Info::Layer3::VyOS', | ||||
|     ); | ||||
|  | ||||
|     my %l2sysoidmap = ( | ||||
|   | ||||
							
								
								
									
										101
									
								
								lib/SNMP/Info/Layer3/VyOS.pm
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										101
									
								
								lib/SNMP/Info/Layer3/VyOS.pm
									
									
									
									
									
										Normal file
									
								
							| @@ -0,0 +1,101 @@ | ||||
| package SNMP::Info::Layer3::VyOS; | ||||
|  | ||||
| # SNMP::Info::Layer3::VyOS | ||||
| # | ||||
| # Copyright (c) 2013 Eric Miller | ||||
| # 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. | ||||
|  | ||||
|  | ||||
| use strict; | ||||
| use Exporter; | ||||
| use SNMP::Info::Layer3; | ||||
|  | ||||
| @SNMP::Info::Layer3::VyOS::ISA       = qw/SNMP::Info::Layer3 Exporter/; | ||||
| @SNMP::Info::Layer3::VyOS::EXPORT_OK = qw//; | ||||
|  | ||||
| use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %MUNGE/; | ||||
|  | ||||
| $VERSION = '3.38'; | ||||
|  | ||||
| %MIBS = ( | ||||
|     %SNMP::Info::Layer2::MIBS, %SNMP::Info::Layer3::MIBS, | ||||
|      | ||||
| ); | ||||
|  | ||||
| %GLOBALS = ( | ||||
|     %SNMP::Info::Layer2::GLOBALS, %SNMP::Info::Layer3::GLOBALS, | ||||
|      | ||||
| ); | ||||
|  | ||||
| %FUNCS = ( %SNMP::Info::Layer2::FUNCS, %SNMP::Info::Layer3::FUNCS, ); | ||||
|  | ||||
| %MUNGE = ( %SNMP::Info::Layer2::MUNGE, %SNMP::Info::Layer3::MUNGE, ); | ||||
|  | ||||
| sub layers { | ||||
|     return '01001100'; | ||||
| } | ||||
|  | ||||
| sub os { | ||||
|     my $vyos = shift; | ||||
|  | ||||
|     my $ver = $vyos->description() || ''; | ||||
|  | ||||
|     if((lc $ver) =~ /vyos/){ | ||||
|         return 'VyOS'; | ||||
|     }else{ | ||||
|         return 'Vyatta'; | ||||
|     } | ||||
| } | ||||
|  | ||||
| sub model { | ||||
|     my $vyos = shift; | ||||
|     return $vyos->os(); | ||||
| } | ||||
|  | ||||
| sub vendor { | ||||
|     my $vyos = shift; | ||||
|     return $vyos->os(); | ||||
| } | ||||
|  | ||||
| sub os_ver { | ||||
|     my $vyos = shift; | ||||
|  | ||||
|     my $ver = $vyos->description() || ''; | ||||
|  | ||||
|     my @myver = reverse split(/ /, $ver); | ||||
|  | ||||
|     return $myver[0]; | ||||
| } | ||||
|  | ||||
| sub serial { | ||||
|     my $vyos = shift; | ||||
|  | ||||
|     return $vyos->serialNumber(); | ||||
| } | ||||
|  | ||||
| 1; | ||||
| __END__ | ||||
		Reference in New Issue
	
	Block a user