Server (p.krb.v0.16.0.doc.krb.public.Krb

Sourcetype ('a, 'b) t = ('a, 'b) Async.Tcp.Server.t

val create : 
  (?on_kerberos_error:
     [ `Call of Async.Socket.Address.Inet.t -> exn -> unit | `Ignore | `Raise ] ->
    ?on_handshake_error:
      [ `Call of
          Handshake_error.Kind.t ->
          Async.Socket.Address.Inet.t ->
          exn ->
          unit
      | `Ignore
      | `Raise ] ->
    ?on_handler_error:
      [ `Call of Async.Socket.Address.Inet.t -> exn -> unit
      | `Ignore
      | `Raise ] ->
    ?override_supported_versions:int list ->
    authorize:Authorize.t ->
    krb_mode:Mode.Server.t ->
    Async.Tcp.Where_to_listen.inet ->
    (Client_principal.t ->
      Async.Socket.Address.Inet.t ->
      Async.Reader.t ->
      Async.Writer.t ->
      unit Async.Deferred.t) ->
    (Async.Socket.Address.Inet.t, int) t Async.Deferred.Or_error.t)
    async_tcp_server_args

Create a TCP server. Unlike an un-kerberized TCP server, this will read and write some bytes from/to the underlying socket before returning a t.