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); |
18 | writeToLog s) |
2eae496b |
19 | |
20 | fun mclose ses = Unix.reap ses |
21 | |
72c58505 |
22 | end |