1 files changed, 14 insertions, 10 deletions
diff --git a/apt-panopticon-report-web.lua b/apt-panopticon-report-web.lua
index 7bb48b0..75f2895 100755
--- a/apt-panopticon-report-web.lua
+++ b/apt-panopticon-report-web.lua
@@ -192,7 +192,12 @@ local file, e = io.open("results/Report-web.html", "w+")
 if nil == file then C("opening mirrors file - " .. e) else
    file:write( "<html><head>\n" ..
                '</head><body bgcolor="black" text="white" alink="red" link="blue" vlink="purple">' ..
-                "Check date: " .. os.date("!%a %b %d %T %Z %Y") .. "\n<br>\n<table>\n")
+                "<p>Check time: " .. os.date("!%a %b %d %T %Z %Y") .. "</p>\n" ..
+                "<p>The full list of Devuan package mirrors is available at the URL: " ..
+                "<a href='https://pkgmaster.devuan.org/mirror_list.txt'>https://pkgmaster.devuan.org/mirror_list.txt</a><br>\n" ..
+                "Please see below the current status of the Devuan Package Mirror network:</p>\n" ..
+                "<h2>==== mirror status: ====</h2>\n<table>\n"
+                )
    for k, v in orderedPairs(mirrors) do
        local results = loadfile("results/" .. k .. ".lua")()
        file:write("     <tr><th>" .. k .. "</th> ")
@@ -213,12 +218,12 @@ if nil == file then C("opening mirrors file - " .. e) else
        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 .. "</td><td>https: " .. https .. "</td><td>DNS-RR: " ..
+        file:write("<td>http: " .. http .. "&nbsp;</td><td>https: " .. https .. "&nbsp;</td><td>DNS-RR: " ..
-                    dns .. "</td><td>Protocol: " .. protocol .. "</td><td>URL-sanity: " .. sanity ..
+                    dns .. "&nbsp;</td><td>Protocol: " .. protocol .. "&nbsp;</td><td>URL-sanity: " .. sanity ..
-                    "</td><td>Integrity: " .. integrity .. "</td><td>Updated: " .. updated .. "</td></tr>\n")
+                    "&nbsp;</td><td>Integrity: " .. integrity .. "&nbsp;</td><td>Updated: " .. updated .. "</td></tr>\n")
    end
-    file:write( "</table>\n==== faulty mirrors: ====<br>\n<br>\n" .. faulty)
+    file:write( "</table>\n<br>\n<h2>==== faulty mirrors: ====</h2>\n" .. faulty)
-    file:write( "\n<br>\nLast Failure: NOT WRITTEN YET<br>\n<br>")
+    file:write( "<br>\n<br>\n<h2>==== DNS and logs: ====</h2>\n")
    for k, v in pairs(mirrors) do
        local n = {}
@@ -255,13 +260,12 @@ if nil == file then C("opening mirrors file - " .. e) else
        end
        m[k .. " DNS entries -"] = n
    end
-    file:write("<br>\n<br>\n<br>\n" ..
+    file:write( "<p>This lists each mirror, and the DNS entries for that mirror.  " ..
-                "<p>This DNS report lists each mirror, and the DNS entries for that mirror.  " ..
+                "The links point to the log files for each FDQN / IP combination that was checked.  " ..
                "If a mirror has a CNAME, that CNAME is listed along with that CNAMEs DNS entries.  " ..
                "deb.devuan.org is the DNS round robin, which points to the mirrors that are part of the DNS-RR.  " ..
                "pkgmaster.devuan.org is the master mirror, all the others sync to it.  " ..
-                "The links point to the log files for each FDQN / IP combination that was checked.  " ..
+                "</p>\n"
-                "</p>\n<br><br>"
                )
    file:write(dumpTableHTML(m, "", ""))
    file:write( "\n<br>\n\n</body></html>\n")