| MsgRegenerate => OpenSSL.writeInt (bio, 14)
| MsgRmuser dom => (OpenSSL.writeInt (bio, 15);
OpenSSL.writeString (bio, dom))
+ | MsgCreateDbUser s => (OpenSSL.writeInt (bio, 16);
+ OpenSSL.writeString (bio, s))
fun checkIt v =
case v of
| 13 => Option.map MsgRmdom (recvList OpenSSL.readString bio)
| 14 => SOME MsgRegenerate
| 15 => Option.map MsgRmuser (OpenSSL.readString bio)
+ | 16 => Option.map MsgCreateDbUser (OpenSSL.readString bio)
| _ => NONE)
end