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

Added msg-id

Browse Source
This commit is contained in:
niten
2020-11-13 17:27:44 -08:00
parent 159301c234
commit 3dc222f3c5
2 changed files with 67 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
backplane-dns.lisp
+33 -18
View File
@@ -120,49 +120,64 @@
hostname)))
(defmethod handle-message ((message change-request-ipv4))
(with-slots (hostname domain ip-address) message
(with-slots (hostname domain ip-address msg-id) message
(handler-case
(progn (set-host-v4ip hostname domain ip-address)
(make-success (format nil "ipv4 for host ~a in domain ~a set to ~a"
hostname domain ip-address)))
(make-success :msg (format nil "ipv4 for host ~a in domain ~a set to ~a"
hostname domain ip-address)
:msg-id msg-id))
(domain-name-missing (err)
(make-error :msg (format nil "missing domain name: ~A"
(missing-domain err))
:msg-id msg-id))
(error (text)
(make-error (format nil "unknown error setting host v4ip: ~A"
text))))))
(make-error :msg (format nil "unknown error setting host v4ip: ~A"
text)
:msg-id msg-id)))))
(defmethod handle-message ((message change-request-ipv6))
(with-slots (hostname domain ip-address) message
(with-slots (hostname domain ip-address msg-id) message
(handler-case
(progn (set-host-v6ip hostname domain ip-address)
(make-success (format nil "ipv6 for host ~a in domain ~a set to ~a"
hostname domain ip-address)))
(make-success :msg (format nil "ipv6 for host ~a in domain ~a set to ~a"
hostname domain ip-address)
:msg-id msg-id))
(domain-name-missing (err)
(make-error :msg (format nil "missing domain name: ~A"
(missing-domain err))
:msg-id msg-id))
(error (text)
(make-error (format nil "unknown error setting host v6ip: ~A"
text))))))
(make-error :msg (format nil "unknown error setting host v6ip: ~A"
text)
:msg-id msg-id)))))
(defgeneric parse-dns-message (sender request message)
(defgeneric parse-dns-message (sender request message msg-id)
(: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 msg-id)
(make-instance 'change-request-ipv4
:msg-id msg-id
:sender sender
:hostname (sender-hostname sender)
:domain (cdr (assoc :DOMAIN 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 msg-id)
(make-instance 'change-request-ipv6
:msg-id msg-id
:sender sender
:hostname (sender-hostname sender)
:domain (cdr (assoc :DOMAIN message))
:ip-address (cdr (assoc :IP message))))
(defmethod parse-dns-message (sender request message)
(defmethod parse-dns-message (sender request message msg-id)
(make-instance 'unknown-request
:sender sender
:request request))
:msg-id msg-id
:sender sender
:request request))
(defmethod parse-message (sender (service (eql :DNS)) api-version message)
(parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message))
(defmethod parse-message (sender (service (eql :DNS)) api-version message msg-id)
(parse-dns-message sender (symbolize (cdr (assoc :REQUEST message))) message msg-id))
(defun backplane-dns-listen (&key
xmpp-host