NTP服务器

liyaweihesmz

请问在RHEL6上面还有ntptrace该命令吗？但我安装该服务器后没有找见该命令，我安装的是RPM包。如果有的话，在哪里呢？

chenyx

楼主看看有没有ntp-perl包,安装下

liyaweihesmz

回复 2# chenyx


    没有该软件包啊。下载一个吗？

chenyx

系统没有,只能自己下载了.

biguy

在rhel6.3下面试了一下，应该是没有这个，需要自行安装：
[root@a1 ~]# ntp
ntpd        ntpdate     ntpdc       ntp-keygen  ntpq        ntpstat     ntptime

yanu

就是个perl脚本

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. # John Hay -- John.Hay@icomtek.csir.co.za / jhay@FreeBSD.org
   
5. 
   
6. use Socket;
   
7. use Getopt::Std;
   
8. use vars qw($opt_n $opt_m);
   
9. 
   
10. $ntpq = "ntpq";
    
11. 
    
12. $Getopt::Std::STANDARD_HELP_VERSION=1;
    
13. getopts('nm:');
    
14. 
    
15. $dodns = 1;
    
16. $dodns = 0 if (defined($opt_n));
    
17. 
    
18. $max_hosts = (defined($opt_m) ? $opt_m :  99);
    
19. $max_hosts = 0 if ( $max_hosts !~ /^\d+$/ );
    
20. $nb_host = 1;
    
21. 
    
22. $host = shift;
    
23. $host ||= "127.0.0.1";
    
24. 
    
25. for (;;) {
    
26.         $nb_host++;
    
27.         $rootdelay = 0;
    
28.         $rootdispersion = 0;
    
29.         $stratum = 255;
    
30.         $cmd = "$ntpq -n -c rv $host";
    
31.         open(PH, $cmd . "|") || die "failed to start command $cmd: $!";
    
32.         while (<PH>) {
    
33.                 $stratum = $1 if (/stratum=(\d+)/);
    
34.                 $peer = $1 if (/peer=(\d+)/);
    
35.                 # Very old servers report phase and not offset.
    
36.                 $offset = $1 if (/(?:offset|phase)=([^\s,]+)/);
    
37.                 $rootdelay = $1 if (/rootdelay=([^\s,]+)/);
    
38.                 $rootdispersion = $1 if (/rootdispersion=([^\s,]+)/);
    
39.                 $refid = $1 if (/refid=([^\s,]+)/);
    
40.         }
    
41.         close(PH) || die "$cmd failed";
    
42.         last if ($stratum == 255);
    
43.         $offset /= 1000;
    
44.         $syncdistance = ($rootdispersion + ($rootdelay / 2)) / 1000;
    
45.         $dhost = $host;
    
46.         # Only do lookups of IPv4 addresses. The standard lookup functions
    
47.         # of perl only do IPv4 and I don't know if we should require extras.
    
48.         if ($dodns && $host =~ /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/) {
    
49.                 $iaddr = inet_aton($host);
    
50.                 $name = (gethostbyaddr($iaddr, AF_INET))[0];
    
51.                 $dhost = $name if (defined($name));
    
52.         }
    
53.         printf("%s: stratum %d, offset %f, synch distance %f",
    
54.             $dhost, $stratum, $offset, $syncdistance);
    
55.         printf(", refid '%s'", $refid) if ($stratum == 1);
    
56.         printf("\n");
    
57.         last if ($stratum == 0 || $stratum == 1 || $stratum == 16);
    
58.         last if ($refid =~ /^127\.127\.\d{1,3}\.\d{1,3}$/);
    
59.         last if ($nb_host > $max_hosts);
    
60. 
    
61.         $cmd = "$ntpq -n -c \"pstat $peer\" $host";
    
62.         open(PH, $cmd . "|") || die "failed to start command $cmd: $!";
    
63.         $thost = "";
    
64.         while (<PH>) {
    
65.                 $thost = $1, last if (/srcadr=(\S+),/);
    
66.         }
    
67.         close(PH) || die "$cmd failed";
    
68.         last if ($thost eq "");
    
69.         last if ($thost =~ /^127\.127\.\d{1,3}\.\d{1,3}$/);
    
70.         $host = $thost;
    
71. }
    
72. 
    
73. 
    

复制代码

dooza

用ntpd自动同步ntp服务器，或者使用ntpdate定期同步

pix77

命令已去除了，早期的版本有