path: root/lib/auth.ml

type auth_mechanism = PLAIN  [@@deriving show { with_path = false }]

let send_auth_stanza (_stream, _push) jid pass mechanism =
  let gen_auth = function
    | PLAIN -> Base64.encode_exn ("\x00" ^ jid ^ "\x00" ^ pass)
  in gen_auth mechanism