mkgeo: Add cache server property to json

[dns.git] / bin / mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index fd0459307a2b2c7a13ee2b9533d522e9180fece1..edb18b51ea006d902a53c47135178bc671a9f797 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -155,6 +155,7 @@ foreach my $country (values %countries)
         $clon = $clon + 360;
     }
 
+    $zonefile->print("# $country->{name}\n");
     $zonefile->print("C\L$country->{code}\E.${zone}:$server->{name}.${zone}:600\n");
 
     push @json, {
@@ -164,7 +165,8 @@ foreach my $country (values %countries)
             coordinates => [ [ $clon, $clat ], [ $slon, $slat ] ]
         },
         properties => {
-            country => $country->{name}
+            country => $country->{name},
+            server => $server->{name}
         }
     };
 }