Strip out DNS-RR duplicates.

1 files changed, 20 insertions, 0 deletions

diff --git a/apt-panopticon.lua b/apt-panopticon.lua
index 7e3b4ef..7defaad 100755
--- a/apt-panopticon.lua
+++ b/apt-panopticon.lua
@@ -198,6 +198,26 @@ gatherIPs = function (host)
             if "yes" == m.DNSRR then
                 gatherIPs(m.FQDN)
                 IP[host][m.FQDN] = IP[m.FQDN]
+                -- Strip them out so we don't test them twice.
+                for l, n in pairs(IP[m.FQDN]) do
+                    if type(n) == 'table' then
+                        for h, p in pairs(n) do
+                            for j, o in pairs(IP[host]['deb.roundr.devuan.org']) do
+                                if h == j then IP[host][m.FQDN][l][h] = nil end
+                            end
+                            o = 0
+                            for j in pairs(IP[host][m.FQDN][l]) do o = o + 1 end
+                            if 0 == o then IP[host][m.FQDN][l] = nil end
+                        end
+                    else
+                        for j, o in pairs(IP[host]['deb.roundr.devuan.org']) do
+                            if l == j then IP[host][m.FQDN][l] = nil end
+                        end
+                    end
+                    o = 0
+                    for j in pairs(IP[host][m.FQDN]) do o = o + 1 end
+                    if 0 == o then IP[host][m.FQDN] = nil end
+                end
             end
         end
     end