diff options
| -rw-r--r-- | perl-install/timezone.pm | 39 | ||||
| -rw-r--r-- | 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 { |