X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/4d5126e168a9671d01a0b57efcecd08ad68dcfbe..991d8e6619bc9ff2182a39cfbeead53bee768a99:/src/msgTypes.sml diff --git a/src/msgTypes.sml b/src/msgTypes.sml index e0f4385..dcd04cb 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,12 @@ 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? *) + | QAptExists of string + (* Does this apt package exist *) datatype msg = MsgOk @@ -66,8 +78,10 @@ datatype msg = * 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 *) + | MsgCreateDb of {dbtype : string, dbname : string, encoding : string option} + (* 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 +112,25 @@ 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 *) + | MsgMysqlFixperms + (* Run the script to grant DROP privileges on MySQL tables to owning users *) + | MsgDescribe of string + (* Ask for a listing of all of a domain's real configuration *) + | MsgDescription of string + (* Reply to MsgDescribe *) + | MsgReUsers + (* Rerun all callbacks for cases where the set of users has changed *) + | MsgVmailChanged + (* Server tells slave that vmail user information has changed *) + | MsgFirewallRegen + (* Regenerate firewall on user machines *) end