summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/timezone.pm39
-rw-r--r--tools/ntp_servers.pl9
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 {