Contents of /trunk/nl.nikhef.ndpf.tools/nagios-ndpf-sensors/scripts/check_time_offset

#!/usr/bin/perl -w 

use strict;
use Getopt::Long;

my $verbose=0;
my $help;
my $delta = 15;
my @ntpservers = ();
my $debug;

GetOptions("help" => \$help,
           "delta|D:i" => \$delta,
           "debug" => \$debug,
           "ntp:s@" => \@ntpservers,
           "verbose" => \$verbose );

my %ERRORS=(OK=>0,
            WARNING=>1,
            CRITICAL=>2,
            UNKNOWN=>3,
            DEPENDENT=>4);

my $result = $ERRORS{"UNKNOWN"};

# sanity check of variable ntpservers
if ( scalar @ntpservers == 0 ) {
    print "UNKNOWN: no list of NTP servers found\n";
    exit $ERRORS{"UNKNOWN"};
}
# permit mulitple occurrences of --ntp or a comma separated argument lists to --ntp
@ntpservers = split(/,/,join(',',@ntpservers));
my $ntpserverlist = "";
foreach my $ntp ( @ntpservers ) {
    # validate hostname
    if ( $ntp !~ /^(([a-zA-Z]|[a-zA-Z][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*([A-Za-z]|[A-Za-z][A-Za-z0-9\-]*[A-Za-z0-9])$/ ) {
        print "UNKNOWN: invalid NTP hostname found: $ntp\n"; 
        exit $ERRORS{"UNKNOWN"};
    }
    $ntpserverlist .= " $ntp";
}
$debug and  print STDERR "[DEBUG] list of NTP servers = $ntpserverlist\n";


##############################################################################
# determine the offset of the clock at the host with one or more NTP servers
#

my $offset = 0;

# get time offset from NTP server(s)
# but first determine the command to use
if ( -x "/usr/sbin/sntp" ) {
    my $ntpcmd = "/usr/sbin/sntp $ntpserverlist";
    my $ntpresult = `$ntpcmd | tail -1`;
    if ( $? == 0 and $ntpresult =~ /([+-]) (\d+\.\d+) \+\/\-/ ) {
        $offset = ( $1 eq "-" ? -1*($2) : ($2) );
    }
}
elsif ( -x "/usr/sbin/ntpdate" ) {
    my $ntpcmd = "/usr/sbin/ntpdate -u -q $ntpserverlist";
    my $ntpresult = `$ntpcmd | tail -1`;
    if ( $? == 0 and $ntpresult =~ /offset (.*) sec$/ ) {
        $offset = $1;
    }
}
else {
    print "UNKNOWN: cannot find client command to compare time offset\n";
    exit $ERRORS{"UNKNOWN"};
}


$debug and print STDERR "[DEBUG] NTP offset = $offset\n";

my $message;

# Only publish positive values for offset
my $perfdata = "'Time offset'=" . abs(${offset}) . "s;${delta};;;";

if ( abs( $offset ) < $delta ) {
    $message = "OK: time offset is ${offset}s";
    $result = $ERRORS{"OK"};
}
else {
    $message = "WARNING: time offset is ${offset}s ";
    $result = $ERRORS{"WARNING"};
}

print "$message|$perfdata\n";
exit($result);
1	#!/usr/bin/perl -w
2
3	use strict;
4	use Getopt::Long;
5
6	my $verbose=0;
7	my $help;
8	my $delta = 15;
9	my @ntpservers = ();
10	my $debug;
11
12	GetOptions("help" => \$help,
13	"delta\|D:i" => \$delta,
14	"debug" => \$debug,
15	"ntp:s@" => \@ntpservers,
16	"verbose" => \$verbose );
17
18	my %ERRORS=(OK=>0,
19	WARNING=>1,
20	CRITICAL=>2,
21	UNKNOWN=>3,
22	DEPENDENT=>4);
23
24	my $result = $ERRORS{"UNKNOWN"};
25
26	# sanity check of variable ntpservers
27	if ( scalar @ntpservers == 0 ) {
28	print "UNKNOWN: no list of NTP servers found\n";
29	exit $ERRORS{"UNKNOWN"};
30	}
31	# permit mulitple occurrences of --ntp or a comma separated argument lists to --ntp
32	@ntpservers = split(/,/,join(',',@ntpservers));
33	my $ntpserverlist = "";
34	foreach my $ntp ( @ntpservers ) {
35	# validate hostname
36	if ( $ntp !~ /^(([a-zA-Z]\|[a-zA-Z][a-zA-Z0-9\-][a-zA-Z0-9])\.)([A-Za-z]\|[A-Za-z][A-Za-z0-9\-]*[A-Za-z0-9])$/ ) {
37	print "UNKNOWN: invalid NTP hostname found: $ntp\n";
38	exit $ERRORS{"UNKNOWN"};
39	}
40	$ntpserverlist .= " $ntp";
41	}
42	$debug and print STDERR "[DEBUG] list of NTP servers = $ntpserverlist\n";
43
44
45
46	##############################################################################
47	# determine the offset of the clock at the host with one or more NTP servers
48	#
49
50	my $offset = 0;
51
52	# get time offset from NTP server(s)
53	# but first determine the command to use
54	if ( -x "/usr/sbin/sntp" ) {
55	my $ntpcmd = "/usr/sbin/sntp $ntpserverlist";
56	my $ntpresult = `$ntpcmd \| tail -1`;
57	if ( $? == 0 and $ntpresult =~ /([+-]) (\d+\.\d+) \+\/\-/ ) {
58	$offset = ( $1 eq "-" ? -1*($2) : ($2) );
59	}
60	}
61	elsif ( -x "/usr/sbin/ntpdate" ) {
62	my $ntpcmd = "/usr/sbin/ntpdate -u -q $ntpserverlist";
63	my $ntpresult = `$ntpcmd \| tail -1`;
64	if ( $? == 0 and $ntpresult =~ /offset (.*) sec$/ ) {
65	$offset = $1;
66	}
67	}
68	else {
69	print "UNKNOWN: cannot find client command to compare time offset\n";
70	exit $ERRORS{"UNKNOWN"};
71	}
72
73
74	$debug and print STDERR "[DEBUG] NTP offset = $offset\n";
75
76	my $message;
77
78	# Only publish positive values for offset
79	my $perfdata = "'Time offset'=" . abs(${offset}) . "s;${delta};;;";
80
81	if ( abs( $offset ) < $delta ) {
82	$message = "OK: time offset is ${offset}s";
83	$result = $ERRORS{"OK"};
84	}
85	else {
86	$message = "WARNING: time offset is ${offset}s ";
87	$result = $ERRORS{"WARNING"};
88	}
89
90	print "$message\|$perfdata\n";
91	exit($result);
grid.support@nikhef.nl	ViewVC Help
Powered by ViewVC 1.1.28