aboutsummaryrefslogtreecommitdiff
path: root/contrib/check_arping.pl
diff options
context:
space:
mode:
authorGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
committerGravatar Holger Weiss <holger@zedat.fu-berlin.de> 2013-09-02 13:16:24 +0200
commitb15adb7762b6caaecaa83637abfcf5fdb4802092 (patch)
tree64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/check_arping.pl
parentc4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff)
downloadmonitoring-plugins-b15adb7762b6caaecaa83637abfcf5fdb4802092.tar.gz
Remove "contrib" plugins
These days, sites such as "Nagios Exchange" are a much better place for publishing plugins not maintained by the Plugins Development Team.
Diffstat (limited to 'contrib/check_arping.pl')
-rw-r--r--contrib/check_arping.pl120
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 $');
-
-}