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)
(funcall f backplane)))
(defun listen (xmpp-host
(defun backplane-dns-listen (xmpp-host
xmpp-username
xmpp-password
db-host
@ -201,7 +201,7 @@
(read-line input)))
(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_USERNAME" "dns")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))