X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/563e77927eb5faaae4571bd2b0811de590368581..291eacbf162d2823f4667cbb3f9330528c4acf99:/src/msg.sml diff --git a/src/msg.sml b/src/msg.sml index 3e028c1..ab79885 100644 --- a/src/msg.sml +++ b/src/msg.sml @@ -237,6 +237,8 @@ fun send (bio, m) = | MsgDescription s => (OpenSSL.writeInt (bio, 40); OpenSSL.writeString (bio, s)) | MsgReUsers => OpenSSL.writeInt (bio, 41) + | MsgVmailChanged => OpenSSL.writeInt (bio, 42) + | MsgFirewallRegen => OpenSSL.writeInt (bio, 43) fun checkIt v = case v of @@ -350,6 +352,8 @@ fun recv bio = | 39 => Option.map MsgDescribe (OpenSSL.readString bio) | 40 => Option.map MsgDescription (OpenSSL.readString bio) | 41 => SOME MsgReUsers + | 42 => SOME MsgVmailChanged + | 43 => SOME MsgFirewallRegen | _ => NONE) end