Add dnsWildcardIP

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

diff --git a/src/dbms.sig b/src/dbms.sig
index b2a74c0..ab6772e 100644 (file)
--- a/src/dbms.sig
+++ b/src/dbms.sig
@@ -22,8 +22,12 @@ signature DBMS = sig
 
     val validDbname : string -> bool
 
-    type handler = {adduser : string -> string option,
-                   createdb : {user : string, dbname : string} -> string option}
+    type handler = {getpass : (unit -> Client.passwd_result) option,
+                   adduser : {user : string, passwd : string option} -> string option,
+                   passwd : {user : string, passwd : string} -> string option,
+                   createdb : {user : string, dbname : string} -> string option,
+                   dropdb : {user : string, dbname : string} -> string option,
+                   grant : {user : string, dbname : string} -> string option}
 
     val register : string * handler -> unit
     val lookup : string -> handler option