Fix Elisp captcha compatibility

This commit is contained in:
codex
2026-06-11 21:06:19 +02:00
parent f80111dba4
commit c5048560e5
+3 -3
View File
@@ -135,7 +135,7 @@
(defun kkkmeet-server--captcha-accepted-p (value)
"Return non-nil when VALUE matches the configured captcha passphrase."
(string-equal-ignore-case (or value "") (kkkmeet-server--captcha-passphrase)))
(equal (downcase (or value "")) (downcase (kkkmeet-server--captcha-passphrase))))
(defun kkkmeet-server--captcha-svg ()
"Return an SVG captcha image for the configured passphrase."
@@ -396,9 +396,9 @@ When KEEP-OPEN is nil, close PROCESS after writing."
(clientId . ,safe-client-id)
(peers . ,peers)
(watchState . ,(or (gethash safe-room-id kkkmeet-server--watch-states)
:null))
nil))
(presentationState . ,(or (gethash safe-room-id kkkmeet-server--presentation-states)
:null))))
nil))))
(kkkmeet-server--broadcast
safe-room-id peer-id `((type . "peer-joined")
(peerId . ,peer-id)