#! /usr/bin/perl -wT
#
# check_atalk_ping plugin for nagios
#
# usage:
#    check_atalk_ping atalkaddress
#
# Checks if an atalkhost responds to an atalk echo
# using "aecho"
#
# initial version: 23 October 2002 by Stefan Beck, IT Software Solutions
# current status: $Revision: 1771 $
#
# Copyright Notice: GPL
#
BEGIN {
     if ( $0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/ ) {
         $runtimedir = $1;
         $PROGNAME   = $2;
     }
     delete $ENV{'LANG'};
}

use strict;
use lib "/usr/local/nagios/libexec";

use utils qw($TIMEOUT %ERRORS &print_revision &support);
use vars qw($PROGNAME);

$PROGNAME = "check_atalk";

my (
     $verbose,      $host,          $warning_avg, $warning_loss,
     $critical_avg, $critical_loss, $count,       $cmd,
     $avg,          $loss,          $line
);
my ( $opt_c, $opt_w, $opt_H, $opt_p );
$opt_c = $opt_w = $opt_p = $opt_H = '';

sub print_help ();
sub print_usage ();
sub help ();
sub version ();

# Just in case of problems, let's not hang NetSaint
$SIG{'ALRM'} = sub {
         print "Plugin Timeout\n";
         exit 2;
};
alarm($TIMEOUT);

delete @ENV{ 'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' };

use Getopt::Long;
Getopt::Long::Configure( 'bundling', 'no_ignore_case' );
GetOptions(
     "V|version"    => \&version,
     "h|help"       => \&help,
     "p|packets=i"  => \$opt_p,
     "c|critical=s" => \$opt_c,
     "w|warning=s"  => \$opt_w,
     "H|hostname=s" => \$opt_H
);


# appletalk  hostname ot address
$opt_H = shift unless ($opt_H);
unless ($opt_H) { print_usage (); exit $ERRORS{'UNKNOWN'}; }
if ( $opt_H && $opt_H =~ m/^([-a-zA-Z\.\:0-9]+)$/ ) {
     $host = $1;
}
else {
     print "$opt_H is not a valid host name\n";
     exit $ERRORS{'UNKNOWN'};
}

# number of packets
$opt_p = 5 unless $opt_p;
if ( $opt_p && $opt_p =~ m/^([1-9]+[0-9]*)$/ ) {
     $count = $1;
}
else {
     print "$opt_p is not a valid packet number\n";
     exit $ERRORS{'UNKNOWN'};
}

if ( $opt_w && $opt_w =~ m/^([1-9]+[0-9]*),([1-9][0-9]*)%$/ ) {
     $warning_avg  = $1;
     $warning_loss = $2;
}
else {
     print "$opt_w is not a valid threshold\n";
     exit $ERRORS{'UNKNOWN'};
}

if ( $opt_c && $opt_c =~ m/^([1-9]+[0-9]*),([1-9][0-9]*)%$/ ) {
     $critical_avg  = $1;
     $critical_loss = $2;
}
else {