krb.public
Authorize.Anon
krb.internal
type t
val create : (Async.Socket.Address.Inet.t -> Principal.Name.t option -> [ `Accept | `Reject ]) -> t
Authorization applied only to kerberized connections. Unkerberized connections are accepted without any checks.
val accept_all : t
val accept_single : Principal.Name.t -> t
val accept_multiple : Principal.Name.Set.t -> t