diff options
| -rw-r--r-- | unstable/hypermail/mdir2mbox.lua | 96 |
1 files changed, 96 insertions, 0 deletions
diff --git a/unstable/hypermail/mdir2mbox.lua b/unstable/hypermail/mdir2mbox.lua new file mode 100644 index 00000000..dd883e02 --- /dev/null +++ b/unstable/hypermail/mdir2mbox.lua @@ -0,0 +1,96 @@ +#!/usr/bin/lua +-- This script takes a mlmmj archive "maildir format" directory and +-- writes out an mbox formatted file to stdout +-- Copyright (c) 2009 N. Angelacos under the GPL 2 License + +require "posix" + +-- command line parser, or exit +check_command_line = function () + local source_dir = arg[1] + local source_time = arg[2] + + if (source_dir == nil ) then + io.stderr:write("mdir2mbox source_dir [hours]\n" .. + "Writes an mbox formatted file to stdout from the files in source_dir\n" .. + "If [hours] is given, then only files newer then [hours] are processed\n") + os.exit(-1) + end + + if (posix.stat(source_dir, "type") ~= "directory") then + io.stderr:write(source_dir .. " is not a directory\n") + os.exit(-1) + end + + return source_dir, source_time +end + +-- Get candidates +get_candidates = function (source, hours) + local all = posix.dir(source) + local candidates = {} + local timestamp = 0 + + if (hours) then + timestamp = os.time() - hours * 3600 + end + + for k,v in ipairs(all) do + local st = posix.stat(source .. "/" .. v) + if (st) and (st.type == "regular") and (st.mtime > timestamp) then + table.insert(candidates,source .. "/" .. v) + end + end + + return candidates +end + +file_to_mbox = function (path) + local fh = io.open(path) + if (fh == nil) then + return + end + local headers = "" + local l = "" + -- get headers + repeat + headers = headers .. l + l = (fh:read("*l") or "" ) .. "\n" + until (#l == 1) + + local from = string.match("\n" .. headers, "\nFrom: ([^\n]*)") + if from == nil then + from = string.match("\n" .. headers, "\nReply-To: ([^\n]*)") + end + if from == nil then + from = "<nobody@nowhere.com>" + end + from = string.match(from, "<([^>]*)>") or string.match(from, "([^ ]*)") + + + local date = string.match("\n" .. headers, "\nDate: ([^\n]*)") + if date == nil then + date = os.date ("%c", posix.stat(path, "mtime")) + end + local weekday,day,month,year,time,offset = string.match(date, "([^,]*), +(%d+) (%a+) (%d+) ([%d:]*) ([%d]*)") + + print ("From " .. from .. " " .. string.format("%s %s %s %s %s", weekday, month, day, time, year, offset )) + print (headers) + + -- get rest of message + repeat + local foo = fh:read("*l") + if foo then + print(foo) + end + until (foo == nil) + +fh:close() +end + +candidates = get_candidates(check_command_line ()) + +for k,v in ipairs(candidates) do + file_to_mbox(v) +end +print ("") |