Look up function:
sig
val domainname : unit -> string
val client_auth_method :
?ttl:int ->
?getdeviation:(Unix.inet_addr -> float) ->
?key_lifetime:int ->
?keyserv:Rpc_key_service.connector -> string -> Rpc_client.auth_method
val server_auth_method :
?max_sessions:int ->
?max_ttl:int ->
?key_lifetime:int ->
?attack_detector:bool ->
?keyserv:Rpc_key_service.connector -> unit -> Rpc_server.auth_method
end
