60 lines
1.6 KiB
Common Lisp
60 lines
1.6 KiB
Common Lisp
;;;; package.lisp
|
|
|
|
(defpackage #:backplane-dns
|
|
(:use #:cl)
|
|
|
|
(:import-from #:arrows
|
|
#:->
|
|
#:some->)
|
|
(:import-from #:alexandria
|
|
#:if-let)
|
|
(:import-from #:backplane-server
|
|
#:backplane-connect
|
|
#:make-error
|
|
#:make-success
|
|
#:start-listening
|
|
#:with-backplane)
|
|
(:import-from #:backplane-dns-store
|
|
#:invalid-sshfp
|
|
#:missing-domain
|
|
#:invalid-ip
|
|
#:domain-name-missing
|
|
#:error-msg)
|
|
|
|
(:export #:start-listener-with-env
|
|
#:backplane-dns-listen
|
|
#:parse-message
|
|
#:handle-message
|
|
#:unknown-dns-request
|
|
#:request-change-ipv4
|
|
#:request-change-ipv6
|
|
#:request-change-sshfp
|
|
#:*dns-store*))
|
|
|
|
(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 #:set-ipv4
|
|
#:set-ipv6
|
|
#:set-sshfp
|
|
#:postgres-dns-store
|
|
#:invalid-ip
|
|
#:invalid-sshfp
|
|
#:domain-name-missing
|
|
#:missing-domain
|
|
#:dns-store
|
|
#:sshfp-p
|
|
#:error-msg))
|