Apt package installation querying of dispatcher

[hcoop/domtool2.git] / src / msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index e89fc9d..480c905 100644 (file)
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -32,6 +32,61 @@ datatype msg =
        | MsgDoFiles
        (* Perform the actions associated with the MsgFiles sent previously. *)
        | MsgGrant of Acl.acl
-       (* Grant a new permission *)
+       (* Grant a permission *)
+       | MsgRevoke of Acl.acl
+       (* Revoke a permission *)
+       | MsgListPerms of string
+       (* List all of a user's permissions *)
+       | MsgPerms of (string * string list) list
+       (* A response to MsgListPerms, giving a permission class and all values
+       * for which the user is authorized in that class *)
+       | MsgWhoHas of {class : string, value : string}
+       (* Which users have this permission? *)
+       | MsgWhoHasResponse of string list
+       (* These are the users! *)
+       | MsgMultiConfig of string list
+       (* Multiple Domtool sources in dependency order *)
+       | MsgRmdom of string list
+       (* Remove all configuration associated with some domains and revoke
+       * rights to those domains from all users. *)
+       | MsgRegenerate
+       (* Make a clean slate of it and reprocess all configuration from scratch. *)
+       | 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 *)
+       | MsgShutdown
+       (* Halt the server *)
+       | MsgYes
+       | MsgNo
+       (* Answers to boolean queries *)
+       | MsgApt of string
+       (* Is this apt package installed on your host? *)
 
 end