Start of DBMS support

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

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index 4ee4cbc..0c7e5fe 100644 (file)
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -40,5 +40,21 @@ datatype msg =
        | 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 *)
        | 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 string
+       (* Request creation of a user for the named DBMS type *)

 
 end
 
 end