moved extra/* to main/

and fixed misc build issues

2 files changed, 132 insertions, 0 deletions

diff --git a/main/hypermail/APKBUILD b/main/hypermail/APKBUILD
new file mode 100644
index 000000000..6e4f41237
--- /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 000000000..dd883e02d
--- /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 ("")