From b70981b68efcce5256eb11c6cd26ae123b10b6ea Mon Sep 17 00:00:00 2001
From: Natanael Copa <ncopa@alpinelinux.org>
Date: Fri, 24 Jul 2009 08:01:31 +0000
Subject: moved extra/* to main/

and fixed misc build issues
---
 extra/hypermail/mdir2mbox.lua | 96 -------------------------------------------
 1 file changed, 96 deletions(-)
 delete mode 100644 extra/hypermail/mdir2mbox.lua

(limited to 'extra/hypermail/mdir2mbox.lua')

diff --git a/extra/hypermail/mdir2mbox.lua b/extra/hypermail/mdir2mbox.lua
deleted file mode 100644
index dd883e02..00000000
--- a/extra/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 ("")
-- 
cgit v1.2.3