summaryrefslogtreecommitdiffstats
path: root/unstable
diff options
context:
space:
mode:
Diffstat (limited to 'unstable')
-rw-r--r--unstable/hypermail/APKBUILD36
-rw-r--r--unstable/hypermail/mdir2mbox.lua96
2 files changed, 0 insertions, 132 deletions
diff --git a/unstable/hypermail/APKBUILD b/unstable/hypermail/APKBUILD
deleted file mode 100644
index 6e4f41237..000000000
--- a/unstable/hypermail/APKBUILD
+++ /dev/null
@@ -1,36 +0,0 @@
-# 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/unstable/hypermail/mdir2mbox.lua b/unstable/hypermail/mdir2mbox.lua
deleted file mode 100644
index dd883e02d..000000000
--- a/unstable/hypermail/mdir2mbox.lua
+++ /dev/null
@@ -1,96 +0,0 @@
-#!/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 ("")