1 files changed, 120 insertions, 0 deletions

diff --git a/contrib/check_arping.pl b/contrib/check_arping.pl
new file mode 100644
index 00000000..b78ec68f
--- /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$');
+        
+}