changed function names

backplane-dns.lisp

@@ -184,13 +184,13 @@
                :mechanism :sasl-plain)
     (funcall f backplane)))
 
-(defun listen (xmpp-host
-               xmpp-username
-               xmpp-password
-               db-host
-               db-name
-               db-username
-               db-password)
+(defun backplane-dns-listen (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 t)
     (with-backplane xmpp-host xmpp-username xmpp-password
       (lambda (backplane)
@@ -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"))