From ae1ef4f15034fad5792e86c04cbb292defd94617 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 2 Aug 2001 11:41:10 +0000
Subject: update ntp servers list

---
 perl-install/timezone.pm | 39 +--------------------------------------
 tools/ntp_servers.pl     |  9 +++++++--
 2 files changed, 8 insertions(+), 40 deletions(-)

diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index e6dd49953..f501ac538 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -156,44 +156,7 @@ sub sexProb($) {
 }
 
 $ntp_servers = 
-q(Australia (ntp.marine.csiro.au)
-Australia (ntp.mel.nml.csiro.au)
-Australia (ntp.nml.csiro.au)
-Australia (ntp.per.nml.csiro.au)
-Switzerland (swisstime.ethz.ch)
-Germany (ntps1-0.cs.tu-berlin.de)
-Germany (ntps1-1.cs.tu-berlin.de)
-Germany (ntps1-1.rz.uni-osnabrueck.de)
-Hong kong (clock.cuhk.edu.hk)
-Italy (tempo.cstv.to.cnr.it)
-Italy (time.ien.it)
-Japan (clock.nc.fukuoka-u.ac.jp)
-Japan (clock.tl.fukuoka-u.ac.jp)
-Mexico (cronos.cenam.mx)
-Netherlands (ntp0.nl.net)
-Netherlands (ntp1.nl.net)
-Netherlands (ntp2.nl.net)
-Poland (ntp.certum.pl)
-Poland (vega.cbk.poznan.pl)
-Sweden (time1.stupi.se)
-Sweden (time2.stupi.se)
-United kingdom (chronos.csr.net)
-United states CA (clock.isc.org)
-United states CA (clock.via.net)
-United states CA (ntp-cup.external.hp.com)
-United states CA (timekeeper.isi.edu)
-United states CA (usno.pa-x.dec.com)
-United states CO (navobs1.usnogps.navy.mil)
-United states CO (navobs2.usnogps.navy.mil)
-United states DC (tick.usno.navy.mil)
-United states DC (tock.usno.navy.mil)
-United states DE (ntp1.delmarva.com)
-United states MA (bonehed.lcs.mit.edu)
-United states MA (clock.osf.org)
-United states MO (navobs1.wustl.edu)
-United states NC (terrapin.csc.ncsu.edu)
-United states OH (lerc-dns.lerc.nasa.gov)
-Australia (ntp.adelaide.edu.au)
+q(Australia (ntp.adelaide.edu.au)
 Australia (ntp.saard.net)
 Australia (time.esec.com.au)
 Canada (ntp.cpsc.ucalgary.ca)
diff --git a/tools/ntp_servers.pl b/tools/ntp_servers.pl
index ccd470f42..62640557c 100644
--- a/tools/ntp_servers.pl
+++ b/tools/ntp_servers.pl
@@ -3,7 +3,12 @@
 open F, "links -dump http://www.eecis.udel.edu/~mills/ntp/clock1.htm|";
 open G, "links -dump http://www.eecis.udel.edu/~mills/ntp/clock2.htm|";
 
-parse() while <F>;
+# Chris Kloiber <ckloiber@redhat.com> writes:
+# > It's not considered polite to use the Stratum 1 servers for purposes that 
+# > are not absolutely critical. I would use Stratum 2 servers and live with 
+# > the few nanoseconds difference. 
+#parse() while <F>;
+
 parse() while <G>;
 
 sub parse {
@@ -42,7 +47,7 @@ foreach (grep { $_->{policy} eq 'open access' } @all) {
     ($country, $state) = split ' ', $_->{indic};
     $country = ucfirst(lc $country_codes{$country});
     $country .= " $state" if $state;
-    print lc($_->{name}), " $country\n";
+    print "$country (", lc($_->{name}), ")\n";
 }
 
 BEGIN {
-- 
cgit v1.2.1