sig
module type CONFIG = sig val raise_error : string -> 'a end
module Manage :
functor (G : Netsys_gssapi.GSSAPI) ->
sig
val delete_context : G.context option -> unit -> unit
val format_status :
?fn:string ->
?minor_status:int32 -> Netsys_gssapi.major_status -> string
end
module Auth :
functor (G : Netsys_gssapi.GSSAPI) ->
functor (C : CONFIG) ->
sig
val check_status :
?fn:string ->
?minor_status:int32 -> Netsys_gssapi.major_status -> unit
val get_initiator_name : Netsys_gssapi.client_config -> G.name
val get_initiator_cred :
initiator_name:G.name ->
Netsys_gssapi.client_config -> G.credential
val acquire_initiator_cred :
initiator_name:G.name ->
Netsys_gssapi.client_config -> G.credential
val get_target_name :
?default:string * Netsys_gssapi.oid ->
Netsys_gssapi.client_config -> G.name
val get_client_flags :
Netsys_gssapi.client_config -> Netsys_gssapi.req_flag list
val check_client_flags :
Netsys_gssapi.client_config ->
Netsys_gssapi.ret_flag list -> unit
val init_sec_context :
initiator_cred:G.credential ->
context:G.context option ->
target_name:G.name ->
req_flags:Netsys_gssapi.req_flag list ->
chan_bindings:Netsys_gssapi.channel_bindings option ->
input_token:Netsys_gssapi.token option ->
Netsys_gssapi.client_config ->
G.context * Netsys_gssapi.token * Netsys_gssapi.ret_flag list *
Netsys_gssapi.client_props option
val get_acceptor_name : Netsys_gssapi.server_config -> G.name
val get_acceptor_cred :
acceptor_name:G.name ->
Netsys_gssapi.server_config -> G.credential
val get_server_flags :
Netsys_gssapi.server_config -> Netsys_gssapi.req_flag list
val check_server_flags :
Netsys_gssapi.server_config ->
Netsys_gssapi.ret_flag list -> unit
val accept_sec_context :
acceptor_cred:G.credential ->
context:G.context option ->
chan_bindings:Netsys_gssapi.channel_bindings option ->
input_token:Netsys_gssapi.token ->
Netsys_gssapi.server_config ->
G.context * Netsys_gssapi.token * Netsys_gssapi.ret_flag list *
Netsys_gssapi.server_props option
val get_display_name : G.name -> string * Netsys_gssapi.oid
val get_exported_name : G.name -> string
end
end
