X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/629a34f64f780c03d049d20057acc9a487162272..be1bea4c0a2a4cfa0b86beccfa423366b94b84b4:/src/domain.sig diff --git a/src/domain.sig b/src/domain.sig index 8c79274..041be2f 100644 --- a/src/domain.sig +++ b/src/domain.sig @@ -20,10 +20,13 @@ signature DOMAIN = sig + val yourPath : string -> bool val isIdent : char -> bool val validHost : string -> bool val validDomain : string -> bool + val ip : string Env.arg + val registerBefore : (string -> unit) -> unit val registerAfter : (string -> unit) -> unit (* Register handlers to run just before and after entering a domain @@ -31,7 +34,34 @@ signature DOMAIN = sig val currentDomain : unit -> string - val domainFile : string -> TextIO.outstream - (* Open one of the current domain's configuration files. *) + val domainFile : {node : string, name : string} -> TextIO.outstream + (* Open one of the current domain's configuration files for a particular + * node. *) + + val dnsMaster : unit -> string option + (* Name of the node that is the DNS master for the current domain, if there + * is one *) + + val nodes : string list + (* Names of all system nodes *) + val nodeMap : string Ast.StringMap.map + (* Map node names to IP addresses *) + val nodeIp : string -> string + (* Look up a node in nodeMap *) + + val setUser : string -> unit + val getUser : unit -> string + (* Name of the UNIX user providing this configuration *) + + val your_domains : unit -> DataStructures.StringSet.set + (* The domains the current user may configure *) + + val your_users : unit -> DataStructures.StringSet.set + val your_groups : unit -> DataStructures.StringSet.set + val your_paths : unit -> DataStructures.StringSet.set + (* UNIX users, groups, and paths the user may act with *) + + val set_context : OpenSSL.context -> unit + val hasPriv : string -> bool end