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

switch to json working

Browse Source
This commit is contained in:
niten
2020-11-13 15:22:37 -08:00
parent c663acdd33
commit 159301c234
2 changed files with 42 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files
backplane-dns.lisp
+6 -6
View File
@@ -142,27 +142,27 @@
(defgeneric parse-dns-message (sender request message)
(:documentation "Parse a DNS service message of type REQUEST"))
(defmethod parse-dns-message (sender (request (eql "change-ipv4")) message)
(defmethod parse-dns-message (sender (request (eql :CHANGE_IPV4)) message)
(make-instance 'change-request-ipv4
:sender sender
:hostname (sender-hostname sender)
:domain (cdr (assoc :DOMAIN message))
:ip-address (assoc :IP message)))
:ip-address (cdr (assoc :IP message))))
(defmethod parse-dns-message (sender (request (eql "change-ipv6")) message)
(defmethod parse-dns-message (sender (request (eql :CHANGE_IPV6)) message)
(make-instance 'change-request-ipv6
:sender sender
:hostname (sender-hostname sender)
:domain (cdr (assoc :DOMAIN message))
:ip-address (assoc :IP message)))
:ip-address (cdr (assoc :IP message))))
(defmethod parse-dns-message (sender request message)
(make-instance 'unknown-request
:sender sender
:request request))
(defmethod parse-message (sender (service (eql "dns")) api-version message)
(parse-dns-message sender (cdr (assoc :REQUEST message)) message))
(defmethod parse-message (sender (service (eql :DNS)) api-version message)
(parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message))
(defun backplane-dns-listen (&key
xmpp-host