2020-12-03 21:58:57 -08:00
|
|
|
;;;; store-package.lisp
|
|
|
|
|
|
|
|
|
|
(defpackage #:backplane-dns-store
|
|
|
|
|
(:use #:cl)
|
|
|
|
|
|
|
|
|
|
(:import-from #:arrows #:->)
|
|
|
|
|
(:import-from #:alexandria #:if-let)
|
|
|
|
|
(:import-from #:ip-utils
|
|
|
|
|
#:ipv4-p
|
|
|
|
|
#:ipv6-p)
|
|
|
|
|
(:import-from #:postmodern
|
|
|
|
|
#:select-dao
|
|
|
|
|
#:update-dao
|
|
|
|
|
#:insert-dao
|
|
|
|
|
#:delete-dao
|
2022-03-09 13:42:13 -08:00
|
|
|
#:with-transaction
|
|
|
|
|
#:connected-p
|
|
|
|
|
#:reconnect)
|
2020-12-03 21:58:57 -08:00
|
|
|
|
|
|
|
|
(:export #:postgres-dns-store
|
|
|
|
|
#:invalid-ip
|
|
|
|
|
#:invalid-sshfp
|
|
|
|
|
#:domain-name-missing
|
|
|
|
|
#:missing-domain
|
|
|
|
|
#:dns-store
|
|
|
|
|
#:sshfp-p
|
|
|
|
|
#:error-msg
|
2022-03-09 13:34:45 -08:00
|
|
|
#:ensure-connection
|
2020-12-03 21:58:57 -08:00
|
|
|
#:set-ipv4
|
|
|
|
|
#:set-ipv6
|
|
|
|
|
#:set-sshfp))
|
