(* $Id: qserver_auth_dh.ml 874 2006-05-04 14:07:27Z gerd $ *)

(* Configure qserver for Diffie-Hellman authentication *)

Qserver.pluggable_auth_module :=
  ( "auth_dh",
    (`Socket(Rpc.Tcp, Rpc_server.Portmapped, Rpc_server.default_socket_config)),
    (fun srv ->
       Rpc_server.set_auth_methods
	 srv
	 [ Rpc_auth_dh.server_auth_method() ]
    )
  )
;;