Add support for hooks

src/common.lua

@@ -86,6 +86,44 @@ function notifirc_all(seq)
     end
 end
 
+function hook_all(seq, hname, ...)
+    --
+    -- Call hook hname for all messages in seq
+    --
+    local hfile = os.getenv("IMAPFILTER_HOME") .. "/hooks/" .. hname
+    local hargs = {...}
+    local harg
+    local hcmd = hfile
+    local fmt = ' %q'
+    if file_exists(hfile) then
+        for _, harg in pairs(hargs) do
+            hcmd = hcmd .. fmt:format(harg)
+        end
+        for _, mesg in ipairs(seq) do
+            mbox, uid = table.unpack(mesg)
+            subj = mbox[uid]:fetch_field('Subject')
+            from = mbox[uid]:fetch_field('From')
+            to = mbox[uid]:fetch_field('To')
+            date = mbox[uid]:fetch_field('Date')
+            body = mbox[uid]:fetch_body()
+            _hook1(hcmd, subj, from, to, date, body)
+        end
+    else
+        error("no such hook: " .. hname)
+        return nil
+    end
+end
+
+function _hook1(hcmd, subj, from, to, date, body)
+    --
+    -- push message through hook script
+    --
+    local fd = assert(io.popen(hcmd, "w"))
+    local fmt = "subj=%s\nfrom=%s\nto=%s\ndate=%s\n%s"
+    fd:write(fmt:format(subj, from, to, date, body))
+    fd:close()
+end
+
 function _partinf_compare(a, b)
     if not type(a) == type(b) then
         return false