diff options
Diffstat (limited to 'main/hypermail')
| -rw-r--r-- | main/hypermail/APKBUILD | 36 | ||||
| -rw-r--r-- | main/hypermail/mdir2mbox.lua | 96 |
2 files changed, 132 insertions, 0 deletions
diff --git a/main/hypermail/APKBUILD b/main/hypermail/APKBUILD new file mode 100644 index 0000000000..6e4f412374 --- /dev/null +++ b/main/hypermail/APKBUILD @@ -0,0 +1,36 @@ +# Contributor: Michael Mason <ms13sp@gmail.com> +pkgname=hypermail +pkgver=2.2.0 +pkgrel=0 +pkgdesc="Mail Archiver" +url="http://www.hypermail-project.org" +license="GPL" +depends="uclibc pcre lua" +makedepends="pcre-dev bison" +install= +subpackages="" +source="http://www.hypermail-project.org/$pkgname-$pkgver.tar.gz + mdir2mbox.lua" + +build() { + cd "$srcdir/$pkgname-$pkgver" + + ./configure --prefix=/usr \ + --sysconfdir=/etc \ + --mandir=/usr/share/man \ + --infodir=/usr/share/info \ + --with-httpddir=/var/www \ + --with-cgidir=/var/www/cgi-bin + make || return 1 + #does not understand DESTDIR so going to install ourselves + #make DESTDIR="$pkgdir" install + + install -m755 -D archive/rdmsg "$pkgdir"/usr/bin/rdmsg + install -m755 -D archive/msg2archive "$pkgdir"/usr/bin/msgarchive + install -m755 -D src/hypermail "$pkgdir"/usr/bin/hypermail + install -m755 -D "$srcdir"/mdir2mbox.lua "$pkgdir"/usr/bin/mdir2mbox.lua + +} + +md5sums="a064e36780ee41409c8c973f9c69927f hypermail-2.2.0.tar.gz +079b00d4ea667a0efd6fd370b1a4d5d8 mdir2mbox.lua" diff --git a/main/hypermail/mdir2mbox.lua b/main/hypermail/mdir2mbox.lua new file mode 100644 index 0000000000..dd883e02db --- /dev/null +++ b/main/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 ("") |