33 lines
954 B
Common Lisp
33 lines
954 B
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
|
|
#:ensure-connection)
|
|
(: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*))
|