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/src/krb.public/server_key_source.ml.html
Source file server_key_source.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
module Stable = struct open! Core.Core_stable module Keytab = Keytab.Stable module Principal = Principal.Stable module V2 = struct type t = | Tgt | Keytab of Principal.Name.V1.t * Keytab.Path.V1.t [@@deriving bin_io, compare, sexp] end end open! Core open! Async open Import type t = Stable.V2.t = | Tgt | Keytab of Principal.Name.t * Keytab.Path.t [@@deriving compare, hash, sexp_of] let best_effort_validate ?refresh_tgt ~cred_cache t = match t with | Tgt -> Cred_cache.principal cred_cache >>=? fun principal_name -> Tgt.check_valid ~cred_cache principal_name | Keytab (principal_name, keytab_path) -> (match refresh_tgt with | None -> Keytab.validate_path keytab_path principal_name | Some () -> Tgt.keep_valid_indefinitely ~cred_cache ~keytab:keytab_path principal_name) ;; let principal t = let open Deferred.Or_error.Let_syntax in match t with | Tgt -> let%bind cred_cache = Cred_cache.default () in Internal.Cred_cache.principal cred_cache | Keytab (principal_name, _) -> Principal.create principal_name ;;
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>