public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Echo response for debugging

This commit is contained in:
Niten 2020-11-13 21:01:02 -08:00
parent 3dc222f3c5
commit 7590531d03
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backplane-server.lisp
View File

@ -96,6 +96,9 @@
forms forms
:initial-value init))))) :initial-value init)))))
(defun echo-through (obj &optional msg)
(format t "~A: ~S" msg obj))
(defmethod xmpp:handle ((conn xmpp:connection) (message xmpp:message)) (defmethod xmpp:handle ((conn xmpp:connection) (message xmpp:message))
(let ((sender (xmpp:from message))) (let ((sender (xmpp:from message)))
(format *standard-output* "message received from ~A" sender) (format *standard-output* "message received from ~A" sender)
@ -105,7 +108,8 @@
(xmpp:body) (xmpp:body)
(decode-message) (decode-message)
(dispatch-parse-message sender) (dispatch-parse-message sender)
(handle-message)))))) (handle-message)
(echo-through "RESPONSE"))))))
(let ((backplane nil)) (let ((backplane nil))
(defun backplane-connect (xmpp-host xmpp-username xmpp-password) (defun backplane-connect (xmpp-host xmpp-username xmpp-password)