New /contrib plugin

[nagiosplug.git] / contrib / check_arping.pl

diff --git a/contrib/check_arping.pl b/contrib/check_arping.pl
new file mode 100644 (file)
index 0000000..b78ec68
--- /dev/null
+++ b/contrib/check_arping.pl
@@ -0,0 +1,120 @@
+#! /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$ ');
+       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$');
+       
+}