(* 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
(* 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