From: Tom Hughes <tom@compton.nu>
Date: Mon, 23 Dec 2013 14:15:30 +0000 (+0000)
Subject: Make deny lists work
X-Git-Url: https://git.openstreetmap.org./dns.git/commitdiff_plain/3021bd5f500d092062fb22f443f40e44941fbd23?hp=c19f860764232d2f1aa981a418cba0ab5d88b816

Make deny lists work
---

diff --git a/bin/mkgeo b/bin/mkgeo
index 40527e2..bf5ca4d 100755
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -293,13 +293,13 @@ sub match_origin
     }
     elsif ($cluster->{denied} &&
            $cluster->{denied}->{countries} &&
-           grep { $_ eq $origin->{country} } @{$cluster->{preferred}->{countries}})
+           grep { $_ eq $origin->{country} } @{$cluster->{denied}->{countries}})
     {
         $match = "denied";
     }
     elsif ($cluster->{denied} &&
            $cluster->{denied}->{continents} &&
-           grep { $_ eq $origin->{continent} } @{$cluster->{preferred}->{continents}})
+           grep { $_ eq $origin->{continent} } @{$cluster->{denied}->{continents}})
     {
         $match = "denied";
     }