structure MsgTypes = struct
+datatype query =
+ QApt of string
+ (* Is this apt package installed? *)
+
datatype msg =
MsgOk
(* Your request was processed successfully. *)
(* Response to MsgSaQuery *)
| MsgSaSet of string * bool
(* Set the filtering status of a user or e-mail address *)
+ | MsgSmtpLogReq of string
+ (* Request all current SMTP log lines about a domain *)
+ | MsgSmtpLogRes of string
+ (* One line of a response to MsgSmtpLogReq *)
+ | MsgDbPasswd of {dbtype : string, passwd : string}
+ (* Change a DBMS user's password *)
+ | MsgShutdown
+ (* Halt the server *)
+ | MsgYes
+ | MsgNo
+ (* Answers to boolean queries *)
+ | MsgQuery of query
+ (* Ask for host-specific information *)
end