diff options
author | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 13:16:24 +0200 |
---|---|---|
committer | Holger Weiss <holger@zedat.fu-berlin.de> | 2013-09-02 13:16:24 +0200 |
commit | b15adb7762b6caaecaa83637abfcf5fdb4802092 (patch) | |
tree | 64eddbe2aa1a7f98a140be0f7973f05d7a781ae0 /contrib/check_arping.pl | |
parent | c4d5882b9e1d07c7b61091062b7d085fa5f00284 (diff) | |
download | monitoring-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.pl | 120 |
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 $'); - -} |