summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/check_ntp.pl
diff options
context:
space:
mode:
authorEthan Galstad <egalstad@users.sourceforge.net>2002-02-28 06:42:51 (GMT)
committerEthan Galstad <egalstad@users.sourceforge.net>2002-02-28 06:42:51 (GMT)
commit44a321cb8a42d6c0ea2d96a1086a17f2134c89cc (patch)
treea1a4d9f7b92412a17ab08f34f04eec45433048b7 /plugins-scripts/check_ntp.pl
parent54fd5d7022ff2d6a59bc52b8869182f3fc77a058 (diff)
downloadmonitoring-plugins-44a321cb8a42d6c0ea2d96a1086a17f2134c89cc.tar.gz
Initial revision
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@2 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/check_ntp.pl')
-rwxr-xr-xplugins-scripts/check_ntp.pl236
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 0000000..f3f6f78
--- /dev/null
+++ b/plugins-scripts/check_ntp.pl
@@ -0,0 +1,236 @@
1#! /usr/bin/perl -wT
2
3# (c)1999 Ian Cass, Knowledge Matters Ltd.
4# Read the GNU copyright stuff for all the legalese
5#
6# Check NTP time servers plugin. This plugin requires the ntpdate utility to
7# be installed on the system, however since it's part of the ntp suite, you
8# should already have it installed.
9#
10# Nothing clever done in this program - its a very simple bare basics hack to
11# get the job done.
12#
13# Things to do...
14# check @words[9] for time differences greater than +/- x secs & return a
15# warning.
16#
17# (c) 1999 Mark Jewiss, Knowledge Matters Limited
18# 22-9-1999, 12:45
19#
20# Modified script to accept 2 parameters or set defaults.
21# Now issues warning or critical alert is time difference is greater than the
22# time passed.
23#
24# These changes have not been tested completely due to the unavailability of a
25# server with the incorrect time.
26#
27# (c) 1999 Bo Kersey, VirCIO - Managed Server Solutions <bo@vircio.com>
28# 22-10-99, 12:17
29#
30# Modified the script to give useage if no parameters are input.
31#
32# Modified the script to check for negative as well as positive
33# time differences.
34#
35# Modified the script to work with ntpdate 3-5.93e Wed Apr 14 20:23:03 EDT 1999
36#
37# Modified the script to work with ntpdate's that return adjust or offset...
38#
39#
40# Script modified 2000 June 01 by William Pietri <william@bianca.com>
41#
42# Modified script to handle weird cases:
43# o NTP server doesn't respond (e.g., has died)
44# o Server has correct time but isn't suitable synchronization
45# source. This happens while starting up and if contact
46# with master has been lost.
47#
48BEGIN {
49 if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
50 $runtimedir = $1;
51 $PROGNAME = $2;
52 }
53}
54
55require 5.004;
56use POSIX;
57use strict;
58use Getopt::Long;
59use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME);
60use lib $main::runtimedir;
61use utils qw($TIMEOUT %ERRORS &print_revision &support);
62
63sub print_help ();
64sub print_usage ();
65
66$ENV{'PATH'}='';
67$ENV{'BASH_ENV'}='';
68$ENV{'ENV'}='';
69
70Getopt::Long::Configure('bundling');
71GetOptions
72 ("V" => \$opt_V, "version" => \$opt_V,
73 "h" => \$opt_h, "help" => \$opt_h,
74 "v" => \$verbose, "verbose" => \$verbose,
75 "w=s" => \$opt_w, "warning=s" => \$opt_w,
76 "c=s" => \$opt_c, "critical=s" => \$opt_c,
77 "H=s" => \$opt_H, "hostname=s" => \$opt_H);
78
79if ($opt_V) {
80 print_revision($PROGNAME,'$Revision$ ');
81 exit $ERRORS{'OK'};
82}
83
84if ($opt_h) {
85 print_help();
86 exit $ERRORS{'OK'};
87}
88
89$opt_H = shift unless ($opt_H);
90my $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]+)*)$/);
91unless ($host) {
92 print_usage();
93 exit $ERRORS{'UNKNOWN'};
94}
95
96($opt_w) || ($opt_w = shift) || ($opt_w = 60);
97my $warning = $1 if ($opt_w =~ /([0-9]+)/);
98
99($opt_c) || ($opt_c = shift) || ($opt_c = 120);
100my $critical = $1 if ($opt_c =~ /([0-9]+)/);
101
102my $answer = undef;
103my $offset = undef;
104my $msg; # first line of output to print if format is invalid
105
106my $state = $ERRORS{'UNKNOWN'};
107my $ntpdate_error = $ERRORS{'UNKNOWN'};
108my $dispersion_error = $ERRORS{'UNKNOWN'};
109
110my $key = undef;
111
112# Just in case of problems, let's not hang Nagios
113$SIG{'ALRM'} = sub {
114 print ("ERROR: No response from ntp server (alarm)\n");
115 exit $ERRORS{"UNKNOWN"};
116};
117alarm($TIMEOUT);
118
119
120###
121###
122### First, check ntpdate
123###
124###
125
126if (!open (NTPDATE, "/usr/local/sbin/ntpdate -q $host 2>&1 |")) {
127 print "Could not open ntpdate\n";
128 exit $ERRORS{"UNKNOWN"};
129}
130
131while (<NTPDATE>) {
132 print if ($verbose);
133 $msg = $_ unless ($msg);
134 if (/(offset|adjust)\s+([-.\d]+)/i) {
135 $offset = $2;
136 last;
137 }
138}
139
140# soak up remaining output; check for error
141while (<NTPDATE>) {
142 if (/no server suitable for synchronization found/) {
143 $ntpdate_error = $ERRORS{"CRITICAL"};
144 }
145}
146
147close(NTPDATE);
148
149# only declare an error if we also get a non-zero return code from ntpdate
150$ntpdate_error = ($? >> 8) || $ntpdate_error;
151
152###
153###
154### Then scan xntpdc if it exists
155###
156###
157
158if (#open(NTPDC,"/usr/sbin/ntpdc -c $host 2>&1 |") ||
159 open(NTPDC,"/usr/sbin/xntpdc -c $host 2>&1 |") ) {
160 while (<NTPDC>) {
161 print if ($verbose);
162 if (/([^\s]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)/) {
163 if ($8>15) {
164 $dispersion_error = $ERRORS{'CRITICAL'};
165 } elsif ($8>5 && $dispersion_error<$ERRORS{'CRITICAL'}) {
166 $dispersion_error = $ERRORS{'WARNING'};
167 }
168 }
169 }
170 close NTPDC;
171}
172
173# An offset of 0.000000 with an error is probably bogus. Actually,
174# it's probably always bogus, but let's be paranoid here.
175if ($ntpdate_error && $offset && ($offset == 0)) { undef $offset;}
176
177if ($ntpdate_error > $ERRORS{'OK'}) {
178 $state = $ntpdate_error;
179 $answer = "Server for ntp probably down\n";
180 if (defined($offset) && abs($offset) > $critical) {
181 $state = $ERRORS{'CRITICAL'};
182 $answer = "Server Error and time difference $offset seconds greater than +/- $critical sec\n";
183 } elsif (defined($offset) && abs($offset) > $warning) {
184 $answer = "Server error and time difference $offset seconds greater than +/- $warning sec\n";
185 }
186
187} elsif ($dispersion_error > $ERRORS{'OK'}) {
188 $state = $dispersion_error;
189 $answer = "Dispersion too high\n";
190 if (defined($offset) && abs($offset) > $critical) {
191 $state = $ERRORS{'CRITICAL'};
192 $answer = "Dispersion error and time difference $offset seconds greater than +/- $critical sec\n";
193 } elsif (defined($offset) && abs($offset) > $warning) {
194 $answer = "Dispersion error and time difference $offset seconds greater than +/- $warning sec\n";
195 }
196
197} else { # no errors from ntpdate or xntpdc
198 if (defined $offset) {
199 if (abs($offset) > $critical) {
200 $state = $ERRORS{'CRITICAL'};
201 $answer = "Time difference $offset seconds greater than +/- $critical sec\n";
202 } elsif (abs($offset) > $warning) {
203 $state = $ERRORS{'WARNING'};
204 $answer = "Time difference $offset seconds greater than +/- $warning sec\n";
205 } elsif (abs($offset) <= $warning) {
206 $state = $ERRORS{'OK'};
207 $answer = "Time difference $offset seconds\n";
208 }
209 } else { # no offset defined
210 $state = $ERRORS{'UNKNOWN'};
211 $answer = "Invalid format returned from ntpdate ($msg)\n";
212 }
213}
214
215foreach $key (keys %ERRORS) {
216 if ($state==$ERRORS{$key}) {
217 print ("$key: $answer");
218 last;
219 }
220}
221exit $state;
222
223sub print_usage () {
224 print "Usage: $PROGNAME -H <host> [-w <warn>] [-c <crit>]\n";
225}
226
227sub print_help () {
228 print_revision($PROGNAME,'$Revision$');
229 print "Copyright (c) 2000 Bo Kersey/Karl DeBisschop\n";
230 print "\n";
231 print_usage();
232 print "\n";
233 print "<warn> = Clock offset in seconds at which a warning message will be generated.\n Defaults to 60.\n";
234 print "<crit> = Clock offset in seconds at which a critical message will be generated.\n Defaults to 120.\n\n";
235 support();
236}