portal: return success/failure of changing vmail password

[hcoop/domtool2.git] / src / main.sig

diff --git a/src/main.sig b/src/main.sig
index 01edb0f..bea8247 100644 (file)
--- 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
@@ -58,7 +59,7 @@ signature MAIN = sig
 
     val requestDbUser : {dbtype : string, passwd : string option} -> unit
     val requestDbPasswd : {dbtype : string, passwd : string} -> unit
-    val requestDbTable : {dbtype : string, dbname : string} -> unit
+    val requestDbTable : {dbtype : string, dbname : string, encoding : string option} -> unit
     val requestDbDrop : {dbtype : string, dbname : string} -> unit
     val requestDbGrant : {dbtype : string, dbname : string} -> 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