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)
(funcall f backplane)))
(defun backplane-dns-listen (xmpp-host
xmpp-username
xmpp-password
db-host
db-name
db-username
db-password)
(defun backplane-dns-listen (&key
xmpp-host
xmpp-username
xmpp-password
db-host
db-name
db-username
db-password)
(postmodern:with-connection (list db-name db-username db-password db-host :use-ssl :try)
(with-backplane xmpp-host xmpp-username xmpp-password
(lambda (backplane)
@ -202,11 +203,11 @@
(defun start-listener-with-env ()
(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"))
:xmpp-host (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME")
:xmpp-username (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME")
:xmpp-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME" "pdns")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME" "dns_backplane")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE"))))
:db-name (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME")
:db-username (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME")
:db-host (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME")
:db-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE"))))