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
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