module Endpoint : sig ... endval handler_from_server_protocol :
?on_kerberos_error:
[ `Call of Async.Socket.Address.Inet.t -> exn -> unit | `Ignore | `Raise ] ->
?on_handshake_error:
[ `Call of Async.Socket.Address.Inet.t -> exn -> unit | `Ignore | `Raise ] ->
?on_handler_error:
[ `Call of Async.Socket.Address.Inet.t -> exn -> unit | `Ignore | `Raise ] ->
(Async.Socket.Address.Inet.t -> 'conn -> unit Async.Deferred.t) ->
(peer:Async.Socket.Address.Inet.t ->
'backend ->
('conn,
[ `Handshake_error of Core.Error.t
| `Krb_error of Core.Error.t
| `Rejected_client ])
Async.Deferred.Result.t) ->
Async.Socket.Address.Inet.t ->
'backend Core.Or_error.t ->
unit Async.Deferred.tval krb_server_protocol :
(module Krb_public__.Protocol_with_test_mode_intf.S
with type protocol_backend = 'backend
and type Connection.t = 'conn) ->
authorize:Authorize.t ->
Mode.Server.t ->
(peer:Async.Socket.Address.Inet.t ->
'backend ->
('conn,
[ `Handshake_error of Core.Error.t
| `Krb_error of Core.Error.t
| `Rejected_client ])
Async.Deferred.Result.t)
Async.Deferred.Or_error.tval krb_or_anon_server_protocol :
(module Krb_public__.Protocol_backend_intf.S with type t = 'backend) ->
(module Krb_public__.Protocol_with_test_mode_intf.S
with type protocol_backend = 'backend
and type Connection.t = 'conn) ->
peek_protocol_version_header:
('backend ->
[< `Eof
| `Not_enough_data
| `Ok of Protocol_version_header.Known_protocol.t option ]
Async.Deferred.t) ->
authorize:Authorize.Anon.t ->
Mode.Server.t ->
(peer:Async.Socket.Address.Inet.t ->
'backend ->
([ `Anon | `Krb of 'conn ],
[ `Handshake_error of Core.Error.t
| `Krb_error of Core.Error.t
| `Rejected_client ])
Async.Deferred.Result.t)
Async.Deferred.Or_error.t