diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-07-06 10:35:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-07-06 10:35:25 +0000 |
| commit | db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d (patch) | |
| tree | c0d87a342138d69472b3e359a11c8cac96de915d /tools/ntp_servers.pl | |
| parent | cb79e7c3e74803589b56fd4fbe132b28dae27b46 (diff) | |
| download | drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.gz drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.bz2 drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.xz drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.zip | |
some workarounds
Diffstat (limited to 'tools/ntp_servers.pl')
| -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 { |