1 files changed, 0 insertions, 120 deletions
diff --git a/contrib/check_arping.pl b/contrib/check_arping.pl
deleted file mode 100644
index c41c4a8a..00000000
--- a/contrib/check_arping.pl
+++ /dev/null
@@ -1,120 +0,0 @@
-#! /usr/bin/perl -w
-#
-# check_arping.pl - Nagios plugin to check host status via ARP ping
-#
-# usage:
-#     check_arping -H hostname -I interface -T timeout
-#
-#
-# Copyright (C) 2003  Kenny Root
-#
-# This program 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 program 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 program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-#
-#
-# Report bugs to: kenny@the-b.org, nagiosplug-help@lists.sf.net
-
-use POSIX;
-use strict;
-use lib "/usr/lib/nagios/plugins" ;
-use utils qw($TIMEOUT %ERRORS &print_revision &support);
-
-use Net::Arping;
-use Getopt::Long;
-
-my $PROGNAME = "check_arping";
-
-my($status, $state, $answer);
-my($opt_V, $opt_h, $opt_t, $opt_I, $opt_H);
-
-
-#Option checking
-$status = GetOptions(
-	"V|version"	=> \$opt_V,
-	"help"	=> \$opt_h, 
-	"I|interface=s"	=> \$opt_I,
-	"H|host=s"	=> \$opt_H,
-	"t|timeout=i"	=> \$opt_t);
-		
-if ($status == 0)
-{
-	print_help() ;
-	exit $ERRORS{'OK'};
-}
-
-
-if ($opt_V) {
-	print_revision($PROGNAME,'$Revision: 1112 $ ');
-	exit $ERRORS{'OK'};
-}
-
-if ($opt_h) {
-	print_help();
-	exit $ERRORS{'OK'};
-}
-
-if ($opt_t) {
-	if ($opt_t ne int($opt_t)) {
-		print "Timeout not in seconds!\n";
-		print_help();
-		exit $ERRORS{'OK'};
-	}
-	$opt_t = int($opt_t);
-} else {
-	$opt_t = 3;
-}
-
-if (! utils::is_hostname($opt_H)){
-	usage();
-	exit $ERRORS{"UNKNOWN"};
-}
-
-my $ping = Net::Arping->new();
-
-my $reply = $ping->arping(Host => $opt_H, Interface => $opt_I, Timeout => $opt_t);
-
-if ($reply eq "0") {
-	$state = "CRITICAL";
-	print "$state: no reply from $opt_H on interface $opt_I in $opt_t seconds.\n";
-	exit $ERRORS{$state};
-} else {
-	$state = "OK";
-	$answer = "replied with MAC address $reply";
-}
-
-print "ARPING $state - $answer\n";
-exit $ERRORS{$state};
-
-
-sub usage {
-	print "\nMissing arguments!\n";
-	print "\n";
-	print "check_arping -I <interface> -H <host IP> [-t <timeout>]\n";
-	print "\n\n";
-	support();
-	exit $ERRORS{"UNKNOWN"};
-}
-
-sub print_help {
-	print "check_arping pings hosts that normally wouldn't allow\n";
-  	print "ICMP packets but are still on the local network.\n";
-	print "\nUsage:\n";
-	print "   -H (--host)       IP to query - (required)\n";
-	print "   -I (--interface)  Interface to use.\n";
-	print "   -t (--timeout)    Timeout in seconds.\n";
-	print "   -V (--version)    Plugin version\n";
-	print "   -h (--help)       usage help \n\n";
-	print_revision($PROGNAME, '$Revision: 1112 $');
-	
-}