Remove culebre from DNS

[dns.git] / bin / mkgeo

diff --git a/bin/mkgeo b/bin/mkgeo
index c89921eca6ac4a9986ba14adb40f4222a6304e2b..7373c2db866f3be44f97812ee29f628f27dc7a4e 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -146,6 +146,8 @@ while (my($name,$cluster) = each %$clusters)
     $cluster->{bandwidth_limit} = $cluster->{bandwidth} * 1024 * 1024;
     $cluster->{bandwidth_used} = 0;
 
+    next if $cluster->{global};
+
     $targetorigins->{$cluster->{name}} = {
         code => $cluster->{name},
         name => $cluster->{name},
@@ -261,6 +263,8 @@ foreach my $origin (sort { $a->{name} cmp $b->{name} } values %$origins)
         };
     }
 
+    next if $cluster->{global};
+
     $targetorigins->{$cluster->{name}}->{bandwidth} += $origin->{bandwidth};
 }