2020-11-04 12:34:28 -08:00
|
|
|
;;;; package.lisp
|
|
|
|
|
2020-11-11 09:39:00 -08:00
|
|
|
(defpackage #:backplane-dns
|
2020-11-04 12:34:28 -08:00
|
|
|
(:use #:cl)
|
2020-11-24 11:51:03 -08:00
|
|
|
|
2020-11-04 12:34:28 -08:00
|
|
|
(:import-from #:arrows
|
|
|
|
#:->
|
|
|
|
#:some->)
|
|
|
|
(:import-from #:alexandria
|
|
|
|
#:if-let)
|
2020-11-24 11:51:03 -08:00
|
|
|
(:import-from #:backplane-server
|
2020-12-01 16:42:33 -08:00
|
|
|
#:backplane-connect
|
2020-11-24 11:51:03 -08:00
|
|
|
#:make-error
|
|
|
|
#:make-success
|
2020-12-03 21:09:07 -08:00
|
|
|
#:start-listening
|
2020-11-24 11:51:03 -08:00
|
|
|
#:with-backplane)
|
2020-12-03 21:09:07 -08:00
|
|
|
(:import-from #:backplane-dns-store
|
|
|
|
#:invalid-sshfp
|
|
|
|
#:missing-domain
|
|
|
|
#:invalid-ip
|
|
|
|
#:domain-name-missing
|
2022-03-09 13:51:34 -08:00
|
|
|
#:error-msg
|
|
|
|
#:ensure-connection)
|
2020-12-03 21:09:07 -08:00
|
|
|
(: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*))
|