Implement DNS-RR test fully.

1 files changed, 6 insertions, 4 deletions

diff --git a/apt-panopticon.lua b/apt-panopticon.lua
index 2058b4e..9f4d073 100755
--- a/apt-panopticon.lua
+++ b/apt-panopticon.lua
@@ -41,7 +41,7 @@ options =
                 "http",
                 "https",
 --              "rsync",
---              "DNS-RR",
+                "DNSRR",
                 "Protocol",
 --              "URL-Sanity",
 --              "Integrity",
@@ -652,9 +652,11 @@ local getMirrors = function ()
             mirrors[host] = m
         end
     end
-    mirrors[options.roundRobin.value] = { ["Protocols"] = { ["http"] = true; ["https"] = true; };  ["FQDN"] = 'deb.devuan.org'; ["Active"] = 'yes'; ["BaseURL"] = 'deb.devuan.org'; }
-    gatherIPs(options.roundRobin.value)
-    mirrors[options.roundRobin.value].IPs = IP[options.roundRobin.value]
+    if testing("DNSRR") then
+        mirrors[options.roundRobin.value] = { ["Protocols"] = { ["http"] = true; ["https"] = true; };  ["FQDN"] = 'deb.devuan.org'; ["Active"] = 'yes'; ["BaseURL"] = 'deb.devuan.org'; }
+        gatherIPs(options.roundRobin.value)
+        mirrors[options.roundRobin.value].IPs = IP[options.roundRobin.value]
+    end
     local file, e = io.open("results/mirrors.lua", "w+")
     if nil == file then C("opening mirrors file - " .. e) else
         file:write(dumpTable(mirrors, "", "mirrors") .. "\nreturn mirrors\n")