From b02afd9e09067cbd075f55c136948badaff12b46 Mon Sep 17 00:00:00 2001
From: Subhendu Ghosh <sghosh@users.sourceforge.net>
Date: Fri, 11 Apr 2003 22:36:05 +0000
Subject: [PATCH] added feature -u (list of unused ifIndex)

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@487 f882894a-f735-0410-b71e-b25c423dba1c
---
 plugins-scripts/check_ifstatus.pl | 73 +++++++++++++++++++------------
 1 file changed, 45 insertions(+), 28 deletions(-)

diff --git a/plugins-scripts/check_ifstatus.pl b/plugins-scripts/check_ifstatus.pl
index cb8b5d0..cc9cccf 100755
--- a/plugins-scripts/check_ifstatus.pl
+++ b/plugins-scripts/check_ifstatus.pl
@@ -5,6 +5,8 @@
 #
 # Copyright (C) 2000 Christoph Kron
 # Modified 5/2002 to conform to updated Nagios Plugin Guidelines (S. Ghosh)
+#  Added -x option (4/2003)
+#  Added -u option (4/2003)
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
@@ -70,14 +72,17 @@ my %ifStatus;
 my $ifup =0 ;
 my $ifdown =0;
 my $ifdormant = 0;
-my $ifexclude =0 ;
+my $ifexclude = 0 ;
+my $ifunused = 0;
 my $ifmessage = "";
 my $snmp_version = 1;
 my $ifXTable;
 my $opt_h ;
 my $opt_V ;
+my $opt_u;
 my $opt_x ;
 my %excluded ;
+my @unused_ports ;
 
 
 
@@ -101,7 +106,8 @@ $status = GetOptions(
 		"p=i" =>\$port, "port=i" => \$port,
 		"H=s" => \$hostname, "hostname=s" => \$hostname,
 		"I"	  => \$ifXTable, "ifmib" => \$ifXTable,
-		"x:s"		=>	\$opt_x,   "exclude:s" => \$opt_x);
+		"x:s"		=>	\$opt_x,   "exclude:s" => \$opt_x,
+		"u=s" => \$opt_u,  "unused_ports=s" => \$opt_u);
 		
 if ($status == 0)
 {
@@ -122,11 +128,10 @@ if ($opt_h) {
 
 
 if (defined $opt_x) {
-	my @x = split(",", $opt_x);
-	my $x;
+	my @x = split(/,/, $opt_x);
 	if ( @x) {
-		foreach $x (@x){
-			$excluded{$x} = 1;
+		foreach $key (@x){
+			$excluded{$key} = 1;
 		}
 	}else{
 		$excluded{23} = 1; # default PPP(23) if empty list - note (AIX seems to think PPP is 22 according to a post)
@@ -136,6 +141,13 @@ if (defined $opt_x) {
 	#	{ print "key = $x  val = $excluded{$x}\n";}
 }
 
+if ($opt_u) {
+	@unused_ports = split(/,/,$opt_u);
+	foreach $key (@unused_ports) { 
+		$ifStatus{$key}{'notInUse'}++ ;
+	}
+}
+
 if (! utils::is_hostname($hostname)){
 	usage();
 	exit $ERRORS{"UNKNOWN"};
@@ -210,53 +222,58 @@ $session->close;
 
 foreach $key (keys %ifStatus) {
 
-	# check only if interface is administratively up
+	# skip unused interfaces
+	if (!defined($ifStatus{$key}{'notInUse'})) {
+		# check only if interface is administratively up
     if ($ifStatus{$key}{$snmpIfAdminStatus} == 1 ) {
     
-		# check only if interface type is not listed in %excluded
-		
-		if (!defined $excluded{$ifStatus{$key}{$snmpIfType}} ) {
-			if ($ifStatus{$key}{$snmpIfOperStatus} == 1 ) { $ifup++ ;}
-        	if ($ifStatus{$key}{$snmpIfOperStatus} == 2 ) {
-            	$ifdown++ ;
-							if (defined $ifXTable) {
-								$ifmessage .= sprintf("%s: down -> %s<BR>",
+			# check only if interface type is not listed in %excluded
+			if (!defined $excluded{$ifStatus{$key}{$snmpIfType}} ) {
+				if ($ifStatus{$key}{$snmpIfOperStatus} == 1 ) { $ifup++ ;}
+     		if ($ifStatus{$key}{$snmpIfOperStatus} == 2 ) {
+          	  	$ifdown++ ;
+								if (defined $ifXTable) {
+									$ifmessage .= sprintf("%s: down -> %s<BR>",
                                 $ifStatus{$key}{$snmpIfName},
 								 								$ifStatus{$key}{$snmpIfAlias});
-							}else{
-								$ifmessage .= sprintf("%s: down <BR>",
+								}else{
+									$ifmessage .= sprintf("%s: down <BR>",
 																$ifStatus{$key}{$snmpIfDescr});
-							}
+								}
+				}
+       	if ($ifStatus{$key}{$snmpIfOperStatus} == 5 ) { $ifdormant++ ;}
+			}else{
+				$ifexclude++;
 			}
-         	if ($ifStatus{$key}{$snmpIfOperStatus} == 5 ) { $ifdormant++ ;}
-		}else{
-			$ifexclude++;
-		}
 		
+		}
+	}else{
+		$ifunused++;
 	}
-   
 }
 
    if ($ifdown > 0) {
       $state = 'CRITICAL';
-      $answer = sprintf("host '%s', interfaces up: %d, down: %d, dormant: %d, excluded: %d<BR>",
+      $answer = sprintf("host '%s', interfaces up: %d, down: %d, dormant: %d, excluded: %d, unused: %d<BR>",
                         $hostname,
 			$ifup,
 			$ifdown,
 			$ifdormant,
-			$ifexclude);
+			$ifexclude,
+			$ifunused);
       $answer = $answer . $ifmessage . "\n";
    }
    else {
       $state = 'OK';
-      $answer = sprintf("host '%s', interfaces up: %d, down: %d, dormant: %d, excluded: %d",
+      $answer = sprintf("host '%s', interfaces up: %d, down: %d, dormant: %d, excluded: %d, unused: %d",
                         $hostname,
 			$ifup,
 			$ifdown,
 			$ifdormant,
-			$ifexclude);
+			$ifexclude,
+			$ifunused);
    }
-my $perfdata = sprintf("up:%d,down:%d,dormant:%d,excluded:%d",$ifup,$ifdown,$ifdormant,$ifexclude);
+my $perfdata = sprintf("up:%d,down:%d,dormant:%d,excluded:%d,unused:%d",$ifup,$ifdown,$ifdormant,$ifexclude,$ifunused);
 print ("$state: $answer |$perfdata\n");
 exit $ERRORS{$state};
 
-- 
2.30.2