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

Catch all errors to keep the server up

This commit is contained in:
Niten 2020-11-18 11:12:19 -08:00
parent 543df72f39
commit c552394e55
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
backplane-server.lisp
View File

@ -103,11 +103,17 @@
(format *standard-output* "message received from ~A" sender) (format *standard-output* "message received from ~A" sender)
(xmpp:message conn (xmpp:message conn
(xmpp:from message) (xmpp:from message)
(render-result (success-> message (render-result
(xmpp:body) (handler-case
(decode-message) (success-> message
(dispatch-parse-message sender) (xmpp:body)
(handle-message)))))) (decode-message)
(dispatch-parse-message sender)
(handle-message))
(error (e)
(format *error-output* "failed handling message from ~A: ~A"
sender e)
(make-error :msg "an unknown error occurred handling request")))))))
(let ((backplane nil)) (let ((backplane nil))
(defun backplane-connect (xmpp-host xmpp-username xmpp-password) (defun backplane-connect (xmpp-host xmpp-username xmpp-password)