From 2a8d67446fe41224c9551327a90a43eef2d35fe9 Mon Sep 17 00:00:00 2001 From: Subhendu Ghosh Date: Mon, 27 May 2002 01:56:22 +0000 Subject: logic reorg, ePN fix and support for utils.pm git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@35 f882894a-f735-0410-b71e-b25c423dba1c diff --git a/plugins-scripts/check_ntp.pl b/plugins-scripts/check_ntp.pl index 9a58d78..ddaa394 100755 --- a/plugins-scripts/check_ntp.pl +++ b/plugins-scripts/check_ntp.pl @@ -1,4 +1,4 @@ -#! /usr/bin/perl -wT +#! /usr/bin/perl -w # (c)1999 Ian Cass, Knowledge Matters Ltd. # Read the GNU copyright stuff for all the legalese @@ -47,7 +47,10 @@ # source. This happens while starting up and if contact # with master has been lost. # -# Modifed to run under Embedded Perl +# Modifed to run under Embedded Perl (sghosh@users.sf.net) +# - combined logic some blocks together.. +# +# Todo - non-hardcoded dispersion values... # @@ -73,8 +76,8 @@ GetOptions ("V" => \$opt_V, "version" => \$opt_V, "h" => \$opt_h, "help" => \$opt_h, "v" => \$verbose, "verbose" => \$verbose, - "w=s" => \$opt_w, "warning=s" => \$opt_w, - "c=s" => \$opt_c, "critical=s" => \$opt_c, + "w=s" => \$opt_w, "warning=s" => \$opt_w, # offset|adjust warning if above this number + "c=s" => \$opt_c, "critical=s" => \$opt_c, # offset|adjust critical if above this number "H=s" => \$opt_H, "hostname=s" => \$opt_H); if ($opt_V) { @@ -90,6 +93,7 @@ if ($opt_h) { $opt_H = shift unless ($opt_H); my $host = $1 if ($opt_H && $opt_H =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z][-a-zA-Z0-9]+(\.[a-zA-Z][-a-zA-Z0-9]+)*)$/); unless ($host) { + print "No target host specified\n"; print_usage(); exit $ERRORS{'UNKNOWN'}; } @@ -100,6 +104,12 @@ my $warning = $1 if ($opt_w =~ /([0-9]+)/); ($opt_c) || ($opt_c = shift) || ($opt_c = 120); my $critical = $1 if ($opt_c =~ /([0-9]+)/); +if ($opt_c < $opt_w) { + print "Critical offset should be larger than warning offset\n"; + print_usage(); + exit $ERRORS{"UNKNOWN"}; +} + my $answer = undef; my $offset = undef; my $msg; # first line of output to print if format is invalid @@ -115,16 +125,16 @@ $SIG{'ALRM'} = sub { print ("ERROR: No response from ntp server (alarm)\n"); exit $ERRORS{"UNKNOWN"}; }; -alarm($TIMEOUT); +#alarm($TIMEOUT); ### -### +###$dispersion_error = $ERRORS{' ### First, check ntpdate ### ### -if (!open (NTPDATE, "/usr/local/sbin/ntpdate -q $host 2>&1 |")) { +if (!open (NTPDATE, "$utils::PATH_TO_NTPDATE -q $host 2>&1 |")) { print "Could not open ntpdate\n"; exit $ERRORS{"UNKNOWN"}; } @@ -134,50 +144,60 @@ while () { $msg = $_ unless ($msg); if (/(offset|adjust)\s+([-.\d]+)/i) { $offset = $2; - last; + + # An offset of 0.000000 with an error is probably bogus. Actually, + # it's probably always bogus, but let's be paranoid here. + if ($offset == 0) { undef $offset;} + + $ntpdate_error = defined ($offset) ? $ERRORS{"OK"} : $ERRORS{"CRITICAL"}; + print "ntperr = $ntpdate_error \n" if $verbose; + } -} -# soak up remaining output; check for error -while () { if (/no server suitable for synchronization found/) { $ntpdate_error = $ERRORS{"CRITICAL"}; + $msg = "No suitable peer server found - "; } -} -close(NTPDATE); +} -# only declare an error if we also get a non-zero return code from ntpdate -$ntpdate_error = ($? >> 8) || $ntpdate_error; +close (NTPDATE); +# declare an error if we also get a non-zero return code from ntpdate +# unless already set to critical +if ( $? ) { + print "stderr = $? : $! \n" if $verbose; + $ntpdate_error = $ntpdate_error == $ERRORS{"CRITICAL"} ? $ERRORS{"CRITICAL"} : $ERRORS{"UNKNOWN"} ; + print "ntperr = $ntpdate_error : $!\n" if $verbose; +} ### ### -### Then scan xntpdc if it exists -### +### Then scan xntpdc/ntpdc if it exists +### and look in the 8th column for dispersion (ntpd v4) or jitter (ntpd v3) ### -if (#open(NTPDC,"/usr/sbin/ntpdc -c $host 2>&1 |") || - open(NTPDC,"/usr/sbin/xntpdc -c $host 2>&1 |") ) { +if ( open(NTPDC,"$utils::PATH_TO_NTPDC -s $host 2>&1 |") ) { while () { - print if ($verbose); + print $_ if ($verbose); if (/([^\s]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)/) { if ($8>15) { + print "Dispersion = $8 \n" if ($verbose); $dispersion_error = $ERRORS{'CRITICAL'}; } elsif ($8>5 && $dispersion_error<$ERRORS{'CRITICAL'}) { + print "Dispersion = $8 \n" if ($verbose); $dispersion_error = $ERRORS{'WARNING'}; + } else { + $dispersion_error = $ERRORS{'OK'}; } } } close NTPDC; } -# An offset of 0.000000 with an error is probably bogus. Actually, -# it's probably always bogus, but let's be paranoid here. -if ($ntpdate_error && $offset && ($offset == 0)) { undef $offset;} -if ($ntpdate_error > $ERRORS{'OK'}) { +if ($ntpdate_error != $ERRORS{'OK'}) { $state = $ntpdate_error; - $answer = "Server for ntp probably down\n"; + $answer = $msg . "Server for ntp probably down\n"; if (defined($offset) && abs($offset) > $critical) { $state = $ERRORS{'CRITICAL'}; $answer = "Server Error and time difference $offset seconds greater than +/- $critical sec\n"; @@ -185,7 +205,7 @@ if ($ntpdate_error > $ERRORS{'OK'}) { $answer = "Server error and time difference $offset seconds greater than +/- $warning sec\n"; } -} elsif ($dispersion_error > $ERRORS{'OK'}) { +} elsif ($dispersion_error != $ERRORS{'OK'}) { $state = $dispersion_error; $answer = "Dispersion too high\n"; if (defined($offset) && abs($offset) > $critical) { -- cgit v0.10-9-g596f