1 files changed, 10 insertions, 11 deletions

diff --git a/apt-panopticon-report-email-web.lua b/apt-panopticon-report-email-web.lua
index dd8cff6..622b0be 100755
--- a/apt-panopticon-report-email-web.lua
+++ b/apt-panopticon-report-email-web.lua
@@ -89,6 +89,7 @@ local status = function(hosts, host, results, typ)
 
     if to then
         result = "TIMEOUT"
+        hosts[host].passed = false;
         if not s then result = result .. "*" end
         if APT.html then
             if s then
@@ -104,6 +105,7 @@ local status = function(hosts, host, results, typ)
         end
     elseif 0 < e then
         result = "FAILED"
+        hosts[host].passed = false;
         if not s then result = result .. "*" end
         if APT.html then
             if s then
@@ -206,13 +208,15 @@ local DNSrrTest = function(hosts, k)
                 if nil ~= hosts[APT.options.roundRobin.value].IPs[APT.options.roundRobinCname.value] then
                     if nil ~= hosts[APT.options.roundRobin.value].IPs[APT.options.roundRobinCname.value][i] then
                         local log = logCount(APT.options.roundRobin.value, i)
+                        local inRR = "<font color='green'><b>&#x2705;</b></font>"
+                        if nil ~= log:find("<font color='") then inRR = "<font color='red'>&#x274c;</font>" end
                         if "" ~= log then
                             if "" == dns then dns = " " else dns = dns .. space end
-                            dns = dns .. logCount(APT.options.roundRobin.value, i)
+                            dns = dns .. inRR .. logCount(APT.options.roundRobin.value, i)
                         else
                             if "" == dns then dns = " " else dns = dns .. space end
                             if APT.html then i = "<font color='maroon'><b>" .. i .. "</b></font>" end
-                            dns = dns .. i
+                            dns = dns .. inRR .. i
                         end
                     end
                 end
@@ -246,6 +250,7 @@ local makeTable = function(web, hosts)
             if nil == v.Active then active = 'nil' else active = v.Active end
             web:write("     <tr style='background-color:dimgrey'><th>" .. k .. "</th> ")
         end
+        hosts[k].passed = true;
         local inRR      = "<font color='green'><b>&#x2705;</b></font>"
         local ftp       = "<font color='grey'><b>skip</b></font>"
         local http      = status(hosts, k, results, "http")
@@ -264,14 +269,7 @@ local makeTable = function(web, hosts)
         local week      = '<td>&nbsp;</td><td>&nbsp;</td>'
         if nil == rate then rate = '' end
 
-        -- DNS-RR test.
---      if nil == http:         find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == https:        find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == protocol:     find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == redirects:    find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == sanity:       find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == integrity:    find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
---      if nil == updated:      find('OK') then inRR = "<font color='red'>&#x274c;</font>" end
+        if not hosts[k].passed then inRR = "<font color='red'>&#x274c;</font>" end
 
         if (APT.options.roundRobin.value ~= k) and (nil ~= hosts[APT.options.roundRobin.value]) then
             if 0 == max then
@@ -323,8 +321,9 @@ local makeTable = function(web, hosts)
             week = '<td>&nbsp;' .. percentUp .. '% up</td><td>&nbsp;' .. percentUpdated .. '% updated</td>'
 --          if ('100.00' ~= percentUp) or ('100.00' ~= percentUpdated) then inRR = "<font color='red'>&#x274c;</font>" end
         end
+        if "yes" ~= hosts[k].DNSRR then inRR = " &nbsp; &nbsp; " end
 
-        web:write("<td>" .. ftp .. "&nbsp;</td><td>" .. http .. "&nbsp;</td><td>" .. https .. "&nbsp;</td><td>" .. rsync .. "&nbsp;</td><td>" .. dns ..
+        web:write("<td>" .. ftp .. "&nbsp;</td><td>" .. http .. "&nbsp;</td><td>" .. https .. "&nbsp;</td><td>" .. rsync .. "&nbsp;</td><td>" .. inRR .. " " .. dns ..
                     "&nbsp;</td><td>" .. protocol .. "&nbsp;</td><td>" .. redirects .. "&nbsp;</td><td>" .. sanity .. "&nbsp;</td><td>" .. integrity .. "&nbsp;</td>" .. '<td>' .. rate ..
                     '</td><td>' ..  updated .. '</td>&nbsp;' .. spd .. "&nbsp;" .. week .."&nbsp;</tr>\n")
         if "" ~= active then