X-Git-Url: https://git.openstreetmap.org./dns.git/blobdiff_plain/e36e2f7683f9f3d6b2993b3f10146f5167bda1cc..0f25baffad12f4138350e18abe9993ac7d89a1d0:/bin/mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index f5ecbd3..2b7d3af 100755
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -221,6 +221,25 @@ while (grep { !exists($_->{cluster}) } values %$origins)
     allocate_clusters(@mappings);
 }
 
+# Report on allocation results
+foreach my $name (sort keys %$clusters)
+{
+    my $cluster = $clusters->{$name};
+    my $used = int($cluster->{requests_used} + 0.5);
+    my $limit = $cluster->{requests_limit};
+
+    if ($limit > 0)
+    {
+        my $proportion = int($used / $limit * 100 + 0.5);
+    
+        print "${name}: used ${used} of ${limit} (${proportion}%)\n";
+    }
+    else
+    {
+        print "${name}: used ${used} of ${limit}\n";
+    }
+}
+
 # Create JSON collection object
 my @json;