[hcoop/zz_old/portal.git] / mail.sml

structure Mail :> MAIL =
struct

fun writeToLog s =
    let
	val outf = TextIO.openAppend "/home/hcoop/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
72c58505	4	fun writeToLog s =
	5	let
	6	val outf = TextIO.openAppend "/home/hcoop/mail.log"
	7	in
	8	TextIO.output (outf, s);
	9	TextIO.closeOut outf
	10	end
	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