diff options
Diffstat (limited to 'lib/auth.ml')
| -rw-r--r-- | lib/auth.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/auth.ml b/lib/auth.ml index 509f2d1..851db40 100644 --- a/lib/auth.ml +++ b/lib/auth.ml @@ -3,6 +3,9 @@ open Lwt.Syntax type auth_mechanism = PLAIN [@@deriving show] let authenticate (stream, _push) = + let _gen_auth jid pass = function + | PLAIN -> Base64.encode_exn ("\x00" ^ jid ^ "\x00" ^ pass) + in let+ features = Lwt_stream.get stream in Option.get features |