diff options
| -rw-r--r-- | tools/ntp_servers.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tools/ntp_servers.pl b/tools/ntp_servers.pl index 09b9aecc8..ccd470f42 100644 --- a/tools/ntp_servers.pl +++ b/tools/ntp_servers.pl @@ -16,7 +16,8 @@ sub parse { s/^\s*//; s/\s*$//; if ($nb == 2) { - ($indic, $name) = /([A-Z ]*[A-Z])\s+(\S+)/ or die "bad line $_"; + s/US CA:/US CA/; + ($indic, $name) = /([A-Z ]*[A-Z])\s+([.\w-]+)/ or die "bad line $_"; } else { s/^(.*):\s*/$field = $1; ''/e; $field = lc $field; @@ -40,8 +41,8 @@ use Data::Dumper; foreach (grep { $_->{policy} eq 'open access' } @all) { ($country, $state) = split ' ', $_->{indic}; $country = ucfirst(lc $country_codes{$country}); - $country .= " ($state)" if $state; - print "$country|$_->{name}\n"; + $country .= " $state" if $state; + print lc($_->{name}), " $country\n"; } BEGIN { |