X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/4d5126e168a9671d01a0b57efcecd08ad68dcfbe..99cc41443c07f97535eaeecc628d99075ca2cebf:/src/msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index e0f4385..1c2abcc 100644
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -20,6 +20,12 @@
 
 structure MsgTypes = struct
 
+datatype socket_permission =
+	 Any
+       | Client
+       | Server
+       | Nada
+
 datatype query =
 	 QApt of string
        (* Is this apt package installed? *)
@@ -29,6 +35,10 @@ datatype query =
        (* Is this user allowed to use FTP? *)
        | QTrustedPath of string
        (* Is this user restricted to trusted-path executables? *)
+       | QSocket of string
+       (* What socket permissions does this user have? *)
+       | QFirewall of string
+       (* What firewall rules does this user have? *)
 
 datatype msg =
 	 MsgOk
@@ -67,7 +77,9 @@ datatype msg =
        | 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 *)
+       (* Request creation of a DBMS database *)
+       | MsgDropDb of {dbtype : string, dbname : string}
+       (* Request dropping of a DBMS database *)
        | MsgNewMailbox of {domain : string, user : string,
 			   passwd : string, mailbox : string}
        (* Request creation of a new vmail mapping *)
@@ -98,5 +110,13 @@ datatype msg =
        (* Answers to boolean queries *)
        | MsgQuery of query
        (* Ask for host-specific information *)
+       | MsgSocket of socket_permission
+       (* Answer to a QSocket query *)
+       | MsgFirewall of string list
+       (* Answer to a QFirewall query *)
+       | MsgRegenerateTc
+       (* MsgRegenerate without actual publishing of configuration *)
+       | MsgGrantDb of {dbtype : string, dbname : string}
+       (* Grant all allowed privileges on a DBMS database to the user *)
 
 end