Add DNS-RR report.

1 files changed, 21 insertions, 3 deletions

diff --git a/apt-panopticon-report-web.lua b/apt-panopticon-report-web.lua
index 8f06071..fa6df4d 100755
--- a/apt-panopticon-report-web.lua
+++ b/apt-panopticon-report-web.lua
@@ -246,13 +246,31 @@ if nil == file then C("opening mirrors file - " .. e) else
         end
         local http      = status(k, results, "http")
         local https     = status(k, results, "https")
-        local dns       = "[<font color='gray'><b>skip</b></font>]"
+        local dns       = ""
         local protocol  = status(k, results, "Protocol")
         local sanity    = "[<font color='gray'><b>skip</b></font>]"
         local integrity = "[<font color='gray'><b>skip</b></font>]"
         local updated   = "[<font color='gray'><b>skip</b></font>]"
-        file:write("<td>http: " .. http .. "&nbsp;</td><td>https: " .. https .. "&nbsp;</td><td>DNS-RR: " ..
-                    dns .. "&nbsp;</td><td>Protocol: " .. protocol .. "&nbsp;</td><td>URL-sanity: " .. sanity ..
+
+        if "deb.devuan.org" ~= k then
+            for l, w in pairs(mirrors[k].IPs) do
+                if type(w) == "table" then
+                    for i, u in pairs(w) do
+                        if nil ~= mirrors["deb.devuan.org"].IPs["deb.roundr.devuan.org"][i] then
+                            dns = dns .. " " .. logCount("deb.devuan.org", i)
+                        end
+                    end
+                else
+                    if nil ~= mirrors["deb.devuan.org"].IPs["deb.roundr.devuan.org"][l] then
+                        dns = dns .. " " .. logCount("deb.devuan.org", l)
+                    end
+                end
+            end
+            if "" == dns then dns = "DNS-RR: [<font color='gray'><b>no</b></font>]" else dns = "DNS-RR: " .. dns end
+        end
+
+        file:write("<td>http: " .. http .. "&nbsp;</td><td>https: " .. https .. "&nbsp;</td><td>" .. dns ..
+                    "&nbsp;</td><td>Protocol: " .. protocol .. "&nbsp;</td><td>URL-sanity: " .. sanity ..
                     "&nbsp;</td><td>Integrity: " .. integrity .. "&nbsp;</td><td>Updated: " .. updated .. "</td></tr>\n")
     end
     file:write( "</table>\n<br>\n<h2>==== faulty mirrors: ====</h2>\n" .. faulty)