From a8f47794f0275e69b34b9b239d7cc8af8f901bfc Mon Sep 17 00:00:00 2001
From: Gaming4JC <g4jc@openmailbox.org>
Date: Sun, 17 Jan 2016 20:15:07 -0500
Subject: add check-pacman-mtree per Packaging request #911
---
pcr/check-pacman-mtree/PKGBUILD | 17 ++
pcr/check-pacman-mtree/check-pacman-mtree-0.7.lua | 356 ++++++++++++++++++++++
2 files changed, 373 insertions(+)
create mode 100644 pcr/check-pacman-mtree/PKGBUILD
create mode 100644 pcr/check-pacman-mtree/check-pacman-mtree-0.7.lua
(limited to 'pcr')
diff --git a/pcr/check-pacman-mtree/PKGBUILD b/pcr/check-pacman-mtree/PKGBUILD
new file mode 100644
index 000000000..7b76f4438
--- /dev/null
+++ b/pcr/check-pacman-mtree/PKGBUILD
@@ -0,0 +1,17 @@
+# Maintainer: Luke R. <g4jc@openmailbox.org> GPG: rsa4096/3EAE8697
+# (Arch) Maintainer: https://aur.archlinux.org/account/999cgm
+
+pkgname=check-pacman-mtree
+pkgver=0.7
+pkgrel=2
+pkgdesc='pacman db mtree check size/md5/sha256/symlink'
+license=('GPL2')
+arch=('any')
+url="http://luajit.org/luajit.html"
+depends=( 'luajit' 'openssl' 'zlib' )
+source=("${pkgname}-${pkgver}.lua")
+sha512sums=('81743b6305e9b3f45b8fac2e9de096ad107cfc116c58fa2771a9e98650285bdcf1e882e34d557345b146a417adc2ad39217557db2128574704f283008bc32b3e')
+
+package() {
+ install -D -m755 "${srcdir}/${pkgname}-${pkgver}.lua" "${pkgdir}/usr/bin/${pkgname}.lua"
+}
\ No newline at end of file
diff --git a/pcr/check-pacman-mtree/check-pacman-mtree-0.7.lua b/pcr/check-pacman-mtree/check-pacman-mtree-0.7.lua
new file mode 100644
index 000000000..bfb9a5e19
--- /dev/null
+++ b/pcr/check-pacman-mtree/check-pacman-mtree-0.7.lua
@@ -0,0 +1,356 @@
+#!/usr/bin/luajit
+
+-- version 0.7
+-- https://aur.archlinux.org/packages/check-pacman-mtree/
+
+--require "strict"
+
+local ffi = require "ffi"
+
+local C = ffi.C
+local libcrypto = ffi.load("crypto")
+local libz = ffi.load("z")
+
+local function hex_from_ffi_str(s,n)
+ return string.format(string.rep('%02x',n), string.byte(ffi.string(s,n),1,n))
+end
+
+local function C_error(str)
+ return string.format(str .. ': %s', ffi.string(C.strerror(ffi.errno())))
+end
+
+
+ffi.cdef[[
+ static const int LINE_SIZE = 1024;
+ static const int BUFFER_SIZE = 32768;
+
+ //libc start
+ static const int O_RDONLY = 0;
+ static const int SEEK_SET = 0;
+ static const int SEEK_END = 2;
+ static const int ENOENT = 2;
+ char *strerror(int);
+ int open (const char *, int, ...);
+ int read(int , void *, int);
+ int close(int);
+ int lseek(int , int , int );
+ int readlink(const char *, char *,int);
+
+ //libc stop
+
+ //openssl start
+ static const int EVP_MAX_MD_SIZE = 64;
+ void *EVP_md5(void);
+ void *EVP_sha256(void);
+ void *EVP_MD_CTX_create(void);
+ int EVP_DigestInit(void *, void *);
+ int EVP_DigestUpdate(void *,const void *,int);
+ int EVP_DigestFinal_ex(void *,unsigned char *,unsigned int *);
+ void EVP_MD_CTX_destroy(void *);
+ void EVP_cleanup(void);
+ //openssl stop
+
+ //zlib start
+ void * gzopen (const char *, const char *);
+ int gzclose (void * );
+ char * gzgets (void * , char *, int );
+ //zlib stop
+]]
+
+local function printf_(...)
+ return io.write(string.format(...),"\n")
+end
+
+-- if size matches we will not do md5/sha256
+-- set size to -1 to force MD
+local function get_size_md5_sha256(file,size)
+
+ local fh,mdctx_md5,mdctx_sha256
+ local fs_size,ret_2,ret_3
+
+ do
+
+ fh = C.open(file,C.O_RDONLY)
+ if fh == -1 then return nil,C_error("open " .. file),ffi.errno() end
+
+ fs_size = C.lseek(fh,0,C.SEEK_END)
+
+ if size ~= -1 and fs_size ~= size then goto clean_up_short end
+ --goto clean_up_short
+
+
+ C.lseek(fh,0,C.SEEK_SET)
+
+ mdctx_md5 = libcrypto.EVP_MD_CTX_create()
+ mdctx_sha256 = libcrypto.EVP_MD_CTX_create()
+
+ if mdctx_md5 == nil or mdctx_sha256 == nil then
+ ret_2 = "libcrypto.EVP_MD_CTX_create md5/sha256 failed " .. file
+ goto clean_up
+ end
+
+ local md_value_md5 = ffi.new("char[?]",C.EVP_MAX_MD_SIZE)
+ local md_value_sha256 = ffi.new("char[?]",C.EVP_MAX_MD_SIZE)
+
+ local md_len_md5 = ffi.new("int[1]")
+ local md_len_sha256 = ffi.new("int[1]")
+
+ local buffer = ffi.new("char[?]",C.BUFFER_SIZE)
+
+ if md_value_md5 == nil or md_value_sha256 == nil or md_len_md5 == nil or
+ md_len_sha256 == nil or buffer == nil then
+ ret_2 = "ffi.new failed " ..file
+ goto clean_up
+ end
+
+ if libcrypto.EVP_DigestInit(mdctx_md5, libcrypto.EVP_md5()) ~= 1 or
+ libcrypto.EVP_DigestInit(mdctx_sha256, libcrypto.EVP_sha256()) ~= 1 then
+ ret_2 = "libcrypto.EVP_DigestInit md5/sha256 failed " .. file
+ goto clean_up
+ end
+
+ while (1) do
+ local n = C.read(fh,buffer, C.BUFFER_SIZE)
+ --we should make something better for read ret < 0
+ if n <= 0 then break end
+ if libcrypto.EVP_DigestUpdate(mdctx_md5,buffer,n) ~= 1 or
+ libcrypto.EVP_DigestUpdate(mdctx_sha256,buffer,n) ~= 1 then
+ ret_2 = "libcrypto.EVP_DigestUpdate md5/sha256 failed " .. file
+ goto clean_up
+ end
+ end
+
+ if libcrypto.EVP_DigestFinal_ex(mdctx_md5, md_value_md5, md_len_md5) ~= 1 or
+ libcrypto.EVP_DigestFinal_ex(mdctx_sha256, md_value_sha256, md_len_sha256) ~= 1 then
+ ret_2 = "libcrypto.EVP_DigestFinal_ex md5/sha256 failed " .. file
+ goto clean_up
+ end
+
+ ret_2,ret_3 = hex_from_ffi_str(md_value_md5,md_len_md5[0]),hex_from_ffi_str(md_value_sha256,md_len_sha256[0])
+
+ end
+
+ ::clean_up::
+ if mdctx_md5 ~= nil then libcrypto.EVP_MD_CTX_destroy(mdctx_md5) end
+ if mdctx_sha256 ~= nil then libcrypto.EVP_MD_CTX_destroy(mdctx_sha256) end
+
+ ::clean_up_short::
+ if fh >= 0 then C.close(fh) end
+
+ return fs_size,ret_2,ret_3
+
+end
+
+local function get_symlink(file)
+ local line = ffi.new("char[?]",C.LINE_SIZE)
+ if line == nil then return nil,"ffi.new failed " ..file end
+ local size = C.readlink(file,line,C.LINE_SIZE-1)
+
+ if size == -1 then return nil,C_error("readlink " .. file),ffi.errno() end
+
+ return ffi.string(line,size)
+end
+
+local function check_1_mtree_file(pkg,fs_root,verbose,file)
+ local line = ffi.new("char[?]",C.LINE_SIZE)
+ if line == nil then return nil,"ffi.new failed " ..file end
+
+ local gz_fh = libz.gzopen(file,"r")
+ if gz_fh == nil then return nil,C_error("gzopen " .. file) end
+ --libz.gzbuffer(gz_fh,65536)
+
+ local file,root_file,size,md5,sha256
+ local fs_size,symlink_linkto,link_fs
+ local status,msg,aaa,bbb
+ local l_line
+ while(1) do
+ if libz.gzgets(gz_fh,line,C.LINE_SIZE) == nil then break end
+
+ l_line = ffi.string(line)
+ file,size,md5,sha256 = string.match(l_line, "^(%S+) .* size=(%S+) md5digest=(%S+) sha256digest=(%S+)")
+ if file and size and md5 and sha256 then
+ if size then size=tonumber(size) end
+ else
+ file,symlink_linkto = string.match(l_line,"^(%S+) .* type=link link=(.*)%s$")
+ if file and symlink_linkto then
+ --printf_("symlink_name=%s symlink_linkto=%s",file,symlink_linkto)
+ symlink_linkto = string.gsub(symlink_linkto,"\\%d%d%d",
+ function(str) return string.char(tonumber(string.sub(str,2,-1),8)) end
+ )
+ else goto continue
+ end
+ end
+
+ --print (file,size,md5,sha256)
+ file = string.gsub(file,"^%./","",1)
+ if file == '.PKGINFO' or file == '.INSTALL' or file == '.CHANGELOG' then
+ goto continue
+ end
+
+ file = string.gsub(file,"\\%d%d%d",
+ function(str) return string.char(tonumber(string.sub(str,2,-1),8)) end
+ )
+ --print (file,size,md5,sha256)
+ root_file = fs_root .. file
+
+ if not size then
+ --goto continue
+ -- we are here so this is not a file, so maybe symlink or other type
+ link_fs,aaa,bbb = get_symlink(root_file)
+ -- status is nil so in aaa we have str_err and in bbb we have C.errno
+ if link_fs == nil then
+ if(bbb == C.ENOENT) then
+ --if(string.match(msg,"No such file")) then
+ if verbose > 0 then
+ printf_("EXTRA_MTREE pkg=%s symlink=%s link=%s",pkg,file,symlink_linkto)
+ else
+ printf_("EXTRA_MTREE pkg=%s symlink=%s",pkg,file)
+ end
+ else
+ printf_("FAIL check_symlink %s",aaa)
+ end
+ else
+ if link_fs ~= symlink_linkto then
+ if verbose > 0 then
+ printf_("DIFF pkg=%s symlink=%s link_mtree=%s link_fs=%s",pkg,file,symlink_linkto,link_fs)
+ else
+ printf_("DIFF pkg=%s symlink=%s",pkg,file)
+ end
+ end
+ end
+
+ goto continue
+ end
+
+ -- here we are in type=file case
+
+ -- goto continue
+
+ if verbose > 0 then fs_size,aaa,bbb = get_size_md5_sha256(root_file,-1)
+ else fs_size,aaa,bbb = get_size_md5_sha256(root_file,size)
+ end
+
+ if not fs_size then
+ -- fs_size is nil so in aaa we have str_err and in bbb we have C.errno
+ if(bbb == C.ENOENT) then
+ --if(string.match(msg,"No such file")) then
+ if verbose > 0 then
+ printf_("EXTRA_MTREE pkg=%s file=%s size_mtree=%s md5_mtree=%s sha256_mtree=%s",pkg,file,size,md5,sha256)
+ else
+ printf_("EXTRA_MTREE pkg=%s file=%s",pkg,file)
+ end
+ else
+ printf_("FAIL get_size_md5_sha256 %s",aaa)
+ end
+ goto continue
+ end
+
+ --print(file,type(size),size,type(fs_size),fs_size,aaa,bbb)
+ if fs_size ~= size or aaa ~= md5 or bbb ~= sha256 then
+ if verbose > 0 then
+ printf_("DIFF pkg=%s file=%s size_mtree=%d size_fs=%d md5_mtree=%s md5_fs=%s sha256_mtree=%s sha256_fs=%s",pkg,file,size,fs_size,md5,aaa,sha256,bbb)
+ else
+ printf_("DIFF pkg=%s file=%s",pkg,file)
+ end
+ goto continue
+ end
+
+
+ --printf_("MATCH pkg=%s file=%s",pkg,file)
+
+ --C.printf("LINE %s",line)
+
+ ::continue::
+ end
+
+ libz.gzclose(ffi.gc(gz_fh,nil))
+
+ return true
+end
+
+
+local function main(arg)
+ local mtree_root = "/var/lib/pacman/local"
+ local fs_root = "/"
+ local pacman_list_pkg = "pacman -Q"
+ local msg
+ local check_all_pkgs = false
+ local verbose = 0
+
+ if not arg[1] then
+ print("usage: " .. arg[0] .. " [ -a | pkg1 pkg2...] [-v | -vv] )")
+ print("-a = all pkgs")
+ print("-v = verbose(include size/md5/sha256)")
+ print("-vv = even more verbose(show PKG= lines)")
+ --printf_("%c%c%c@%04x.%c%c%c",99,103,109,255,110,101,116)
+
+ return -1
+ end
+
+ for i,v in pairs(arg) do
+ if i < 1 then goto continue end
+ if v == '-v' then
+ verbose = verbose + 1
+ arg[i] = nil
+ elseif v == '-vv' then
+ verbose = verbose + 2
+ arg[i] = nil
+ elseif v == '-a' then
+ check_all_pkgs = true
+ elseif v == '-av' then
+ check_all_pkgs = true
+ verbose = verbose + 1
+ elseif v == '-avv' then
+ check_all_pkgs = true
+ verbose = verbose + 2
+ end
+ ::continue::
+ end
+
+ --local file = io.stdin
+ --if arg[1] and arg[1] ~= '-' then
+ -- file,msg = io.open (arg[1])
+ -- assert(file,msg)
+ --end
+
+ local fh_cmd,msg = io.popen(pacman_list_pkg,"r")
+ if not fh_cmd then
+ printf_("pacman cmd error %s",msg)
+ return
+ end
+
+ for pkg in fh_cmd:lines() do
+ --for pkg in io.stdin:lines() do
+ --for pkg in lfs.dir(mtree_root) do
+ if pkg == "." or pkg == ".." then goto continue end
+
+ if not check_all_pkgs then
+ local match = false
+ for i,k in pairs(arg) do
+ if i >= 1 and string.match(pkg,k) then
+ match = true
+ break
+ end
+ end
+ if not match then goto continue end
+
+ end
+ pkg = string.gsub(pkg," ","-")
+ --local pkg,ver = string.match(line, "^(%S+) (%S+)")
+ if verbose > 1 then printf_("PKG=%s",pkg) end
+ local ret,msg = check_1_mtree_file(pkg,fs_root,verbose,string.format("%s/%s/mtree",mtree_root,pkg))
+ if not ret then printf_("FAIL mtree_file pkg=%s %s",pkg,msg) end
+
+ ::continue::
+ end
+
+ fh_cmd:close()
+ --if file ~= io.stdin then file:close() end
+
+ libcrypto.EVP_cleanup()
+end
+-----------------------------------------------------------
+-----------------------------------------------------------
+--print(check_symlink(arg[1],arg[2]))
+--print(get_openssl_evp_md5_sha256_for_file(arg[1]))
+return main(arg)
--
cgit v1.2.3-2-g168b