X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/6ee7d8effaa01367374de19205359747f5b099e2..86aa5de7d9f2754d50489432ffaa43cba3fa170f:/src/msg.sml

diff --git a/src/msg.sml b/src/msg.sml
index cf7edbf..a9063aa 100644
--- a/src/msg.sml
+++ b/src/msg.sml
@@ -166,6 +166,9 @@ fun send (bio, m) =
 				 OpenSSL.writeString (bio, domain))
       | MsgSmtpLogRes domain => (OpenSSL.writeInt (bio, 27);
 				 OpenSSL.writeString (bio, domain))
+      | MsgDbPasswd {dbtype, passwd} => (OpenSSL.writeInt (bio, 28);
+					 OpenSSL.writeString (bio, dbtype);
+					 OpenSSL.writeString (bio, passwd))
 
 fun checkIt v =
     case v of
@@ -256,6 +259,10 @@ fun recv bio =
 			      | _ => NONE)
 		   | 26 => Option.map MsgSmtpLogReq (OpenSSL.readString bio)
 		   | 27 => Option.map MsgSmtpLogRes (OpenSSL.readString bio)
+		   | 28 => (case (OpenSSL.readString bio, OpenSSL.readString bio) of
+				(SOME dbtype, SOME passwd) =>
+				SOME (MsgDbPasswd {dbtype = dbtype, passwd = passwd})
+			      | _ => NONE)
 		   | _ => NONE)
 	 
 end