summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-06 10:35:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-06 10:35:25 +0000
commitdb10c78e5d96d15adaa6a9707c8ee8723f4ecd2d (patch)
treec0d87a342138d69472b3e359a11c8cac96de915d /tools
parentcb79e7c3e74803589b56fd4fbe132b28dae27b46 (diff)
downloaddrakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar
drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.gz
drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.bz2
drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.tar.xz
drakx-db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d.zip
some workarounds
Diffstat (limited to 'tools')
-rw-r--r--tools/ntp_servers.pl7
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 {