1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
#!/usr/bin/env luajit
local args = {...}
verbosity = -1
local logFile
--[[ Ordered table iterator, allow to iterate on the natural order of the keys of a table.
From http://lua-users.org/wiki/SortedIteration
]]
function __genOrderedIndex( t )
local orderedIndex = {}
for key in pairs(t) do
table.insert( orderedIndex, key )
end
table.sort( orderedIndex )
return orderedIndex
end
function orderedNext(t, state)
-- Equivalent of the next function, but returns the keys in the alphabetic
-- order. We use a temporary ordered key table that is stored in the
-- table being iterated.
local key = nil
--print("orderedNext: state = "..tostring(state) )
if state == nil then
-- the first time, generate the index
t.__orderedIndex = __genOrderedIndex( t )
key = t.__orderedIndex[1]
else
-- fetch the next value
for i = 1,table.getn(t.__orderedIndex) do
if t.__orderedIndex[i] == state then
key = t.__orderedIndex[i+1]
end
end
end
if key then
return key, t[key]
end
-- no more value to return, cleanup
t.__orderedIndex = nil
return
end
function orderedPairs(t)
-- Equivalent of the pairs() function on tables. Allows to iterate
-- in order
return orderedNext, t, nil
end
local results = {}
local log = function(v, t, s, prot, test, host)
local x = ""
if nil == prot then prot = "" end
if nil ~= test then x = x .. test else 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)
end
if nil ~= logFile then
logFile:write(os.date() .. " " .. t .. ": " .. s .. "\n")
logFile:flush()
end
end
local D = function(s) log(3, "DEBUG ", s) end
local I = function(s) log(2, "INFO ", s) end
local W = function(s, p, t, h) log(1, "WARNING ", s, p, t, h) end
local E = function(s, p, t, h) log(0, "ERROR ", s, p, t, h) end
local C = function(s) log(-1, "CRITICAL", s) end
local faulty = ""
local status = function(host, results, typ)
local result = ""
local e = 0
local w = 0
if nil ~= results[typ] then
e = results[typ].errors
w = results[typ].warnings
for k, v in pairs(results[typ]) do
if "table" == type(v) then
e = e + v.errors
w = w + v.warnings
end
end
else
for k, v in pairs(results) do
if "table" == type(v) then
for i, u in pairs(v) do
if "table" == type(u) then
if typ == i then
e = e + u.errors
w = w + u.warnings
end
end
end
end
end
end
if 0 < e then result = e .. " <font color='red'><b>error</b></font>" end
if 1 == e then result = e .. " <font color='red'><b>error</b></font>" end
if 0 < w then
if 0 < e then result = result .. ", " end
if 1 == w then
result = result .. w .. " <font color='blue'><b>warning</b></font>"
else
result = result .. w .. " <font color='blue'><b>warnings</b></font>"
end
end
if "[OK]" ~= result then
if 0 < e then
result = "[<font color='red'><b>FAILED</b></font>] (" .. result .. ")"
faulty = faulty .. host .. " (" .. typ .. ")<br>\n"
elseif 0 < w then
result = "[<font color='green'><b>OK</b></font>] (" .. result .. ")"
else
result = "[<font color='green'><b>OK</b></font>]"
end
end
return result
end
local collate = function(host, ip, results)
local f = "results/" .. host .. "_" .. ip .. ".lua"
local rfile, e = io.open(f, "r")
if nil == rfile then I("opening " .. f .. " file - " .. e) else
rfile:close()
local rs = loadfile(f)()
for k, v in pairs(rs) do
if "table" == type(v) then
for i, u in pairs(v) do
if "table" == type(u) then
for h, t in pairs(u) do
local a = results[k][h]
if nil == a then a = 0 end
results[k][h] = a + t
end
else
local a = results[k][i]
if nil == a then a = 0 end
results[k][i] = a + u
end
end
else
local a = results[k]
if nil == a then a = 0 end
results[k] = a + v
end
end
end
return results
end
local mirrors = loadfile("results/mirrors.lua")()
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")
for k, v in orderedPairs(mirrors) do
local results = loadfile("results/" .. k .. ".lua")()
file:write(" " .. k .. ".... ")
local IPs = v.IPs
for i, u in pairs(IPs) do
if "table" == type(u) then
for h, t in pairs(u) do
results = collate(k, h, results)
end
else
results = collate(k, i, results)
end
end
-- local http = status(k, results, "http")
-- local https = status(k, results, "https")
local dns = "[<font color='yellow'><b>skip</b></font>]"
local integrity = "[<font color='yellow'><b>skip</b></font>]"
local protocol = status(k, results, "Protocol")
local sanity = "[<font color='yellow'><b>skip</b></font>]"
local updated = "[<font color='yellow'><b>skip</b></font>]"
file:write(" DNS-RR: " .. dns .. " Integrity: " .. integrity .. " Protocol: " .. protocol .. " URL-sanity: " .. sanity .. " Updated: " .. updated .. "\n<br>\n")
end
file:write( "==== faulty mirrors: ====<br>\n<br>\n" .. faulty)
file:write( "\n<br>\nLast Failure: NOT WRITTEN YET<br>\n<br>")
file:write( "\n<br>\n\n</body></html>\n")
file:close()
end
|