| 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 | (*type session = unit |
| 23 | |
| 24 | fun mopen () = () |
| 25 | |
| 26 | fun mwrite ((), s) = print s |
| 27 | |
| 28 | fun mclose () = OS.Process.success*) |
| 29 | |
| 30 | end |