Test and report speed.

1 files changed, 33 insertions, 3 deletions

diff --git a/apt-panopticon-report-email-web.lua b/apt-panopticon-report-email-web.lua
index fc1f345..131c803 100755
--- a/apt-panopticon-report-email-web.lua
+++ b/apt-panopticon-report-email-web.lua
@@ -75,6 +75,11 @@ dumpTableHTMLSub = function (table, space)
     return r
 end
 
+local checkFile = function(f)
+    local h, e = io.open(f, "r")
+    if nil == h then return false else h:close();  return true end
+end
+
 local plurals = function(e, w)
     local result = ""
     if 1 == e then
@@ -393,7 +398,7 @@ if nil == web then C("opening mirrors file - " .. e) else
                 "<a href='https://pkgmaster.devuan.org/mirror_list.txt'>https://pkgmaster.devuan.org/mirror_list.txt</a></p>\n" ..
                 "<p>Due to the nature of the tests, some errors or warnings will be counted several times. &nbsp; " ..
                 "The links in the table and DNS list go to the detailed testing logs.</p>\n\n" ..
-                "<hr>\n<h2>==== package mirror status " .. os.date("!%Y-%m-%d %H:%M") .. " GMT ====</h2>\n<table>\n" ..
+                "<hr>\n<h2>==== package mirror status " .. os.date("!%Y-%m-%d %H:%M") .. " GMT ====</h2>\n" ..
 
                 "<p>[<font color='red'><b>FAILED</b></font>] or [<font color='lime'><b>OK</b></font>]" ..
                 " means the tested thing is supported for that mirror.</p>\n" ..
@@ -407,7 +412,8 @@ if nil == web then C("opening mirrors file - " .. e) else
                 "<p>The time in the Updated column is how often the mirror updates itself.</p>" ..
                 "<p>Mirrors with a <font style='background-color:dimgrey'>grey background</font> are not active (though may be usable as part of the DNS-RR).</p>\n" ..
                 "<p>[<font color='grey'><b>skip</b></font>] means that the test hasn't been written yet.</p>\n" ..
-                "<tr><th></th><th>FTP</th><th>HTTP</th><th>HTTPS</th><th>RSYNC</th><th>DNS round robin</th><th>Protocol</th><th>URL sanity</th><th>Integrity</th><th>Updated</th></tr>\n"
+                "<table>\n<tr><th></th><th>FTP</th><th>HTTP</th><th>HTTPS</th><th>RSYNC</th><th>DNS round robin</th>" ..
+                "<th>Protocol</th><th>URL sanity</th><th>Integrity</th><th>Updated</th><th colspan='2'>Speed</th></tr>\n"
                 )
     for k, v in orderedPairs(mirrors) do
         local results = loadfile("results/" .. k .. ".lua")()
@@ -439,6 +445,7 @@ if nil == web then C("opening mirrors file - " .. e) else
         local updated   = status(k, results, "Updated")
         local rate = v.Rate
         if nil ~= rate then updated = updated .. ' ' .. rate end
+        local min, max, spd = 999999999999, 0, ''
 
         -- DNS-RR test.
         if ("deb.devuan.org" ~= k) and (nil ~= mirrors["deb.devuan.org"]) then
@@ -470,11 +477,34 @@ if nil == web then C("opening mirrors file - " .. e) else
                 end
             end
             if "" == dns then dns = "[<font color='grey'><b>no</b></font>]" end
+
+            for i, mt in pairs({'Release', 'Packages', 'META'}) do
+                if checkFile("results/curl-" .. mt .. "-" .. k .. ".log") then
+                    for l in io.lines("results/curl-" .. mt .. "-" .. k .. ".log") do
+                        local speed, crrnt = l:match('^%c *%d+ +%d+k? +%d+ +%d+k? +%d+ +%d+ +(%d+k?) +%d+ +[%d%-]+:[%d%-]+:[%d%-]+ +[%d%-]+:[%d%-]+:[%d%-]+ +[%d%-]+:[%d%-]+:[%d%-]+ +(%d+k?)')
+                        if nil ~= speed then
+                            if 'k' == speed:sub(-1, -1) then speed = speed:sub(1, -2) .. '000' end
+                            if 'k' == crrnt:sub(-1, -1) then crrnt = crrnt:sub(1, -2) .. '000' end
+                            speed = tonumber(speed)
+                            crrnt = tonumber(crrnt)
+                            if speed < min and speed ~= 0 then min = speed end
+                            if speed > max                then max = speed end
+                            if crrnt < min and crrnt ~= 0 then min = crrnt end
+                            if crrnt > max                then max = crrnt end
+                        end
+                    end
+                end
+            end
+            if 0 == max then
+                spd = '<td></td><td></td>'
+            else
+                spd = string.format('<td align="right">%d -></td><td align="right">%d</td>', min, max)
+            end
         end
 
         web:write("<td>" .. ftp .. "&nbsp;</td><td>" .. http .. "&nbsp;</td><td>" .. https .. "&nbsp;</td><td>" .. rsync .. "&nbsp;</td><td>" .. dns ..
                     "&nbsp;</td><td>" .. protocol .. "&nbsp;</td><td>" .. sanity ..
-                    "&nbsp;</td><td>" .. integrity .. "&nbsp;</td><td>" .. updated .. "</td></tr>\n")
+                    "&nbsp;</td><td>" .. integrity .. "&nbsp;</td><td>" .. updated .. "&nbsp;</td>" .. spd .. "</tr>\n")
         if "" ~= v.Active then
             web:write("<tr><td style='background-color:dimgrey'>" .. active .. "</td></tr>\n")
         end