29 lines
741 B
Common Lisp
29 lines
741 B
Common Lisp
|
;;;; 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
|
||
|
|
#:with-transaction)
|
||
|
|
|
||
|
|
(:export #:postgres-dns-store
|
||
|
|
#:invalid-ip
|
||
|
|
#:invalid-sshfp
|
||
|
|
#:domain-name-missing
|
||
|
|
#:missing-domain
|
||
|
|
#:dns-store
|
||
|
|
#:sshfp-p
|
||
|
|
#:error-msg
|
||
|
|
#:set-ipv4
|
||
|
|
#:set-ipv6
|
||
|
|
#:set-sshfp))
|