[hcoop/portal.git] / mail.sml

structure Mail :> MAIL =
struct

fun writeToLog s =
    let
	val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
    in
	TextIO.output (outf, s);
	TextIO.closeOut outf
    end

type session = (TextIO.instream, TextIO.outstream) Unix.proc

fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
	       before writeToLog "\nNEW MESSAGE\n"

fun mwrite (ses, s) = (TextIO.output (Unix.textOutstreamOf ses, s);
		       writeToLog s)

fun mclose ses = Unix.reap ses

end
Commit	Line	Data
edeb626e AC	1	structure Mail :> MAIL =
	2	struct
	3
b564aa2b AC	4	fun writeToLog s =
b564aa2b AC	5	let
b675b4c5	6	val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
b564aa2b AC	7	in
	8	TextIO.output (outf, s);
	9	TextIO.closeOut outf
	10	end
	11
edeb626e AC	12	type session = (TextIO.instream, TextIO.outstream) Unix.proc
	13
	14	fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
b564aa2b	15	before writeToLog "\nNEW MESSAGE\n"
edeb626e	16
b564aa2b AC	17	fun mwrite (ses, s) = (TextIO.output (Unix.textOutstreamOf ses, s);
b564aa2b AC	18	writeToLog s)
edeb626e AC	19
	20	fun mclose ses = Unix.reap ses
	21
b564aa2b	22	end