[hcoop/zz_old/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
2eae496b	1	structure Mail :> MAIL =
	2	struct
	3
263372a6	4	fun writeToLog s = ()
acf5dabe	5	(*let
4501624f	6	val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
72c58505	7	in
	8	TextIO.output (outf, s);
	9	TextIO.closeOut outf
acf5dabe	10	end*)
72c58505	11
2eae496b	12	type session = (TextIO.instream, TextIO.outstream) Unix.proc
	13
	14	fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
72c58505	15	before writeToLog "\nNEW MESSAGE\n"
2eae496b	16
72c58505	17	fun mwrite (ses, s) = (TextIO.output (Unix.textOutstreamOf ses, s);
72c58505	18	writeToLog s)
2eae496b	19
	20	fun mclose ses = Unix.reap ses
	21
72c58505	22	end