2 files changed, 12 insertions, 5 deletions
diff --git a/apt-panopticon-report-email.lua b/apt-panopticon-report-email.lua
index e157dc1..024c32b 100755
--- a/apt-panopticon-report-email.lua
+++ b/apt-panopticon-report-email.lua
@@ -171,6 +171,8 @@ if nil == file then C("opening mirrors file - " .. e) else
                "The full list of Devuan package mirrors is available at the URL:\n\n" ..
                " https://pkgmaster.devuan.org/mirror_list.txt\n\n" ..
                'Please contact "mirrors@devuan.org" if any of the information \nin the file above needs to be amended. \n\n' ..
+                "The full results of the mirror checking is available at the URL:\n\n" ..
+                " https://sledjhamr.org/apt-panopticon/results/Report-web.html\n\n" ..
                "Please see below the current status of the Devuan Package Mirror \nnetwork:\n\n" ..
                "---- BEGIN MIRROR-STATUS ----\n")
    for k, v in orderedPairs(mirrors) do
@@ -193,10 +195,11 @@ if nil == file then C("opening mirrors file - " .. e) else
        local sanity    = "[skip]"
        local integrity = "[skip]"
        local updated   = "[skip]"
-        file:write("      http: " .. http .. " https: " .. https .. " DNS-RR: " .. dns .. " Protocol: " .. protocol .. " URL-sanity: " .. sanity .. " Integrity: " .. integrity .. " Updated: " .. updated .. "\n")
+        file:write(     "      http: " .. http .. " https: " .. https .. " DNS-RR: " .. dns .. " Protocol: " .. protocol .. "\n" ..
+                        "      URL-sanity: " .. sanity .. " Integrity: " .. integrity .. " Updated: " .. updated .. "\n")
    end
-    file:write( "==== faulty mirrors: ====\n\n" .. faulty)
+    file:write( "\n==== faulty mirrors: ====\n" .. faulty)
-    file:write( "---- END MIRROR-STATUS ----\n\n" ..
+    file:write( "\n---- END MIRROR-STATUS ----\n\n" ..
                "Thanks for your precious help in ensuring that Devuan GNU+Linux \nremains a universal, stable, dependable, free operating system.\n\n" ..
                "Love\n\n" ..
                "The Dev1Devs\n\n")
diff --git a/apt-panopticon-report-web.lua b/apt-panopticon-report-web.lua
index 75f2895..1981def 100755
--- a/apt-panopticon-report-web.lua
+++ b/apt-panopticon-report-web.lua
@@ -190,8 +190,9 @@ local m = {}
 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" ..
+    file:write( "<html><head><title>apt-panopticon results</title>\n" ..
                '</head><body bgcolor="black" text="white" alink="red" link="blue" vlink="purple">' ..
+                "<h1>Welcome to the apt-opticon results page.</h1>\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" ..
@@ -268,6 +269,9 @@ if nil == file then C("opening mirrors file - " .. e) else
                "</p>\n"
                )
    file:write(dumpTableHTML(m, "", ""))
-    file:write( "\n<br>\n\n</body></html>\n")
+    file:write( "\n<br>\n\n" ..
+                "<p>The <a href='Report-email.txt'>email report</a>.</p>" ..
+                "<p>All <a href='../results'>the logs and other output</a>.</p>" ..
+                "</body></html>\n")
    file:close()
 end