Move few tiles to Sweden for a few EU countries

[dns.git] / bin / mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index aa8babb243fd7fccd25b16e00565d2ed8070c079..bb29fe60f9fc9604e9e22a61602ff2323ab10c5e 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -88,7 +88,7 @@ foreach my $country (values %countries)
     $kmlwriter->endTag("Placemark");
 }
 
-foreach my $server (keys %$servers)
+foreach my $server (grep { $servers->{$_}->{default} }keys %$servers)
 {
     $zonefile->print("Cxx.${zone}:${server}.${zone}:600\n");
 }