1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
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();
}
|