Reverese lookup the DNS-RR names.

1 files changed, 23 insertions, 3 deletions

diff --git a/apt-panopticon-report-web.lua b/apt-panopticon-report-web.lua
index 251aa89..f17bf54 100755
--- a/apt-panopticon-report-web.lua
+++ b/apt-panopticon-report-web.lua
@@ -121,6 +121,27 @@ local W = function(s, p, t, h) log(1,  "WARNING ", s, p, t, h) end
 local E = function(s, p, t, h) log(0,  "ERROR   ", s, p, t, h) end
 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
+                    end
+                else
+                    if IP == i then return k end
+                end
+            end
+        end
+    end
+    return ""
+end
+
 local faulty = ""
 local status = function(host, results, typ)
     local result = ""
@@ -190,7 +211,6 @@ local collate = function(host, ip, results)
     return results
 end
 
-local mirrors = loadfile("results/mirrors.lua")()
 local m = {}
 
 local logCount = function(domain, ip)
@@ -307,11 +327,11 @@ if nil == file then C("opening mirrors file - " .. e) else
                 n[l] = {}
                 for i, u in pairs(w) do
                     local log = logCount(k, i)
-                    if "" == log then n[l][i] = u else n[l][log] = u end
+                    if "" == log then n[l][i] = u else n[l][log .. " " .. revDNS(k, i)] = u end
                 end
             else
                 local log = logCount(k, l)
-                if "" == log then n[l] = w else n[log] = w end
+                if "" == log then n[l] = w else n[log .. " " .. revDNS(k, l)] = w end
             end
         end
         m[log .. " DNS entries -"] = n