From adf1af57ebeeabfff1b358e70c7bbfaaf0e37997 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?P=C3=A1ll=20Gu=C3=B0j=C3=B3n=20Sigur=C3=B0sson?= Date: Thu, 10 Jun 2010 19:04:58 +0000 Subject: [PATCH] Brocade support added in check_snmp_interfaces --- check_snmp/trunk/check_snmp_interfaces | 1463 +++++++++++------------- 1 file changed, 680 insertions(+), 783 deletions(-) diff --git a/check_snmp/trunk/check_snmp_interfaces b/check_snmp/trunk/check_snmp_interfaces index d0b525e..5727496 100755 --- a/check_snmp/trunk/check_snmp_interfaces +++ b/check_snmp/trunk/check_snmp_interfaces @@ -1,783 +1,680 @@ -#!/usr/bin/perl -# -# -# AUTHORS: -# Copyright (C) 2003-2010 Opsera Limited. All rights reserved -# -# This file is part of Opsview -# -# Opsview is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# Opsview is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with Opsview; if not, write to the Free Software -# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA -# - -use lib qw ( /usr/local/nagios/perl/lib ); -use Net::SNMP; -use Getopt::Std; - -$script = "check_snmp_cisco_ifstatus"; -$script_version = "2.1.0"; - -# SNMP options -$version = "2c"; -$timeout = 2; - -$number_of_interfaces = 0; -$target_interface_index = 0; - -@list_interfaces=(); # List of inappropriate interfaces; - -$oid_base = ".1.3.6.1.2.1.2.2.1.1."; -$oid_sysdescr = ".1.3.6.1.2.1.1.1.0"; -$oid_ifnumber = ".1.3.6.1.2.1.2.1.0"; # number of interfaces on device -$oid_ifdescr = ".1.3.6.1.2.1.2.2.1.2."; # need to append integer for specific interface -$oid_iftype = ".1.3.6.1.2.1.2.2.1.3."; # need to append integer for specific interface -$oid_ifmtu = ".1.3.6.1.2.1.2.2.1.4."; # need to append integer for specific interface -$oid_ifspeed = ".1.3.6.1.2.1.2.2.1.5."; # need to append integer for specific interface -$oid_ifphysaddress = ".1.3.6.1.2.1.2.2.1.6."; # need to append integer for specific interface -$oid_ifadminstatus = ".1.3.6.1.2.1.2.2.1.7."; # need to append integer for specific interface -$oid_ifoperstatus = ".1.3.6.1.2.1.2.2.1.8."; # need to append integer for specific interface -$oid_iflastchange = ".1.3.6.1.2.1.2.2.1.9."; # need to append integer for specific interface -$oid_ifinerrors = ".1.3.6.1.2.1.2.2.1.14."; # need to append integer for specific interface -$oid_ifouterrors = ".1.3.6.1.2.1.2.2.1.20."; # need to append integer for specific interface -$oid_ifoutqlen = ".1.3.6.1.2.1.2.2.1.21."; # need to append integer for specific interface -my $realbitssec; # Perf data is always in bps, save this data here - -# Cisco Specific - -$oid_locIfIntBitsSec = "1.3.6.1.4.1.9.2.2.1.1.6."; # need to append integer for specific interface -$oid_locIfOutBitsSec = "1.3.6.1.4.1.9.2.2.1.1.8."; # need to append integer for specific interface - -$ifdescr = "n/a"; -$iftype = "n/a"; -$ifmtu = "n/a"; -$ifspeed = "n/a"; -$ifphysaddress = "n/a"; -$ifadminstatus = "n/a"; -$ifoperstatus = "n/a"; -$iflastchange = "n/a"; -$ifinerrors = "n/a"; -$ifouterrors = "n/a"; -$ifoutqlen = "n/a"; -$ifoutbitssec = "n/a"; - -$warning = 100000000; # Warning threshold -$critical = 100000000; # Critical threshold - -$hostname = "192.168.10.21"; - -#$hostname = "212.113.28.134"; -$returnstring = ""; - -$community = "public"; # Default community string -$configfilepath = "/usr/local/nagios/etc"; - -# Do we have enough information? -if ( @ARGV < 1 ) { - print "Too few arguments\n"; - usage(); -} - -getopts("hH:C:i:w:c:"); -if ($opt_h) { - usage(); - exit(0); -} -if ($opt_H) { - $hostname = $opt_H; - - # print "Hostname $opt_H\n"; -} -else { - print "No hostname specified\n"; - usage(); - exit(0); -} -if ($opt_C) { - $community = $opt_C; -} -if ($opt_i) { - $target_interface = $opt_i; -} -if ($opt_w) { - $warning = $opt_w; -} -if ($opt_c) { - $critical = $opt_c; -} -else { - - # print "Using community $community\n"; -} - -# Create the SNMP session - -$oid_sysDescr = ".1.3.6.1.2.1.1.1.0"; # Used to check whether SNMP is actually responding - -$version = "1"; -( $s, $e ) = Net::SNMP->session( - -community => $community, - -hostname => $hostname, - -version => $version, - -timeout => $timeout, -); - -if ( !defined( $s->get_request($oid_sysDescr) ) ) { - - # If we can't connect using SNMPv1 lets try as SNMPv2 - $s->close(); - sleep 0.5; - $version = "2c"; - ( $s, $e ) = Net::SNMP->session( - -community => $community, - -hostname => $hostname, - -version => $version, - -timeout => $timeout, - ); - if ( !defined( $s->get_request($oid_sysDescr) ) ) { - print "Agent not responding, tried SNMP v1 and v2\n"; - exit(1); - } -} - -if ( find_match() == 0 ) { - probe_interface(); -} -else { - $status = 2; - print "Interface $target_interface not found on device $hostname\n"; - exit $status; -} - -# Close the session -$s->close(); - -if ( $status == 0 ) { - print "Status is OK - $returnstring\n"; - exit $status; -} -elsif ( $status == 1 ) { - print "Status is a Warning Level - $returnstring\n"; - exit $status; -} -elsif ( $status == 2 ) { - print "Status is CRITICAL - $returnstring\n"; - exit $status; -} -else { - print "Plugin error! SNMP status unknown\n"; - exit $status; -} - -exit 2; - -################################################# -# Finds match for supplied interface name -################################################# - -sub find_match { - -my $resultat = $s->get_table($oid_base); - -if (!defined($resultat)) { - printf("ERROR: NHR table : %s.\n", $s->error); - $s->close; - exit 3; -} - -my @keys=undef; -my $oidindex=0; -foreach my $key ( keys %$resultat) { - #verb("OID : $key, Desc : $$resultat{$key}" ); - #print $$resultat{$key} + "\n"; - $key =~ s/$oid_base//; - push(@keys, $key); - #print "$key \n"; -} - -#print $resultat ; -#exit 0; - - - if ( !defined( $s->get_request($oid_ifnumber) ) ) { - if ( !defined( $s->get_request($oid_sysdescr) ) ) { - print "Status is a Warning Level - SNMP agent not responding\n"; - exit 1; - } - else { - print "Status is a Warning Level - SNMP OID does not exist\n"; - exit 1; - } - } - else { - foreach ( $s->var_bind_names() ) { - $number_of_interfaces = $s->var_bind_list()->{$_}; - if ( $number_of_interfaces == 0 ) { - return 1; - } - } - } - - #$index = 1; - #while ( $index <= $number_of_interfaces ) { - - # Weed out empty entries - @keys = grep(!/^$/, @keys); - - foreach $index ( @keys ) { - my $target_interface_index = $index; - $oid_temp = $oid_ifdescr . $index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $temp_interface_descr = $s->var_bind_list()->{$_}; - } - next if ($temp_interface_descr !~ m/$target_interface/); - if ( lc($temp_interface_descr) eq lc($target_interface) ) { - $target_interface_index = $index; - } - } - - ############################ - $oid_temp = $oid_ifadminstatus . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifadminstatus = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifoperstatus . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifoperstatus = $s->var_bind_list()->{$_}; - } - } - ############################ - if ( $ifoperstatus != $ifadminstatus ) { - push(@list_interfaces, $temp_interface_descr); - #print ": $temp_interface_descr: $ifoperstatus / $ifadminstatus \n"; - } - - - - # $index++; - } - my $list_interfaces = @list_interfaces; - my $keys = @keys; - if ($list_interfaces > 0) { - print "$list_interfaces out of $keys in inappropriate state: @list_interfaces \n"; - exit 1 - } - else { - print "All $keys interfaces in appropriate state\n"; - exit 0 - } - print "@list_interfaces \n"; - if ( $target_interface_index == 0 ) { - return 1; - } - else { - return 0; - } -} - -#################################################################### -# Gathers data about target interface # -#################################################################### - -sub probe_interface { - - $oid_temp = $oid_ifdescr . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifdescr = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_iftype . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $iftype = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifmtu . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifmtu = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifspeed . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifspeed = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifadminstatus . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifadminstatus = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifoperstatus . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifoperstatus = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_iflastchange . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $iflastchange = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifinerrors . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifinerrors = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifouterrors . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifouterrors = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_ifoutqlen . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - } - else { - foreach ( $s->var_bind_names() ) { - $ifoutqlen = $s->var_bind_list()->{$_}; - } - } - ############################ - - $oid_temp = $oid_locIfOutBitsSec . $target_interface_index; - if ( !defined( $s->get_request($oid_temp) ) ) { - $ifoutbitssec = -1; - } - else { - foreach ( $s->var_bind_names() ) { - $ifoutbitssec = $s->var_bind_list()->{$_}; - } - } - ############################ - - $errorstring = ""; - - # Sets warning / critical levels if interface down - - if ( $ifadminstatus eq "1" ) { - } - else { - $status = 1; - $errorstring = "INTERFACE ADMINISTRATIVELY DOWN:"; - } - - if ( $ifoperstatus eq "1" ) { - } - else { - $status = 2; - $errorstring = "INTERFACE DOWN:"; - } - - # Sets warning / critical levels if ifoutbitssec exceeds threshold - - if ( $status < 1 ) { - - # Don't bother is status is down - if ( $ifoutbitssec > $critical ) { - $errorstring = "HIGH THROUGHPUT:"; - $status = 2; - } - elsif ( $ifoutbitssec > $warning ) { - $errorstring = "HIGH THROUGHPUT:"; - $status = 1; - } - } - - # Mangles interface speed - - my $mbps = $ifspeed / 1000000; - if ( $mbps < 1 ) { - $ifspeed = $ifspeed / 1000; - $ifspeed = "$ifspeed Kbps"; - } - else { - $ifspeed = "$mbps Mbps"; - } - - $realbitssec = $ifoutbitssec; - - # Mangles IfOutBitsSec stat to bits / kbits - if ( $ifoutbitssec > 0 ) { - my $mbps = $ifoutbitssec / 1000000; - if ( $mbps < 1 ) { - $ifoutbitssec = $ifoutbitssec / 1000; - $ifoutbitssec = "$ifoutbitssec Kbps"; - } - else { - $ifoutbitssec = "$mbps Mbps"; - } - } - elsif ( $ifoutbitssec < 0 ) { - $ifoutbitssec = "N/A"; - } - else { - $ifoutbitssec = "0 bps"; - } - - # Returns string relating to interface media - my $iftype_string = return_interfacetype($iftype); - - if ( $status == 0 ) { - $temp = sprintf "$ifdescr ($iftype_string) - Current: $ifoutbitssec, Limit: $ifspeed, MTU: $ifmtu, Last change: $iflastchange, STATS:(in errors: $ifinerrors, out errors: $ifouterrors, queue length: $ifoutqlen)"; - append($temp); - } - else { - $temp = sprintf "$errorstring $ifdescr ($iftype_string) - Current: $ifoutbitssec, Limit: $ifspeed, MTU: $ifmtu, Last change: $iflastchange, STATS:(in errors: $ifinerrors, out errors: $ifouterrors, queue length: $ifoutqlen)"; - append($temp); - } - $perfinfo = sprintf "|bits/sec=$realbitssec"; - append($perfinfo); -} - -#################################################################### -# help and usage information # -#################################################################### - -sub usage { - print << "USAGE"; --------------------------------------------------------------------- -$script v$script_version - -Monitors status of specific Ethernet interface. - -Usage: $script -H -c [...] - -Options: -H Hostname or IP address - -C Community (default is public) - -i Target interface name - Eg: Serial0/0, FastEthernet0/12 - -w Warning threshold - Out bits / sec - -c Critical threshold - Out bits / sec - --------------------------------------------------------------------- -Copyright (C) 2003-2010 Opsera Limited. All rights reserved - -This program is free software; you can redistribute it or modify -it under the terms of the GNU General Public License --------------------------------------------------------------------- - -USAGE - exit 1; -} - -#################################################################### -# Appends string to existing $returnstring # -#################################################################### - -sub append { - my $appendstring = @_[0]; - $returnstring = "$returnstring$appendstring"; -} - -#################################################################### -# Returns the interface type for given IANA metric # -#################################################################### - -sub return_interfacetype { - my $iftype_int = @_[0]; - my @iana = (); - my $returnstring = $iftype_int; - - $iana[0] = ""; - $iana[1] = "other"; - $iana[2] = "regular1822"; - $iana[3] = "hdh1822"; - $iana[4] = "ddnX25"; - $iana[5] = "rfc877x25"; - $iana[6] = "ethernet"; - $iana[7] = ""; - $iana[8] = "TokenBus"; - $iana[9] = "TokenRing"; - $iana[10] = "iso88026Man"; - $iana[11] = "starLan"; - $iana[12] = "proteon10Mbit"; - $iana[13] = "proteon80Mbit"; - $iana[14] = "hyperchannel"; - $iana[15] = "fddi"; - $iana[16] = "lapb"; - $iana[17] = "sdlc"; - $iana[18] = "DSL"; - $iana[19] = "E1"; - $iana[20] = "basicISDN"; - $iana[21] = "primaryISDN"; - $iana[22] = "propritory PointToPointSerial"; - $iana[23] = "PPP"; - $iana[24] = "softwareLoopback"; - $iana[25] = "CLNP over IP "; - $iana[26] = "ethernet3Mbit"; - $iana[27] = "XNS over IP"; - $iana[28] = "SLIP"; - $iana[29] = "ultra"; - $iana[30] = "DS3"; - $iana[31] = "SMDS"; - $iana[32] = "frameRelay DTE"; - $iana[33] = "RS232"; - $iana[34] = "Parallel port"; - $iana[35] = "arcnet"; - $iana[36] = "arcnetPlus"; - $iana[37] = "ATM"; - $iana[38] = "miox25"; - $iana[39] = "SONET / SDH "; - $iana[40] = "X25PLE"; - $iana[41] = "iso88022llc"; - $iana[42] = "localTalk"; - $iana[43] = "SMDSDxi"; - $iana[44] = "frameRelayService"; - $iana[45] = "v35"; - $iana[46] = "hssi"; - $iana[47] = "hippi"; - $iana[48] = "Generic MODEM"; - $iana[49] = ""; - $iana[50] = "sonetPath"; - $iana[51] = "sonetVT"; - $iana[52] = "SMDSIcip"; - $iana[53] = "propVirtual"; - $iana[54] = "propMultiplexor"; - $iana[55] = "ieee80212 100BaseVG"; - $iana[56] = "fibreChannel"; - $iana[57] = "HIPPI interface"; - $iana[58] = ""; - $iana[59] = "ATM Emulated LAN for 802.3"; - $iana[60] = "ATM Emulated LAN for 802.5"; - $iana[61] = "ATM Emulated circuit "; - $iana[62] = ""; - $iana[63] = "ISDN / X.25 "; - $iana[64] = "CCITT V.11/X.21 "; - $iana[65] = "CCITT V.36 "; - $iana[66] = "CCITT G703 at 64Kbps"; - $iana[67] = "G703 at 2Mb"; - $iana[68] = "SNA QLLC "; - $iana[69] = ""; - $iana[70] = "channel "; - $iana[71] = "ieee80211 radio spread spectrum "; - $iana[72] = "IBM System 360/370 OEMI Channel"; - $iana[73] = "IBM Enterprise Systems Connection"; - $iana[74] = "Data Link Switching"; - $iana[75] = "ISDN S/T interface"; - $iana[76] = "ISDN U interface"; - $iana[77] = "Link Access Protocol D"; - $iana[78] = "IP Switching Objects"; - $iana[79] = "Remote Source Route Bridging"; - $iana[80] = "ATM Logical Port"; - $iana[81] = "Digital Signal Level 0"; - $iana[82] = "ds0 Bundle (group of ds0s on the same ds1)"; - $iana[83] = "Bisynchronous Protocol"; - $iana[84] = "Asynchronous Protocol"; - $iana[85] = "Combat Net Radio"; - $iana[86] = "ISO 802.5r DTR"; - $iana[87] = "Ext Pos Loc Report Sys"; - $iana[88] = "Appletalk Remote Access Protocol"; - $iana[89] = "Proprietary Connectionless Protocol"; - $iana[90] = "CCITT-ITU X.29 PAD Protocol"; - $iana[91] = "CCITT-ITU X.3 PAD Facility"; - $iana[92] = "frameRelay MPI"; - $iana[93] = "CCITT-ITU X213"; - $iana[94] = "ADSL"; - $iana[95] = "Rate-Adapt. DSL"; - $iana[96] = "SDSL"; - $iana[97] = "Very High-Speed DSL"; - $iana[98] = "ISO 802.5 CRFP"; - $iana[99] = "Myricom Myrinet"; - $iana[100] = "voiceEM voice recEive and transMit"; - $iana[101] = "voiceFXO voice Foreign Exchange Office"; - $iana[102] = "voiceFXS voice Foreign Exchange Station"; - $iana[103] = "voiceEncap voice encapsulation"; - $iana[104] = "VoIP"; - $iana[105] = "ATM DXI"; - $iana[106] = "ATM FUNI"; - $iana[107] = "ATM IMA"; - $iana[108] = "PPP Multilink Bundle"; - $iana[109] = "IBM ipOverCdlc"; - $iana[110] = "IBM Common Link Access to Workstn"; - $iana[111] = "IBM stackToStack"; - $iana[112] = "IBM VIPA"; - $iana[113] = "IBM multi-protocol channel support"; - $iana[114] = "IBM IP over ATM"; - $iana[115] = "ISO 802.5j Fiber Token Ring"; - $iana[116] = "IBM twinaxial data link control"; - $iana[117] = ""; - $iana[118] = "HDLC"; - $iana[119] = "LAP F"; - $iana[120] = "V.37"; - $iana[121] = "X25 Multi-Link Protocol"; - $iana[122] = "X25 Hunt Group"; - $iana[123] = "Transp HDLC"; - $iana[124] = "Interleave channel"; - $iana[125] = "Fast channel"; - $iana[126] = "IP (for APPN HPR in IP networks)"; - $iana[127] = "CATV Mac Layer"; - $iana[128] = "CATV Downstream interface"; - $iana[129] = "CATV Upstream interface"; - $iana[130] = "Avalon Parallel Processor"; - $iana[131] = "Encapsulation interface"; - $iana[132] = "Coffee pot (no, really)"; - $iana[133] = "Circuit Emulation Service"; - $iana[134] = "ATM Sub Interface"; - $iana[135] = "Layer 2 Virtual LAN using 802.1Q"; - $iana[136] = "Layer 3 Virtual LAN using IP"; - $iana[137] = "Layer 3 Virtual LAN using IPX"; - $iana[138] = "IP over Power Lines"; - $iana[139] = "Multimedia Mail over IP"; - $iana[140] = "Dynamic Synchronous Transfer Mode"; - $iana[141] = "Data Communications Network"; - $iana[142] = "IP Forwarding Interface"; - $iana[143] = "Multi-rate Symmetric DSL"; - $iana[144] = "IEEE1394 High Performance Serial Bus"; - $iana[145] = "HIPPI-6400 "; - $iana[146] = "DVB-RCC MAC Layer"; - $iana[147] = "DVB-RCC Downstream Channel"; - $iana[148] = "DVB-RCC Upstream Channel"; - $iana[149] = "ATM Virtual Interface"; - $iana[150] = "MPLS Tunnel Virtual Interface"; - $iana[151] = "Spatial Reuse Protocol"; - $iana[152] = "Voice Over ATM"; - $iana[153] = "Voice Over Frame Relay "; - $iana[154] = "Digital Subscriber Loop over ISDN"; - $iana[155] = "Avici Composite Link Interface"; - $iana[156] = "SS7 Signaling Link "; - $iana[157] = "Prop. P2P wireless interface"; - $iana[158] = "Frame Forward Interface"; - $iana[159] = "Multiprotocol over ATM AAL5"; - $iana[160] = "USB Interface"; - $iana[161] = "IEEE 802.3ad Link Aggregate"; - $iana[162] = "BGP Policy Accounting"; - $iana[163] = "FRF .16 Multilink Frame Relay "; - $iana[164] = "H323 Gatekeeper"; - $iana[165] = "H323 Voice and Video Proxy"; - $iana[166] = "MPLS"; - $iana[167] = "Multi-frequency signaling link"; - $iana[168] = "High Bit-Rate DSL - 2nd generation"; - $iana[169] = "Multirate HDSL2"; - $iana[170] = "Facility Data Link 4Kbps on a DS1"; - $iana[171] = "Packet over SONET/SDH Interface"; - $iana[172] = "DVB-ASI Input"; - $iana[173] = "DVB-ASI Output "; - $iana[174] = "Power Line Communtications"; - $iana[175] = "Non Facility Associated Signaling"; - $iana[176] = "TR008"; - $iana[177] = "Remote Digital Terminal"; - $iana[178] = "Integrated Digital Terminal"; - $iana[179] = "ISUP"; - $iana[180] = "Cisco proprietary MAC layer"; - $iana[181] = "Cisco proprietary Downstream"; - $iana[182] = "Cisco proprietary Upstream"; - $iana[183] = "HIPERLAN Type 2 Radio Interface"; - $iana[184] = "PropBroadbandWirelessAccesspt2multipt"; - $iana[185] = "SONET Overhead Channel"; - $iana[186] = "Digital Wrapper"; - $iana[187] = "ATM adaptation layer 2"; - $iana[188] = "MAC layer over radio links"; - $iana[189] = "ATM over radio links "; - $iana[190] = "Inter Machine Trunks"; - $iana[191] = "Multiple Virtual Lines DSL"; - $iana[192] = "Long Reach DSL"; - $iana[193] = "Frame Relay DLCI End Point"; - $iana[194] = "ATM VCI End Point"; - $iana[195] = "Optical Channel"; - $iana[196] = "Optical Transport"; - $iana[197] = "Proprietary ATM "; - $iana[198] = "Voice Over Cable Interface"; - $iana[199] = "Infiniband"; - $iana[200] = "TE Link"; - $iana[201] = "Q.2931"; - $iana[202] = "Virtual Trunk Group"; - $iana[203] = "SIP Trunk Group"; - $iana[204] = "SIP Signaling "; - $iana[205] = "CATV Upstream Channel"; - $iana[206] = "Acorn Econet"; - $iana[207] = "FSAN 155Mb Symetrical PON interface"; - $iana[208] = "FSAN622Mb Symetrical PON interface"; - $iana[209] = "Transparent bridge interface"; - $iana[210] = "Interface common to multiple lines"; - $iana[211] = "voice E&M Feature Group D"; - $iana[212] = "voice FGD Exchange Access North American"; - $iana[213] = "voice Direct Inward Dialing"; - $iana[214] = "MPEG transport interface"; - $iana[215] = "6to4 interface"; - $iana[216] = "GTP (GPRS Tunneling Protocol)"; - $iana[217] = "Paradyne EtherLoop 1"; - $iana[218] = "Paradyne EtherLoop 2"; - $iana[219] = "Optical Channel Group"; - $iana[220] = "HomePNA ITU-T G.989"; - $iana[221] = "Generic Framing Procedure (GFP)"; - $iana[222] = "Layer 2 Virtual LAN using Cisco ISL"; - $iana[223] = "Acteleis proprietary MetaLOOP High Speed Link "; - $iana[224] = "FCIP Link "; - $iana[225] = "Resilient Packet Ring Interface Type"; - $iana[226] = "RF Qam Interface"; - $iana[227] = "Link Management Protocol"; - - if ( $iftype_int > 227 ) { - $returnstring = "$iftype_int"; - } - else { - $returnstring = $iana[$iftype_int]; - } - - return ($returnstring); - -} +#!/usr/bin/perl +# +# +# AUTHORS: +# Based on check_snmp_cisco_ifs by Opsera Limited. +# Author: Pall Sigurdsson +# +# This software is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This software is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this software; if not, write to the Free Software +# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA +# + +# ChangeLog +# 2010-06-10: +# Modified to include -B option for Brocade SAN switches +# 2010-02-05: +# Initial Release +use lib qw ( /usr/local/nagios/perl/lib ); +use Net::SNMP; +use Getopt::Std; + +$script = "check_snmp_interfaces"; +$script_version = "1.1"; + +# SNMP options +$version = "2c"; +$timeout = 2; + +$number_of_interfaces = 0; +$target_interface_index = 0; + +@list_interfaces=(); # List of inappropriate interfaces; + +$oid_base = ".1.3.6.1.2.1.2.2.1.1."; +$oid_sysdescr = ".1.3.6.1.2.1.1.1.0"; +$oid_ifnumber = ".1.3.6.1.2.1.2.1.0"; # number of interfaces on device +$oid_ifdescr = ".1.3.6.1.2.1.2.2.1.2."; # need to append integer for specific interface +$oid_iftype = ".1.3.6.1.2.1.2.2.1.3."; # need to append integer for specific interface +$oid_ifmtu = ".1.3.6.1.2.1.2.2.1.4."; # need to append integer for specific interface +$oid_ifspeed = ".1.3.6.1.2.1.2.2.1.5."; # need to append integer for specific interface +$oid_ifphysaddress = ".1.3.6.1.2.1.2.2.1.6."; # need to append integer for specific interface +$oid_ifadminstatus = ".1.3.6.1.2.1.2.2.1.7."; # need to append integer for specific interface +$oid_ifoperstatus = ".1.3.6.1.2.1.2.2.1.8."; # need to append integer for specific interface +$oid_iflastchange = ".1.3.6.1.2.1.2.2.1.9."; # need to append integer for specific interface +$oid_ifinerrors = ".1.3.6.1.2.1.2.2.1.14."; # need to append integer for specific interface +$oid_ifouterrors = ".1.3.6.1.2.1.2.2.1.20."; # need to append integer for specific interface +$oid_ifoutqlen = ".1.3.6.1.2.1.2.2.1.21."; # need to append integer for specific interface +my $realbitssec; # Perf data is always in bps, save this data here +$longServiceOutput = (); + +# Cisco Specific + +$oid_locIfIntBitsSec = "1.3.6.1.4.1.9.2.2.1.1.6."; # need to append integer for specific interface +$oid_locIfOutBitsSec = "1.3.6.1.4.1.9.2.2.1.1.8."; # need to append integer for specific interface + +$ifdescr = "n/a"; +$iftype = "n/a"; +$ifmtu = "n/a"; +$ifspeed = "n/a"; +$ifphysaddress = "n/a"; +$ifadminstatus = "n/a"; +$ifoperstatus = "n/a"; +$iflastchange = "n/a"; +$ifinerrors = "n/a"; +$ifouterrors = "n/a"; +$ifoutqlen = "n/a"; +$ifoutbitssec = "n/a"; + + +# swFCPortPhyState OBJECT-TYPE +# SYNTAX INTEGER { +# noCard (1), +# noTransceiver (2), +# laserFault (3), +# noLight (4), +# noSync (5), +# inSync (6), +# portFault (7), +# diagFault (8), +# lockRef (9) +# } +%phyState = (); +$phyState{1} = "noCard"; +$phyState{2} = "noTransceiver"; +$phyState{3} = "laserFault"; +$phyState{4} = "noLight"; +$phyState{5} = "noSync"; +$phyState{6} = "inSync"; +$phyState{7} = "portFault"; +$phyState{8} = "diagFault"; +$phyState{9} = "lockRef"; + +# swFCPortLinkState OBJECT-TYPE +# SYNTAX INTEGER { +# enabled (1), +# disabled (2), +# loopback (3) +# } +%linkState = (); +$linkState{1} = "enabled"; +$linkState{2} = "disabled"; +$linkState{3} = "loopback"; + +%admState = (); +$admState{1} = "online"; +$admState{2} = "offline"; +$admState{3} = "testing"; +$admState{4} = "faulty"; + +%opState = (); +$opState{0} = "unknown"; +$opState{1} = "online"; +$opState{2} = "offline"; +$opState{3} = "testing"; +$opState{4} = "faulty"; + + + +#$warning = 100000000; # Warning threshold +#$critical = 100000000; # Critical threshold + +$hostname = "192.168.10.21"; + +#$hostname = "212.113.28.134"; +$returnstring = ""; + +$community = "public"; # Default community string + +# Do we have enough information? +if ( @ARGV < 1 ) { + print "Too few arguments\n"; + usage(); +} + +getopts("hH:C:BdlE:"); +if ($opt_h) { + usage(); + exit(0); +} +if ($opt_H) { + $hostname = $opt_H; + + #print "Hostname $opt_H\n"; +} + +else { + print "No hostname specified\n"; + usage(); + exit(0); +} + +# -B is for brocade defice +if ($opt_B) { + $oid_PhyState = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.3."; + $oid_OpStatus = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.4."; + $oid_AdmStatus = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.5."; + $oid_LinkState = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.6."; + $oid_PortName = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.36."; + $oid_PortSpecifier = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.37."; + + + $oid_base = ".1.3.6.1.4.1.1588.2.1.1.1.6.2.1.1."; + $oid_ifadminstatus = $oid_LinkState; # need to append integer for specific interface + $oid_ifoperstatus = $oid_OpStatus ; # need to append integer for specific interface + $oid_ifdescr = $oid_PortSpecifier; +} + +if ($opt_C) { + $community = $opt_C; +} +$exclude_interface = "bull"; +if ($opt_E) { + $exclude_interface = $opt_E; +} +if ($opt_w) { + $warning = $opt_w; +} +if ($opt_c) { + $critical = $opt_c; +} +else { + + # print "Using community $community\n"; +} + +# Create the SNMP session + +$oid_sysDescr = ".1.3.6.1.2.1.1.1.0"; # Used to check whether SNMP is actually responding + +$version = "1"; +( $s, $e ) = Net::SNMP->session( + -community => $community, + -hostname => $hostname, + -version => $version, + -timeout => $timeout, +); + +if ( !defined( $s->get_request($oid_sysDescr) ) ) { + + # If we can't connect using SNMPv1 lets try as SNMPv2 + $s->close(); + sleep 0.5; + $version = "2c"; + ( $s, $e ) = Net::SNMP->session( + -community => $community, + -hostname => $hostname, + -version => $version, + -timeout => $timeout, + ); + if ( !defined( $s->get_request($oid_sysDescr) ) ) { + print "Agent not responding, tried SNMP v1 and v2\n"; + exit(1); + } +} + +$status = check_interfaces(); + + + +# Close the session +$s->close(); + +if ( $status == 0 ) { + print "OK - $returnstring\n"; + exit $status; +} +elsif ( $status == 1 ) { + print "Warning - $returnstring\n"; + exit $status; +} +elsif ( $status == 2 ) { + print "CRITICAL - $returnstring\n"; + exit $status; +} +else { + print "Plugin error! SNMP status unknown $returnstring\n"; + exit $status; +} + +exit 3; + +################################################# +# Finds match for supplied interface name +################################################# + +sub check_interfaces { + +my $resultat = $s->get_table($oid_base); +#print $oid_base; + +if (!defined($resultat)) { + printf("ERROR: NHR table : %s.\n", $s->error); + $s->close; + exit 3; +} + +my @keys=undef; +my $oidindex=0; +foreach my $key ( keys %$resultat) { + #verb("OID : $key, Desc : $$resultat{$key}" ); + #print $$resultat{$key} + "\n"; + $key =~ s/$oid_base//; + push(@keys, $key); + #print "$key \n"; +} + +#print $resultat ; +#exit 0; + + + if ( !defined( $s->get_request($oid_ifnumber) ) ) { + if ( !defined( $s->get_request($oid_sysdescr) ) ) { + print "Status is a Warning Level - SNMP agent not responding\n"; + exit 1; + } + + else { + print "Status is a Warning Level - SNMP OID does not exist\n"; + exit 1; + } + } + else { + foreach ( $s->var_bind_names() ) { + $number_of_interfaces = $s->var_bind_list()->{$_}; + if ( $number_of_interfaces == 0 ) { + return 1; + } + } + } + + #$index = 1; + #while ( $index <= $number_of_interfaces ) { + + # Weed out empty entries + @keys = grep(!/^$/, @keys); + #@keys = sort(@keys); + + foreach $index ( @keys ) { + my $target_interface_index = $index; + $oid_temp = $oid_ifdescr . $index; + if ( !defined( $s->get_request($oid_temp) ) ) { + } + else { + foreach ( $s->var_bind_names() ) { + $temp_interface_descr = $s->var_bind_list()->{$_}; + $temp_interface_descr = sprintf("%02d", $temp_interface_descr) if $opt_B; + } + next if ($temp_interface_descr =~ m/$exclude_interface/); + if ( lc($temp_interface_descr) eq lc($target_interface) ) { + $target_interface_index = $index; + } + } + + ############################ + $oid_temp = $oid_ifadminstatus . $target_interface_index; + if ( !defined( $s->get_request($oid_temp) ) ) { + } + else { + foreach ( $s->var_bind_names() ) { + $ifadminstatus = $s->var_bind_list()->{$_}; + } + } + ############################ + + $oid_temp = $oid_ifoperstatus . $target_interface_index; + if ( !defined( $s->get_request($oid_temp) ) ) { + } + else { + foreach ( $s->var_bind_names() ) { + $ifoperstatus = $s->var_bind_list()->{$_}; + } + } + $temp = "port $temp_interface_descr is $opState{$ifoperstatus} ($ifoperstatus) / $linkState{$ifadminstatus} ($ifadminstatus) \n"; + push(@longServiceOutput, $temp); + if ($opt_d) { + print ": $temp_interface_descr: $opState{$ifoperstatus} ($ifoperstatus) / $linkState{$ifadminstatus} ($ifadminstatus) \n"; + } + ############################ + if ( $ifoperstatus != $ifadminstatus ) { + if ($opt_B && $ifadminstatus == 2) { + next; + } + push(@list_interfaces, $temp_interface_descr); + #print ": $temp_interface_descr: $ifoperstatus / $ifadminstatus \n"; + } + + + + # $index++; + } + + # Edit The return message and exit to main. + $returnmessage = ""; + $returncode = 3; + sort(@list_interfaces); + my $list_interfaces = @list_interfaces; + my $keys = @keys; + if ($list_interfaces > 0) { + append("$list_interfaces out of $keys in inappropriate state: @list_interfaces\n"); + $returncode=1; + } + else { + append("All $keys interfaces in appropriate state\n"); + $returncode=0; + } + + + # If -l was requested, sort the interface list before returning. + if ($opt_l) { + $longOutput = ""; + @longServiceOutput = sort(@longServiceOutput); + foreach (@longServiceOutput) { + append($_) ; + } + } + + + + return $returncode; + +} + +#################################################################### +# help and usage information # +#################################################################### + +sub usage { + print << "USAGE"; +-------------------------------------------------------------------- +$script v$script_version + +Monitors status of all interfaces via SNMP + +Usage: $script -H -c [...] + +Options: -H Hostname or IP address + -C Community (default is public) + -B To use MIB designed for Brocade San switches + -d Debug + -l Detailed Output (Long service output) + +-------------------------------------------------------------------- +Copyright (C) 2003-2010 Pall Sigurdsson + +This program is free software; you can redistribute it or modify +it under the terms of the GNU General Public License +-------------------------------------------------------------------- + +USAGE + exit 1; +} + +#################################################################### +# Appends string to existing $returnstring # +#################################################################### + +sub append { + my $appendstring = @_[0]; + $returnstring = "$returnstring$appendstring"; +} + +#################################################################### +# Returns the interface type for given IANA metric # +#################################################################### + +sub return_interfacetype { + my $iftype_int = @_[0]; + my @iana = (); + my $returnstring = $iftype_int; + + $iana[0] = ""; + $iana[1] = "other"; + $iana[2] = "regular1822"; + $iana[3] = "hdh1822"; + $iana[4] = "ddnX25"; + $iana[5] = "rfc877x25"; + $iana[6] = "ethernet"; + $iana[7] = ""; + $iana[8] = "TokenBus"; + $iana[9] = "TokenRing"; + $iana[10] = "iso88026Man"; + $iana[11] = "starLan"; + $iana[12] = "proteon10Mbit"; + $iana[13] = "proteon80Mbit"; + $iana[14] = "hyperchannel"; + $iana[15] = "fddi"; + $iana[16] = "lapb"; + $iana[17] = "sdlc"; + $iana[18] = "DSL"; + $iana[19] = "E1"; + $iana[20] = "basicISDN"; + $iana[21] = "primaryISDN"; + $iana[22] = "propritory PointToPointSerial"; + $iana[23] = "PPP"; + $iana[24] = "softwareLoopback"; + $iana[25] = "CLNP over IP "; + $iana[26] = "ethernet3Mbit"; + $iana[27] = "XNS over IP"; + $iana[28] = "SLIP"; + $iana[29] = "ultra"; + $iana[30] = "DS3"; + $iana[31] = "SMDS"; + $iana[32] = "frameRelay DTE"; + $iana[33] = "RS232"; + $iana[34] = "Parallel port"; + $iana[35] = "arcnet"; + $iana[36] = "arcnetPlus"; + $iana[37] = "ATM"; + $iana[38] = "miox25"; + $iana[39] = "SONET / SDH "; + $iana[40] = "X25PLE"; + $iana[41] = "iso88022llc"; + $iana[42] = "localTalk"; + $iana[43] = "SMDSDxi"; + $iana[44] = "frameRelayService"; + $iana[45] = "v35"; + $iana[46] = "hssi"; + $iana[47] = "hippi"; + $iana[48] = "Generic MODEM"; + $iana[49] = ""; + $iana[50] = "sonetPath"; + $iana[51] = "sonetVT"; + $iana[52] = "SMDSIcip"; + $iana[53] = "propVirtual"; + $iana[54] = "propMultiplexor"; + $iana[55] = "ieee80212 100BaseVG"; + $iana[56] = "fibreChannel"; + $iana[57] = "HIPPI interface"; + $iana[58] = ""; + $iana[59] = "ATM Emulated LAN for 802.3"; + $iana[60] = "ATM Emulated LAN for 802.5"; + $iana[61] = "ATM Emulated circuit "; + $iana[62] = ""; + $iana[63] = "ISDN / X.25 "; + $iana[64] = "CCITT V.11/X.21 "; + $iana[65] = "CCITT V.36 "; + $iana[66] = "CCITT G703 at 64Kbps"; + $iana[67] = "G703 at 2Mb"; + $iana[68] = "SNA QLLC "; + $iana[69] = ""; + $iana[70] = "channel "; + $iana[71] = "ieee80211 radio spread spectrum "; + $iana[72] = "IBM System 360/370 OEMI Channel"; + $iana[73] = "IBM Enterprise Systems Connection"; + $iana[74] = "Data Link Switching"; + $iana[75] = "ISDN S/T interface"; + $iana[76] = "ISDN U interface"; + $iana[77] = "Link Access Protocol D"; + $iana[78] = "IP Switching Objects"; + $iana[79] = "Remote Source Route Bridging"; + $iana[80] = "ATM Logical Port"; + $iana[81] = "Digital Signal Level 0"; + $iana[82] = "ds0 Bundle (group of ds0s on the same ds1)"; + $iana[83] = "Bisynchronous Protocol"; + $iana[84] = "Asynchronous Protocol"; + $iana[85] = "Combat Net Radio"; + $iana[86] = "ISO 802.5r DTR"; + $iana[87] = "Ext Pos Loc Report Sys"; + $iana[88] = "Appletalk Remote Access Protocol"; + $iana[89] = "Proprietary Connectionless Protocol"; + $iana[90] = "CCITT-ITU X.29 PAD Protocol"; + $iana[91] = "CCITT-ITU X.3 PAD Facility"; + $iana[92] = "frameRelay MPI"; + $iana[93] = "CCITT-ITU X213"; + $iana[94] = "ADSL"; + $iana[95] = "Rate-Adapt. DSL"; + $iana[96] = "SDSL"; + $iana[97] = "Very High-Speed DSL"; + $iana[98] = "ISO 802.5 CRFP"; + $iana[99] = "Myricom Myrinet"; + $iana[100] = "voiceEM voice recEive and transMit"; + $iana[101] = "voiceFXO voice Foreign Exchange Office"; + $iana[102] = "voiceFXS voice Foreign Exchange Station"; + $iana[103] = "voiceEncap voice encapsulation"; + $iana[104] = "VoIP"; + $iana[105] = "ATM DXI"; + $iana[106] = "ATM FUNI"; + $iana[107] = "ATM IMA"; + $iana[108] = "PPP Multilink Bundle"; + $iana[109] = "IBM ipOverCdlc"; + $iana[110] = "IBM Common Link Access to Workstn"; + $iana[111] = "IBM stackToStack"; + $iana[112] = "IBM VIPA"; + $iana[113] = "IBM multi-protocol channel support"; + $iana[114] = "IBM IP over ATM"; + $iana[115] = "ISO 802.5j Fiber Token Ring"; + $iana[116] = "IBM twinaxial data link control"; + $iana[117] = ""; + $iana[118] = "HDLC"; + $iana[119] = "LAP F"; + $iana[120] = "V.37"; + $iana[121] = "X25 Multi-Link Protocol"; + $iana[122] = "X25 Hunt Group"; + $iana[123] = "Transp HDLC"; + $iana[124] = "Interleave channel"; + $iana[125] = "Fast channel"; + $iana[126] = "IP (for APPN HPR in IP networks)"; + $iana[127] = "CATV Mac Layer"; + $iana[128] = "CATV Downstream interface"; + $iana[129] = "CATV Upstream interface"; + $iana[130] = "Avalon Parallel Processor"; + $iana[131] = "Encapsulation interface"; + $iana[132] = "Coffee pot (no, really)"; + $iana[133] = "Circuit Emulation Service"; + $iana[134] = "ATM Sub Interface"; + $iana[135] = "Layer 2 Virtual LAN using 802.1Q"; + $iana[136] = "Layer 3 Virtual LAN using IP"; + $iana[137] = "Layer 3 Virtual LAN using IPX"; + $iana[138] = "IP over Power Lines"; + $iana[139] = "Multimedia Mail over IP"; + $iana[140] = "Dynamic Synchronous Transfer Mode"; + $iana[141] = "Data Communications Network"; + $iana[142] = "IP Forwarding Interface"; + $iana[143] = "Multi-rate Symmetric DSL"; + $iana[144] = "IEEE1394 High Performance Serial Bus"; + $iana[145] = "HIPPI-6400 "; + $iana[146] = "DVB-RCC MAC Layer"; + $iana[147] = "DVB-RCC Downstream Channel"; + $iana[148] = "DVB-RCC Upstream Channel"; + $iana[149] = "ATM Virtual Interface"; + $iana[150] = "MPLS Tunnel Virtual Interface"; + $iana[151] = "Spatial Reuse Protocol"; + $iana[152] = "Voice Over ATM"; + $iana[153] = "Voice Over Frame Relay "; + $iana[154] = "Digital Subscriber Loop over ISDN"; + $iana[155] = "Avici Composite Link Interface"; + $iana[156] = "SS7 Signaling Link "; + $iana[157] = "Prop. P2P wireless interface"; + $iana[158] = "Frame Forward Interface"; + $iana[159] = "Multiprotocol over ATM AAL5"; + $iana[160] = "USB Interface"; + $iana[161] = "IEEE 802.3ad Link Aggregate"; + $iana[162] = "BGP Policy Accounting"; + $iana[163] = "FRF .16 Multilink Frame Relay "; + $iana[164] = "H323 Gatekeeper"; + $iana[165] = "H323 Voice and Video Proxy"; + $iana[166] = "MPLS"; + $iana[167] = "Multi-frequency signaling link"; + $iana[168] = "High Bit-Rate DSL - 2nd generation"; + $iana[169] = "Multirate HDSL2"; + $iana[170] = "Facility Data Link 4Kbps on a DS1"; + $iana[171] = "Packet over SONET/SDH Interface"; + $iana[172] = "DVB-ASI Input"; + $iana[173] = "DVB-ASI Output "; + $iana[174] = "Power Line Communtications"; + $iana[175] = "Non Facility Associated Signaling"; + $iana[176] = "TR008"; + $iana[177] = "Remote Digital Terminal"; + $iana[178] = "Integrated Digital Terminal"; + $iana[179] = "ISUP"; + $iana[180] = "Cisco proprietary MAC layer"; + $iana[181] = "Cisco proprietary Downstream"; + $iana[182] = "Cisco proprietary Upstream"; + $iana[183] = "HIPERLAN Type 2 Radio Interface"; + $iana[184] = "PropBroadbandWirelessAccesspt2multipt"; + $iana[185] = "SONET Overhead Channel"; + $iana[186] = "Digital Wrapper"; + $iana[187] = "ATM adaptation layer 2"; + $iana[188] = "MAC layer over radio links"; + $iana[189] = "ATM over radio links "; + $iana[190] = "Inter Machine Trunks"; + $iana[191] = "Multiple Virtual Lines DSL"; + $iana[192] = "Long Reach DSL"; + $iana[193] = "Frame Relay DLCI End Point"; + $iana[194] = "ATM VCI End Point"; + $iana[195] = "Optical Channel"; + $iana[196] = "Optical Transport"; + $iana[197] = "Proprietary ATM "; + $iana[198] = "Voice Over Cable Interface"; + $iana[199] = "Infiniband"; + $iana[200] = "TE Link"; + $iana[201] = "Q.2931"; + $iana[202] = "Virtual Trunk Group"; + $iana[203] = "SIP Trunk Group"; + $iana[204] = "SIP Signaling "; + $iana[205] = "CATV Upstream Channel"; + $iana[206] = "Acorn Econet"; + $iana[207] = "FSAN 155Mb Symetrical PON interface"; + $iana[208] = "FSAN622Mb Symetrical PON interface"; + $iana[209] = "Transparent bridge interface"; + $iana[210] = "Interface common to multiple lines"; + $iana[211] = "voice E&M Feature Group D"; + $iana[212] = "voice FGD Exchange Access North American"; + $iana[213] = "voice Direct Inward Dialing"; + $iana[214] = "MPEG transport interface"; + $iana[215] = "6to4 interface"; + $iana[216] = "GTP (GPRS Tunneling Protocol)"; + $iana[217] = "Paradyne EtherLoop 1"; + $iana[218] = "Paradyne EtherLoop 2"; + $iana[219] = "Optical Channel Group"; + $iana[220] = "HomePNA ITU-T G.989"; + $iana[221] = "Generic Framing Procedure (GFP)"; + $iana[222] = "Layer 2 Virtual LAN using Cisco ISL"; + $iana[223] = "Acteleis proprietary MetaLOOP High Speed Link "; + $iana[224] = "FCIP Link "; + $iana[225] = "Resilient Packet Ring Interface Type"; + $iana[226] = "RF Qam Interface"; + $iana[227] = "Link Management Protocol"; + + if ( $iftype_int > 227 ) { + $returnstring = "$iftype_int"; + } + else { + $returnstring = $iana[$iftype_int]; + } + + return ($returnstring); + +} +