diff options
Diffstat (limited to 'plugins-scripts/check_ntp.pl')
| -rwxr-xr-x | plugins-scripts/check_ntp.pl | 236 |
1 files changed, 236 insertions, 0 deletions
diff --git a/plugins-scripts/check_ntp.pl b/plugins-scripts/check_ntp.pl new file mode 100755 index 00000000..f3f6f78b --- /dev/null +++ b/plugins-scripts/check_ntp.pl @@ -0,0 +1,236 @@ +#! /usr/bin/perl -wT + +# (c)1999 Ian Cass, Knowledge Matters Ltd. +# Read the GNU copyright stuff for all the legalese +# +# Check NTP time servers plugin. This plugin requires the ntpdate utility to +# be installed on the system, however since it's part of the ntp suite, you +# should already have it installed. +# +# Nothing clever done in this program - its a very simple bare basics hack to +# get the job done. +# +# Things to do... +# check @words[9] for time differences greater than +/- x secs & return a +# warning. +# +# (c) 1999 Mark Jewiss, Knowledge Matters Limited +# 22-9-1999, 12:45 +# +# Modified script to accept 2 parameters or set defaults. +# Now issues warning or critical alert is time difference is greater than the +# time passed. +# +# These changes have not been tested completely due to the unavailability of a +# server with the incorrect time. +# +# (c) 1999 Bo Kersey, VirCIO - Managed Server Solutions <bo@vircio.com> +# 22-10-99, 12:17 +# +# Modified the script to give useage if no parameters are input. +# +# Modified the script to check for negative as well as positive +# time differences. +# +# Modified the script to work with ntpdate 3-5.93e Wed Apr 14 20:23:03 EDT 1999 +# +# Modified the script to work with ntpdate's that return adjust or offset... +# +# +# Script modified 2000 June 01 by William Pietri <william@bianca.com> +# +# Modified script to handle weird cases: +# o NTP server doesn't respond (e.g., has died) +# o Server has correct time but isn't suitable synchronization +# source. This happens while starting up and if contact +# with master has been lost. +# +BEGIN { + if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { + $runtimedir = $1; + $PROGNAME = $2; + } +} + +require 5.004; +use POSIX; +use strict; +use Getopt::Long; +use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME); +use lib $main::runtimedir; +use utils qw($TIMEOUT %ERRORS &print_revision &support); + +sub print_help (); +sub print_usage (); + +$ENV{'PATH'}=''; +$ENV{'BASH_ENV'}=''; +$ENV{'ENV'}=''; + +Getopt::Long::Configure('bundling'); +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, + "H=s" => \$opt_H, "hostname=s" => \$opt_H); + +if ($opt_V) { + print_revision($PROGNAME,'$Revision$ '); + exit $ERRORS{'OK'}; +} + +if ($opt_h) { + print_help(); + exit $ERRORS{'OK'}; +} + +$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_usage(); + exit $ERRORS{'UNKNOWN'}; +} + +($opt_w) || ($opt_w = shift) || ($opt_w = 60); +my $warning = $1 if ($opt_w =~ /([0-9]+)/); + +($opt_c) || ($opt_c = shift) || ($opt_c = 120); +my $critical = $1 if ($opt_c =~ /([0-9]+)/); + +my $answer = undef; +my $offset = undef; +my $msg; # first line of output to print if format is invalid + +my $state = $ERRORS{'UNKNOWN'}; +my $ntpdate_error = $ERRORS{'UNKNOWN'}; +my $dispersion_error = $ERRORS{'UNKNOWN'}; + +my $key = undef; + +# Just in case of problems, let's not hang Nagios +$SIG{'ALRM'} = sub { + print ("ERROR: No response from ntp server (alarm)\n"); + exit $ERRORS{"UNKNOWN"}; +}; +alarm($TIMEOUT); + + +### +### +### First, check ntpdate +### +### + +if (!open (NTPDATE, "/usr/local/sbin/ntpdate -q $host 2>&1 |")) { + print "Could not open ntpdate\n"; + exit $ERRORS{"UNKNOWN"}; +} + +while (<NTPDATE>) { + print if ($verbose); + $msg = $_ unless ($msg); + if (/(offset|adjust)\s+([-.\d]+)/i) { + $offset = $2; + last; + } +} + +# soak up remaining output; check for error +while (<NTPDATE>) { + if (/no server suitable for synchronization found/) { + $ntpdate_error = $ERRORS{"CRITICAL"}; + } +} + +close(NTPDATE); + +# only declare an error if we also get a non-zero return code from ntpdate +$ntpdate_error = ($? >> 8) || $ntpdate_error; + +### +### +### Then scan xntpdc if it exists +### +### + +if (#open(NTPDC,"/usr/sbin/ntpdc -c $host 2>&1 |") || + open(NTPDC,"/usr/sbin/xntpdc -c $host 2>&1 |") ) { + while (<NTPDC>) { + 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) { + $dispersion_error = $ERRORS{'CRITICAL'}; + } elsif ($8>5 && $dispersion_error<$ERRORS{'CRITICAL'}) { + $dispersion_error = $ERRORS{'WARNING'}; + } + } + } + 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'}) { + $state = $ntpdate_error; + $answer = "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"; + } elsif (defined($offset) && abs($offset) > $warning) { + $answer = "Server error and time difference $offset seconds greater than +/- $warning sec\n"; + } + +} elsif ($dispersion_error > $ERRORS{'OK'}) { + $state = $dispersion_error; + $answer = "Dispersion too high\n"; + if (defined($offset) && abs($offset) > $critical) { + $state = $ERRORS{'CRITICAL'}; + $answer = "Dispersion error and time difference $offset seconds greater than +/- $critical sec\n"; + } elsif (defined($offset) && abs($offset) > $warning) { + $answer = "Dispersion error and time difference $offset seconds greater than +/- $warning sec\n"; + } + +} else { # no errors from ntpdate or xntpdc + if (defined $offset) { + if (abs($offset) > $critical) { + $state = $ERRORS{'CRITICAL'}; + $answer = "Time difference $offset seconds greater than +/- $critical sec\n"; + } elsif (abs($offset) > $warning) { + $state = $ERRORS{'WARNING'}; + $answer = "Time difference $offset seconds greater than +/- $warning sec\n"; + } elsif (abs($offset) <= $warning) { + $state = $ERRORS{'OK'}; + $answer = "Time difference $offset seconds\n"; + } + } else { # no offset defined + $state = $ERRORS{'UNKNOWN'}; + $answer = "Invalid format returned from ntpdate ($msg)\n"; + } +} + +foreach $key (keys %ERRORS) { + if ($state==$ERRORS{$key}) { + print ("$key: $answer"); + last; + } +} +exit $state; + +sub print_usage () { + print "Usage: $PROGNAME -H <host> [-w <warn>] [-c <crit>]\n"; +} + +sub print_help () { + print_revision($PROGNAME,'$Revision$'); + print "Copyright (c) 2000 Bo Kersey/Karl DeBisschop\n"; + print "\n"; + print_usage(); + print "\n"; + print "<warn> = Clock offset in seconds at which a warning message will be generated.\n Defaults to 60.\n"; + print "<crit> = Clock offset in seconds at which a critical message will be generated.\n Defaults to 120.\n\n"; + support(); +} |