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))
+ | MsgShutdown => OpenSSL.writeInt (bio, 29)
fun checkIt v =
case v of
| _ => 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)
+ | 29 => SOME MsgShutdown
| _ => NONE)
end