This file is indexed.

/usr/lib/xymon/client/ext/ntpq is in hobbit-plugins 20160122.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  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
#!/usr/bin/perl

# A Hobbit client-side module to check the local ntpd daemon
# synchronization status.  Not to be confused with the built-in "ntp"
# test, which checks the ntpd server remotely.

# Copyright (C) 2008 Peter Eisentraut <petere@debian.org>
#
# Permission is hereby granted, free of charge, to any person
# obtaining a copy of this software and associated documentation
# files (the "Software"), to deal in the Software without
# restriction, including without limitation the rights to use,
# copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the
# Software is furnished to do so, subject to the following
# conditions:
#
# The above copyright notice and this permission notice shall be
# included in all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
# OTHER DEALINGS IN THE SOFTWARE.

use warnings;
use strict;
use Hobbit;
use YAML::Tiny;

if (! -x '/usr/bin/ntpq' and system('ntpq -? >/dev/null 2>&1') != 0) {
	exit 0;
}

my $testname = 'ntpq';
my $bb = new Hobbit("$testname");
my $trends = Hobbit::trends;
my $syspeer_stats = {};
my $plugins_config = '/etc/xymon/plugins.yaml';
my $ntpd_pid_file = '/var/run/ntpd.pid';
my $offset_warning = 100;
my $offset_critical = 2000;

if (-e $plugins_config) {
    my $config_yaml = YAML::Tiny->read($plugins_config);
    my $config = $config_yaml->[0]{"$testname"};

    $ntpd_pid_file = $config->{'ntpd_pid_file'} if ( defined($config->{'ntpd_pid_file'}) );
    $offset_warning = $config->{'offset_warning'} if ( defined($config->{'offset_warning'}) );
    $offset_critical = $config->{'offset_critical'} if ( defined($config->{'offset_critical'}) );
}

$bb->print("NTP peers:\n\n");

my $found_syspeer = 0;
my $recently_started = 0;
my $initializing = 0;

if (-f $ntpd_pid_file) {
    $recently_started = (time - (stat($ntpd_pid_file))[9]) < 300;
} else {
    $bb->color_line('yellow', "ntpd pid file $ntpd_pid_file not found. Is ntpd running?\n\n");
}

my @output = `ntpq -np 2>&1` or die;
foreach my $line (@output) {
	if ($line =~ /^  / or $line =~ /^==/) {
		$bb->print('   ' . $line);
	} elsif ($line =~ /^\*\S+\s+\S+\s+\d+ \w\s+[\dm-]+\s+[\d-]+\s+[\d-]+\s+([\d\.-]+)\s+([\d\.-]+)\s+([\d\.-]+)/) {
		($syspeer_stats->{'delay'}, $syspeer_stats->{'offset'}, $syspeer_stats->{'jitter'}) = ($1, $2, $3);
		$bb->color_line('green', $line);
		$found_syspeer = 1;
	} elsif ($line =~ /^( |x|\.|\-|\+|\#|o)/) {
		$bb->color_line('clear', $line);
		$initializing = 1 if $line =~ /\.INIT\.|\.STEP\./;
	} else {
		$bb->color_line('yellow', $line);
	}
}

if ($found_syspeer) {

    $bb->print( "\n" );
    $bb->print( "SyspeerDelay: $syspeer_stats->{'delay'}\n" );
    $bb->print( "SyspeerOffset: $syspeer_stats->{'offset'}\n" );
    $bb->print( "SyspeerJitter: $syspeer_stats->{'jitter'}\n\n" );
    $bb->print( "SyspeerOffset thresholds:\n" );
    $bb->print( "Warning: ${offset_warning}ms\n" );
    $bb->print( "Critical: ${offset_critical}ms\n" );

    if (abs($syspeer_stats->{'offset'}) > $offset_critical) {
        $bb->color_line('red', "SyspeerOffset > ${offset_critical}ms\n" );
    } elsif (abs($syspeer_stats->{'offset'}) > $offset_warning) {
        $bb->color_line('yellow', "SyspeerOffset > ${offset_warning}ms\n" );
    }

    $trends->print ("[${testname},SyspeerDelay.rrd]\n");
    $trends->print ("DS:lambda:GAUGE:600:U:U $syspeer_stats->{'delay'}\n");
    $trends->print ("[${testname},SyspeerOffset.rrd]\n");
    $trends->print ("DS:lambda:GAUGE:600:U:U $syspeer_stats->{'offset'}\n");
    $trends->print ("[${testname},SyspeerJitter.rrd]\n");
    $trends->print ("DS:lambda:GAUGE:600:U:U $syspeer_stats->{'jitter'}\n");

} else {
	$bb->print("\n");
	if ($recently_started and $initializing) {
		$bb->color_line('yellow', "No system peer entry (\"*\") found; ntpd was recently started and is initializing.\n");
	} else {
		$bb->color_line('red', "No system peer entry (\"*\") found\n");
	}
}

$trends->send;
$bb->send;