From db10c78e5d96d15adaa6a9707c8ee8723f4ecd2d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 6 Jul 2001 10:35:25 +0000
Subject: some workarounds

---
 tools/ntp_servers.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'tools/ntp_servers.pl')

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 {
-- 
cgit v1.2.1