X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/1ffc47a68def0e10e393ad4d8e62b7d6f7300c01..b89f3b680b7d4c16d2b684487d5a202fa0e726ae:/src/msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index 034e26a..08972bb 100644
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -1,5 +1,6 @@
 (* HCoop Domtool (http://hcoop.sourceforge.net/)
  * Copyright (c) 2006, Adam Chlipala
+ * Copyright (c) 2011,2014 Clinton Ebadi <clinton@unknownlamer.org>
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License
@@ -37,8 +38,10 @@ datatype query =
        (* Is this user restricted to trusted-path executables? *)
        | QSocket of string
        (* What socket permissions does this user have? *)
-       | QFirewall of string
+       | QFirewall of {node : string, user : string}
        (* What firewall rules does this user have? *)
+       | QAptExists of string
+       (* Does this apt package exist *)
 
 datatype msg =
 	 MsgOk
@@ -76,7 +79,7 @@ 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 *)
-       | MsgCreateDb of {dbtype : string, dbname : string}
+       | 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 *)
@@ -124,5 +127,13 @@ datatype msg =
        (* 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 *)
+       | MsgAptQuery of {section : string, description : string}
+       (* Answer to QAptExists query *)
 
 end