mail.sml

   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