aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
-rwxr-xr-xapt-panopticon-report-web.lua24
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+")
192if nil == file then C("opening mirrors file - " .. e) else 192if nil == file then C("opening mirrors file - " .. e) else
193 file:write( "<html><head>\n" .. 193 file:write( "<html><head>\n" ..
194 '</head><body bgcolor="black" text="white" alink="red" link="blue" vlink="purple">' .. 194 '</head><body bgcolor="black" text="white" alink="red" link="blue" vlink="purple">' ..
195 "Check date: " .. os.date("!%a %b %d %T %Z %Y") .. "\n<br>\n<table>\n") 195 "<p>Check time: " .. os.date("!%a %b %d %T %Z %Y") .. "</p>\n" ..
196 "<p>The full list of Devuan package mirrors is available at the URL: " ..
197 "<a href='https://pkgmaster.devuan.org/mirror_list.txt'>https://pkgmaster.devuan.org/mirror_list.txt</a><br>\n" ..
198 "Please see below the current status of the Devuan Package Mirror network:</p>\n" ..
199 "<h2>==== mirror status: ====</h2>\n<table>\n"
200 )
196 for k, v in orderedPairs(mirrors) do 201 for k, v in orderedPairs(mirrors) do
197 local results = loadfile("results/" .. k .. ".lua")() 202 local results = loadfile("results/" .. k .. ".lua")()
198 file:write(" <tr><th>" .. k .. "</th> ") 203 file:write(" <tr><th>" .. k .. "</th> ")
@@ -213,12 +218,12 @@ if nil == file then C("opening mirrors file - " .. e) else
213 local sanity = "[<font color='gray'><b>skip</b></font>]" 218 local sanity = "[<font color='gray'><b>skip</b></font>]"
214 local integrity = "[<font color='gray'><b>skip</b></font>]" 219 local integrity = "[<font color='gray'><b>skip</b></font>]"
215 local updated = "[<font color='gray'><b>skip</b></font>]" 220 local updated = "[<font color='gray'><b>skip</b></font>]"
216 file:write("<td>http: " .. http .. "</td><td>https: " .. https .. "</td><td>DNS-RR: " .. 221 file:write("<td>http: " .. http .. "&nbsp;</td><td>https: " .. https .. "&nbsp;</td><td>DNS-RR: " ..
217 dns .. "</td><td>Protocol: " .. protocol .. "</td><td>URL-sanity: " .. sanity .. 222 dns .. "&nbsp;</td><td>Protocol: " .. protocol .. "&nbsp;</td><td>URL-sanity: " .. sanity ..
218 "</td><td>Integrity: " .. integrity .. "</td><td>Updated: " .. updated .. "</td></tr>\n") 223 "&nbsp;</td><td>Integrity: " .. integrity .. "&nbsp;</td><td>Updated: " .. updated .. "</td></tr>\n")
219 end 224 end
220 file:write( "</table>\n==== faulty mirrors: ====<br>\n<br>\n" .. faulty) 225 file:write( "</table>\n<br>\n<h2>==== faulty mirrors: ====</h2>\n" .. faulty)
221 file:write( "\n<br>\nLast Failure: NOT WRITTEN YET<br>\n<br>") 226 file:write( "<br>\n<br>\n<h2>==== DNS and logs: ====</h2>\n")
222 227
223 for k, v in pairs(mirrors) do 228 for k, v in pairs(mirrors) do
224 local n = {} 229 local n = {}
@@ -255,13 +260,12 @@ if nil == file then C("opening mirrors file - " .. e) else
255 end 260 end
256 m[k .. " DNS entries -"] = n 261 m[k .. " DNS entries -"] = n
257 end 262 end
258 file:write("<br>\n<br>\n<br>\n" .. 263 file:write( "<p>This lists each mirror, and the DNS entries for that mirror. " ..
259 "<p>This DNS report lists each mirror, and the DNS entries for that mirror. " .. 264 "The links point to the log files for each FDQN / IP combination that was checked. " ..
260 "If a mirror has a CNAME, that CNAME is listed along with that CNAMEs DNS entries. " .. 265 "If a mirror has a CNAME, that CNAME is listed along with that CNAMEs DNS entries. " ..
261 "deb.devuan.org is the DNS round robin, which points to the mirrors that are part of the DNS-RR. " .. 266 "deb.devuan.org is the DNS round robin, which points to the mirrors that are part of the DNS-RR. " ..
262 "pkgmaster.devuan.org is the master mirror, all the others sync to it. " .. 267 "pkgmaster.devuan.org is the master mirror, all the others sync to it. " ..
263 "The links point to the log files for each FDQN / IP combination that was checked. " .. 268 "</p>\n"
264 "</p>\n<br><br>"
265 ) 269 )
266 file:write(dumpTableHTML(m, "", "")) 270 file:write(dumpTableHTML(m, "", ""))
267 file:write( "\n<br>\n\n</body></html>\n") 271 file:write( "\n<br>\n\n</body></html>\n")