Specify host for database connections

[hcoop/portal.git] / mail.sml

diff --git a/mail.sml b/mail.sml
index 9d10a78..d0e2d27 100644 (file)
--- a/mail.sml
+++ b/mail.sml
@@ -1,12 +1,30 @@
 structure Mail :> MAIL =
 struct
 
+fun writeToLog s = ()
+    (*let
+       val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
+    in
+       TextIO.output (outf, s);
+       TextIO.closeOut outf
+    end*)
+
 type session = (TextIO.instream, TextIO.outstream) Unix.proc
 
 fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
+              before writeToLog "\nNEW MESSAGE\n"
 
-fun mwrite (ses, s) = TextIO.output (Unix.textOutstreamOf ses, s)
+fun mwrite (ses, s) = (TextIO.output (Unix.textOutstreamOf ses, s);
+                      writeToLog s)
 
 fun mclose ses = Unix.reap ses
 
-end
\ No newline at end of file
+(*type session = unit
+
+fun mopen () = ()
+
+fun mwrite ((), s) = print s
+
+fun mclose () = OS.Process.success*)
+
+end