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

Ugh, wrong argument order...make keyword args

This commit is contained in:
Niten 2020-11-11 12:55:57 -08:00
parent d3ac2bbc9b
commit 9041ade333
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
backplane-dns.lisp
View File

@ -184,13 +184,14 @@
:mechanism :sasl-plain) :mechanism :sasl-plain)
(funcall f backplane))) (funcall f backplane)))
(defun backplane-dns-listen (xmpp-host (defun backplane-dns-listen (&key
xmpp-username xmpp-host
xmpp-password xmpp-username
db-host xmpp-password
db-name db-host
db-username db-name
db-password) db-username
db-password)
(postmodern:with-connection (list db-name db-username db-password db-host :use-ssl :try) (postmodern:with-connection (list db-name db-username db-password db-host :use-ssl :try)
(with-backplane xmpp-host xmpp-username xmpp-password (with-backplane xmpp-host xmpp-username xmpp-password
(lambda (backplane) (lambda (backplane)
@ -202,11 +203,11 @@
(defun start-listener-with-env () (defun start-listener-with-env ()
(backplane-dns-listen (backplane-dns-listen
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org") :xmpp-host (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns") :xmpp-username (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE")) :xmpp-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME" "pdns") :db-name (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME" "dns_backplane") :db-username (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME") :db-host (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE")))) :db-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE"))))