package krb

  1. Overview
  2. Docs
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/tgt.ml.html

Source file tgt.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open! Core
open! Async
open! Import
open Deferred.Or_error.Let_syntax
include Tgt0

let keep_valid_indefinitely ?refresh_every ?on_error ?keytab ?abort ~cred_cache principal =
  let%bind () =
    match Internal.Cred_cache.type_ cred_cache with
    | `Normal -> return ()
    | `S4U2Self _ ->
      Deferred.Or_error.error_s
        [%message
          "can't keep the TGT valid in a TGT-less cache"
            ~cred_cache:(Internal.Cred_cache.Expert.full_name cred_cache : string)]
  in
  Principal.Name.with_default_realm principal
  >>= Keep_valid.f ?refresh_every ?on_error ?keytab ?abort ~cred_cache
;;
OCaml

Innovation. Community. Security.