package krb
A library for using Kerberos for both Rpc and Tcp communication
Install
Dune Dependency
Authors
Maintainers
Sources
krb-v0.16.0.tar.gz
sha256=353675621e4c5a888f2483dc1bb7281bd17ce4ed7dfd2f40142257f98db7c77d
doc/krb.public/Krb_public/Private/Kerberized_tcp_over_protocol/Server/index.html
Module Kerberized_tcp_over_protocol.ServerSource
Source
val handler_from_server_protocol :
?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 ] ->
(Async.Socket.Address.Inet.t -> 'conn -> unit Async.Deferred.t) ->
(peer:Async.Socket.Address.Inet.t ->
'backend ->
('conn,
[ `Handshake_error of Handshake_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.tSource
val krb_server_protocol :
?override_supported_versions:int list ->
?additional_magic_numbers:int list ->
(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 Handshake_error.t
| `Krb_error of Core.Error.t
| `Rejected_client ])
Async.Deferred.Result.t)
Async.Deferred.Or_error.toverride_supported_versions and additional_magic_numbers would be ignored in Test_with_principal mode.
Source
val krb_or_anon_server_protocol :
?override_supported_versions:int list ->
(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 Handshake_error.t
| `Krb_error of Core.Error.t
| `Rejected_client ])
Async.Deferred.Result.t)
Async.Deferred.Or_error.t