X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/ac830fc6328ed5b7493c4f58fa448f2cef5e602a..2bc5ed226e9a0cba24f9d689754e1d62bb883d86:/src/msg.sml

diff --git a/src/msg.sml b/src/msg.sml
index 1d168af..cf7edbf 100644
--- a/src/msg.sml
+++ b/src/msg.sml
@@ -162,6 +162,10 @@ fun send (bio, m) =
       | MsgSaSet (addr, b) => (OpenSSL.writeInt (bio, 25);
 			       OpenSSL.writeString (bio, addr);
 			       sendBool (bio, b))
+      | MsgSmtpLogReq domain => (OpenSSL.writeInt (bio, 26);
+				 OpenSSL.writeString (bio, domain))
+      | MsgSmtpLogRes domain => (OpenSSL.writeInt (bio, 27);
+				 OpenSSL.writeString (bio, domain))
 
 fun checkIt v =
     case v of
@@ -250,6 +254,8 @@ fun recv bio =
 		   | 25 => (case (OpenSSL.readString bio, recvBool bio) of
 				(SOME user, SOME b) => SOME (MsgSaSet (user, b))
 			      | _ => NONE)
+		   | 26 => Option.map MsgSmtpLogReq (OpenSSL.readString bio)
+		   | 27 => Option.map MsgSmtpLogRes (OpenSSL.readString bio)
 		   | _ => NONE)
 	 
 end