X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/e69e60ccf1aa77a40cd5b15c4361f378ce332a42..86aa5de7d9f2754d50489432ffaa43cba3fa170f:/src/msgTypes.sml?ds=sidebyside diff --git a/src/msgTypes.sml b/src/msgTypes.sml index 44f4178..445f8af 100644 --- a/src/msgTypes.sml +++ b/src/msgTypes.sml @@ -54,5 +54,32 @@ datatype msg = | MsgRmuser of string (* Remove all ACL entries for a user, and remove all domains to which * that user and no one else has rights. *) + | MsgCreateDbUser of {dbtype : string, passwd : string option} + (* Request creation of a user for the named DBMS type *) + | MsgCreateDbTable of {dbtype : string, dbname : string} + (* Request creation of a DBMS table *) + | MsgNewMailbox of {domain : string, user : string, + passwd : string, mailbox : string} + (* Request creation of a new vmail mapping *) + | MsgPasswdMailbox of {domain : string, user : string, passwd : string} + (* Change a vmail account's password *) + | MsgRmMailbox of {domain : string, user : string} + (* Remove a vmail mapping *) + | MsgListMailboxes of string + (* List all mailboxes for a domain *) + | MsgMailboxes of {user : string, mailbox : string} list + (* Reply to MsgListMailboxes *) + | MsgSaQuery of string + (* Check on the SpamAsssassin filtering status of a user or e-mail address *) + | MsgSaStatus of bool + (* 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 *) end