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