mail.sml

   1 structure Mail :> MAIL =
   2 struct
   3
   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
  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