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

Reconnect if the database connection has been lost.

Browse Source
This commit is contained in:
niten 2022-02-15 13:57:27 -08:00
parent 440efb7cf9
commit 46458f11aa
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
backplane-dns-store.lisp
View File

@ -105,6 +105,7 @@
(defgeneric set-ipv4 (store domain name ip)) (defgeneric set-ipv4 (store domain name ip))
(defgeneric set-ipv6 (store domain name ip)) (defgeneric set-ipv6 (store domain name ip))
(defgeneric set-sshfp (store domain name sshfp)) (defgeneric set-sshfp (store domain name sshfp))
(defgeneric ensure-connection (store))
(defmethod set-ipv4 ((store postgres-dns-store) (defmethod set-ipv4 ((store postgres-dns-store)
(domain string) (domain string)
@ -140,3 +141,9 @@
(sshfps list)) (sshfps list))
(if-let ((new-sshfps (mapcar #'sshfp-p sshfps))) (if-let ((new-sshfps (mapcar #'sshfp-p sshfps)))
(replace-records domain name "SSHFP" new-sshfps))) (replace-records domain name "SSHFP" new-sshfps)))
(defmethod ensure-connection ((store postgres-dns-store))
(let ((db postmodern:*database*))
(when (not (connected-p conn))
(reconnect conn))
store))

1
backplane-dns.lisp
View File

@ -54,6 +54,7 @@
(handler-case (handler-case
(if-let ((store *dns-store*)) (if-let ((store *dns-store*))
(-> message (-> message
(ensure-connection store)
(handle-dns-message store) (handle-dns-message store)
(handle-dns-response (msg-id message))) (handle-dns-response (msg-id message)))
(make-error :msg "dns store is not initialized" (make-error :msg "dns store is not initialized"