Mark DNS entries that are in DNS-RR.

1 files changed, 15 insertions, 10 deletions

diff --git a/apt-panopticon-report-web.lua b/apt-panopticon-report-web.lua
index f17bf54..33b8fe2 100755
--- a/apt-panopticon-report-web.lua
+++ b/apt-panopticon-report-web.lua
@@ -124,17 +124,22 @@ local C = function(s) log(-1, "CRITICAL", s) end
 local mirrors = loadfile("results/mirrors.lua")()
 
 local revDNS = function(dom, IP)
-    if "deb.devuan.org" ~= dom then return "" end
-    for k, v in pairs(mirrors) do
-        if "deb.devuan.org" ~= k then
-            local IPs = v.IPs
-            for i, u in pairs(IPs) do
-                if "table" == type(u) then
-                    for h, t in pairs(u) do
-                        if IP == h then return k end
+    if "deb.devuan.org" ~= dom then
+        if nil ~= mirrors["deb.devuan.org"].IPs["deb.roundr.devuan.org"][IP] then
+            return "DNS-RR"
+        end
+    else
+        for k, v in pairs(mirrors) do
+            if "deb.devuan.org" ~= k then
+                local IPs = v.IPs
+                for i, u in pairs(IPs) do
+                    if "table" == type(u) then
+                        for h, t in pairs(u) do
+                            if IP == h then return k end
+                        end
+                    else
+                        if IP == i then return k end
                     end
-                else
-                    if IP == i then return k end
                 end
             end
         end