1 files changed, 18 insertions, 13 deletions

diff --git a/mirror-checker.lua b/mirror-checker.lua
index 71c9c34..ae1b9b9 100755
--- a/mirror-checker.lua
+++ b/mirror-checker.lua
@@ -123,9 +123,14 @@ dumpTableSub = function (table, space)
     end
     return r
 end
-
-
-local log = function(v, t, s)
+local log = function(v, t, s, test, host)
+    local x = ""
+    if nil ~= test then x = x .. test end
+    if nil ~= host then
+        if #x > 0 then x = x .. " " end
+        x = x .. host
+    end
+    if #x > 0 then t = t .. "(" .. x ..  ")" end
     if v <= verbosity then
         if 3 <= verbosity then t = os.date() .. " " .. t end
         print(t .. ": " .. s)
@@ -137,8 +142,8 @@ local log = function(v, t, s)
 end
 local D = function(s) log(3,  "DEBUG   ", s) end
 local I = function(s) log(2,  "INFO    ", s) end
-local W = function(s) log(1,  "WARNING ", s) end
-local E = function(s) log(0,  "ERROR   ", s) end
+local W = function(s, t, h) log(1,  "WARNING ", s, t, h) end
+local E = function(s, t, h) log(0,  "ERROR   ", s, t, h) end
 local C = function(s) log(-1, "CRITICAL", s) end
 
 local mirrors = {}
@@ -201,6 +206,8 @@ checkHEAD = function (host, URL, r, retry)
     if nil == r then r = 0 end
     if nil == retry then retry = 0 end
     local check = "Checking file"
+    local PU = url.parse(URL, defaultURL)
+    local pu = url.parse(PU.scheme .. "://" .. host, defaultURL)
     if 0 < r then
         check = "Redirecting to"
     end
@@ -209,15 +216,13 @@ checkHEAD = function (host, URL, r, retry)
         check = "Retry " .. retry .. " " .. check
     end
     if 20 < r then
-        E("too many redirects!  " .. check .. " " .. host .. " -> " .. URL)
+        E("too many redirects!  " .. check .. " " .. host .. " -> " .. URL, PU.scheme, host)
         return
     end
     if 10 < retry then
-        E("too many retries!  " .. check .. " " .. host .. " -> " .. URL)
+        E("too many retries!  " .. check .. " " .. host .. " -> " .. URL, PU.scheme, host)
         return
     end
-    local PU = url.parse(URL, defaultURL)
-    local pu = url.parse(PU.scheme .. "://" .. host, defaultURL)
     D(PU.scheme .. " ://  " .. check .. " " .. host .. " -> " .. URL)
     if not testing(PU.scheme, host) then D("Not testing " .. PU.scheme .. " " .. host .. " -> " .. URL);  return end
     -- TODO - Perhaps we should try it anyway, and mark it as a warning if it DOES work?
@@ -232,13 +237,13 @@ checkHEAD = function (host, URL, r, retry)
     local p, c, h, s = htp.request{method = "HEAD", redirect = false, url = URL, headers = hd, protocol = "any", options = "all"}
     if nil == s then s = "" end
     if nil == p then
-        E("  " .. c .. " " .. s .. "!   " .. check .. " " .. host .. " -> " .. URL)
+        E("  " .. c .. " " .. s .. "!   " .. check .. " " .. host .. " -> " .. URL, PU.scheme, host)
         -- So far the only errors are "timeout", "Network is unreachable", and "closed", and I suspect "closed" is due to saturating my bandwidth.
         -- Might be worthwhile retrying those, some number of times.
         if ("closed" == c) or ("Network is unreachable" == c) or ("timeout" == c) then checkHEAD(host, URL, r, retry + 1) end
     else
         if ("4" == tostring(c):sub(1, 1)) or ("5" == tostring(c):sub(1, 1)) then
-            E("  " .. c .. " " .. s .. ".   " .. check .. " " .. host .. " -> " .. URL)
+            E("  " .. c .. " " .. s .. ".   " .. check .. " " .. host .. " -> " .. URL, PU.scheme, host)
         else
             I("  " .. c .. " " .. s .. ".   " .. check .. " " .. host .. " -> " .. URL)
         end
@@ -246,12 +251,12 @@ checkHEAD = function (host, URL, r, retry)
         if nil ~= l then
             pu = url.parse(l, defaultURL)
             if (pu.scheme ~= PU.scheme) then
-                if testing("Protocol") then W("    protocol changed during redirect!  " .. check .. " " .. host .. " -> " .. URL .. " -> " .. l) end
+                if testing("Protocol") then W("    protocol changed during redirect!  " .. check .. " " .. host .. " -> " .. URL .. " -> " .. l, PU.scheme, host) end
                 if (pu.host == host) and pu.path == PU.path then D("Not testing protocol change " .. URL .. " -> " .. l);  return end
             end
 
             if l == URL then
-                E("    redirect loop!  " .. check .. " " .. host .. " -> " .. URL)
+                E("    redirect loop!  " .. check .. " " .. host .. " -> " .. URL, PU.scheme, host)
             elseif nil == pu.host then
                 I("    relative redirect.  " .. check .. " " .. host .. " -> " .. URL .. " -> " .. l)
                 checkHEAD(host, PU.scheme .. "://" .. PU.host .. l, r + 1)