Add a few initial HTTPS/SVCB DNS records

[dns.git] / bin / mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index f5ecbd3b90a6e9a0b01decf7f5b65afd9fb4c21b..2c0453b96bc784c29f4d7ab9fecca1e3831f1ef2 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -35,7 +35,7 @@ while (my($name,$cluster) = each %$clusters)
             push @servers, $server;
         }
     }
             push @servers, $server;
         }
     }

-    else
+    elsif ($cluster->{requests} > 0)

     {
         my $server = {
             cluster => $cluster,
     {
         my $server = {
             cluster => $cluster,


@@ -50,6 +50,10 @@ while (my($name,$cluster) = each %$clusters)
 
         push @servers, $server;
     }
 
         push @servers, $server;
     }

+    else
+    {
+        $cluster->{servers} = [];
+    }

 
     $cluster->{name} = $name;
     $cluster->{status} = "down";
 
     $cluster->{name} = $name;
     $cluster->{status} = "down";


@@ -145,6 +149,9 @@ foreach my $server (@servers)
     }
 }
 
     }
 }
 

+# Abort if no servers at all are up
+exit 0 unless grep { $_->{status} eq "up" } values(%$clusters);
+

 # Create target origins object
 my $targetorigins = {};
 
 # Create target origins object
 my $targetorigins = {};
 


@@ -221,6 +228,25 @@ while (grep { !exists($_->{cluster}) } values %$origins)
     allocate_clusters(@mappings);
 }
 
     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;
 
 # Create JSON collection object
 my @json;