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

changed function names

Browse Source
This commit is contained in:
Niten 2020-11-11 11:56:02 -08:00
parent 56627e7b39
commit ca48c56cba
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backplane-dns.lisp
View File

@ -184,7 +184,7 @@
:mechanism :sasl-plain) :mechanism :sasl-plain)
(funcall f backplane))) (funcall f backplane)))
(defun listen (xmpp-host (defun backplane-dns-listen (xmpp-host
xmpp-username xmpp-username
xmpp-password xmpp-password
db-host db-host
@ -201,7 +201,7 @@
(read-line input))) (read-line input)))
(defun start-listener-with-env () (defun start-listener-with-env ()
(listen (backplane-dns-listen
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org") (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org")
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns") (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE")) (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))