From 0b14c14284c8235008810ffed6e3028023d2e0e2 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Tue, 10 Jun 2025 00:33:07 +0200
Subject: feat(auth): gen auth parameter

---
 lib/auth.ml | 3 +++
 lib/dune    | 1 +
 2 files changed, 4 insertions(+)

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
 
diff --git a/lib/dune b/lib/dune
index 6f37f9d..645b8b9 100644
--- a/lib/dune
+++ b/lib/dune
@@ -2,5 +2,6 @@
  (public_name flesh)
  (libraries
    lwt
+   base64
    portal)
  (preprocess (pps ppx_deriving.show)))
-- 
cgit v1.2.3