Add syntax checking of proposed firewall rules

[hcoop/zz_old/portal.git] / mail.sml

diff --git a/mail.sml b/mail.sml
index 9d10a78..4fa6b22 100644 (file)
--- a/mail.sml
+++ b/mail.sml
@@ -1,12 +1,22 @@
 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
+end