X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/991d8e6619bc9ff2182a39cfbeead53bee768a99..523df5796b4816b15ebaf45bf3e938f01559f07d:/src/msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index dcd04cb..c815960 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,7 +38,7 @@ 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 *)
@@ -87,6 +88,8 @@ datatype msg =
        (* Request creation of a new vmail mapping *)
        | MsgPasswdMailbox of {domain : string, user : string, passwd : string}
        (* Change a vmail account's password *)
+       | MsgPortalPasswdMailbox of {domain : string, user : string, oldpasswd : string, newpasswd : string}
+       (* Change a vmail account's password if the old password matches *)
        | MsgRmMailbox of {domain : string, user : string}
        (* Remove a vmail mapping *)
        | MsgListMailboxes of string
@@ -99,6 +102,8 @@ datatype msg =
        (* Response to MsgSaQuery *)
        | MsgSaSet of string * bool
        (* Set the filtering status of a user or e-mail address *)
+       | MsgSaChanged
+       (* Reload spamassassin addrs *)
        | MsgSmtpLogReq of string
        (* Request all current SMTP log lines about a domain *)
        | MsgSmtpLogRes of string
@@ -132,5 +137,7 @@ datatype msg =
        (* 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