aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xapt-panopticon.lua32
1 files changed, 18 insertions, 14 deletions
diff --git a/apt-panopticon.lua b/apt-panopticon.lua
index 2a65d0b..de6f271 100755
--- a/apt-panopticon.lua
+++ b/apt-panopticon.lua
@@ -1036,23 +1036,27 @@ if 0 < #arg then
1036 for l in nfile:lines() do 1036 for l in nfile:lines() do
1037 local v, p, sz, m, sha = l:match(' | (.+) | (pool/.+%.deb) | (%d.+) | (%x.+) | (%x.+) |') 1037 local v, p, sz, m, sha = l:match(' | (.+) | (pool/.+%.deb) | (%d.+) | (%x.+) | (%x.+) |')
1038 if nil ~= p then 1038 if nil ~= p then
1039 local status, fsz = execute('ls -l results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 5-5') 1039 if checkFile('results/' .. pu.host .. "/merged/" .. p) then
1040 if testing("Integrity") then 1040 local status, fsz = execute('ls -l results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 5-5')
1041 if sz ~= fsz:sub(2, -2) then -- The sub bit is to slice off the EOLs at each end. 1041 if testing("Integrity") then
1042 E('Package size mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host) 1042 if sz ~= fsz:sub(2, -2) then -- The sub bit is to slice off the EOLs at each end.
1043 print('|' .. sz .. '~=' .. fsz:sub(2, -2) .. '|') 1043 E('Package size mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host)
1044 else 1044 print('|' .. sz .. '~=' .. fsz:sub(2, -2) .. '|')
1045 local status, fm = execute('md5sum results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 1') 1045 else
1046 if m ~= fm:sub(2, -2) then E('Package MD5 sum mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host) end 1046 local status, fm = execute('md5sum results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 1')
1047 local status, fsha = execute('sha256sum results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 1') 1047 if m ~= fm:sub(2, -2) then E('Package MD5 sum mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host) end
1048 if sha ~= fsha:sub(2, -2) then E('Package SHA256 sum mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host) end 1048 local status, fsha = execute('sha256sum results/' .. pu.host .. "/merged/" .. p .. ' | cut -d " " -f 1')
1049 if sha ~= fsha:sub(2, -2) then E('Package SHA256 sum mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Integrity', pu.host) end
1049-- TODO - maybe check the PGP key, though packages are mostly not signed. 1050-- TODO - maybe check the PGP key, though packages are mostly not signed.
1051 end
1050 end 1052 end
1051 end 1053 if testing("Updated") then
1052 if testing("Updated") then 1054 if sz ~= fsz:sub(2, -2) then
1053 if sz ~= fsz:sub(2, -2) then 1055 E('Package size mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Updated', pu.host)
1054 E('Package size mismatch - results/' .. pu.host .. "/merged/" .. p, 'http', 'Updated', pu.host) 1056 end
1055 end 1057 end
1058 else
1059 E('Failed to download - results/' .. pu.host .. "/merged/" .. p, 'http', 'Updated', pu.host)
1056 end 1060 end
1057 end 1061 end
1058 end 1062 end