X-Git-Url: http://git.hcoop.net/hcoop/zz_old/domtool2-proto.git/blobdiff_plain/dc6789fca23d1ac9319191aba736d1d2883ad1ec..a8be0d6a39845f6aa6bd232646b0ea0153e14af3:/src/main.sig

diff --git a/src/main.sig b/src/main.sig
index ca699b8..cddbeba 100644
--- a/src/main.sig
+++ b/src/main.sig
@@ -21,6 +21,7 @@
 signature MAIN = sig
 
     val init : unit -> unit
+    val setupUser : unit -> string
 
     val check : string -> Env.env * Ast.exp option
     val check' : Env.env -> string -> Env.env
@@ -34,14 +35,20 @@ signature MAIN = sig
     val request : string -> unit
     val requestDir : string -> unit
 
+    val requestPing : unit -> OS.Process.status
+    val requestShutdown : unit -> unit
     val requestGrant : Acl.acl -> unit
     val requestRevoke : Acl.acl -> unit
     val requestListPerms : string -> (string * string list) list option
     val requestWhoHas : {class : string, value : string} -> string list option
     val requestRmdom : string list -> unit
     val requestRegen : unit -> unit
+    val requestRegenTc : unit -> unit
     val requestRmuser : string -> unit
 
+    val requestSlavePing : unit -> OS.Process.status
+    val requestSlaveShutdown : unit -> unit
+
     val service : unit -> unit
     val slave : unit -> unit
 
@@ -63,4 +70,11 @@ signature MAIN = sig
     val requestSaSet : string * bool -> unit
 
     val requestSmtpLog : string -> unit
+
+    val requestApt : {node : string, pkg : string} -> OS.Process.status
+    val requestCron : {node : string, uname : string} -> OS.Process.status
+    val requestFtp : {node : string, uname : string} -> OS.Process.status
+    val requestTrustedPath : {node : string, uname : string} -> OS.Process.status
+    val requestSocketPerm : {node : string, uname : string} -> OS.Process.status
+    val requestFirewall : {node : string, uname : string} -> OS.Process.status
 end