| | 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/sendmail", ["-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 |
HCoop / hcoop / portal.git / blame_incremental