X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/fe789bea628b15229156c8a4272c2b6063c9b1a0..55bf9385ba6f51aac80f3e632e47aa35e5af9f66:/src/main.sig diff --git a/src/main.sig b/src/main.sig index 231fafc..bea8247 100644 --- a/src/main.sig +++ b/src/main.sig @@ -32,7 +32,7 @@ signature MAIN = sig val reduce : Env.env -> string -> Env.env * Ast.exp option val eval : Env.env -> Env.env_vars -> string -> Env.env * Env.env_vars - val request : string -> unit + val request : string * string option -> unit val requestDir : string -> unit val requestPing : unit -> OS.Process.status @@ -46,6 +46,7 @@ signature MAIN = sig val requestRegenTc : unit -> unit val requestRmuser : string -> unit val requestDescribe : string -> unit + val requestReUsers : unit -> unit val requestSlavePing : unit -> OS.Process.status val requestSlaveShutdown : unit -> unit @@ -67,6 +68,8 @@ signature MAIN = sig passwd : string, mailbox : string} -> unit val requestPasswdMailbox : {domain : string, user : string, passwd : string} -> unit + val requestPortalPasswdMailbox : {domain : string, user : string, oldpasswd : string, newpasswd : string} + -> OS.Process.status val requestRmMailbox : {domain : string, user : string} -> unit val requestSaQuery : string -> unit @@ -77,9 +80,12 @@ signature MAIN = sig val requestMysqlFixperms : unit -> unit val requestApt : {node : string, pkg : string} -> OS.Process.status + val requestAptExists : {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 + + val requestFirewallRegen : string -> OS.Process.status end