mail.sml

   1 structure Mail :> MAIL =
   2 struct
   3
   4 fun writeToLog s = ignore (OS.Process.system "klist >/tmp/haha")
   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