#!/usr/bin/perl #written 28/03/2006 by Andrew Stringer #This tests ntp servers listed in an xml file and checks the #stratum of each compared to the expected value in the config file. #Also the reference time source for each server is displayed. use Net::NTP; use XML::Simple; use Data::Dumper; use warnings; use strict; MAIN: my $configfile = '/data/rainsbrook/http/monitor/ntp-config.xml' ; my $resultsfile = '/data/rainsbrook/http/monitor/ntp-monitor.html'; my $tmpresultsfile = '/data/rainsbrook/http/monitor/ntp-monitor.tmp'; my $url = 'http://192.168.5.11/monitor/ntp-monitor.html' ; my $correctstratum ; #set time my $time = localtime; #open file for html output open (OUTPUTFILE, ">$tmpresultsfile") ; #write out html header print OUTPUTFILE < Site NTP test stats.
NTP status
Last updated at $time
ENDOFTEXT1 #read in config file my $config = XMLin($configfile); foreach my $e (@{$config->{server}}) { my $address = $e->{address}; my $targetstratum = $e->{targetstratum}; #get ntppacket my %ntppacket = get_ntp_response($address); my $stratum=$ntppacket{Stratum} ; my $rci = $ntppacket{'Reference Clock Identifier'} ; my $trt = $ntppacket{'Transmit Timestamp'}; if ($stratum <= $targetstratum) { $correctstratum = '#00ff00' ; } else { $correctstratum = '#ff0000' ; } print OUTPUTFILE < \n ENDOFTEXT2 #end of foreach loop } print OUTPUTFILE < RCI == Reference Clock Identifier ENDOFTEXT3 close OUTPUTFILE ; #copy tmp file to result file and change perms `mv $tmpresultsfile $resultsfile`; `chmod a+r $resultsfile` ; exit (0);
NTP server stratum RCI TransmitTimestamp
$address $stratum ($targetstratum) $rci $trt