diff --git a/dns-backplane.asd b/backplane-dns.asd similarity index 61% rename from dns-backplane.asd rename to backplane-dns.asd index 1d2f307..c264589 100644 --- a/dns-backplane.asd +++ b/backplane-dns.asd @@ -1,10 +1,10 @@ ;;;; dns-backplane.asd -(asdf:defsystem #:dns-backplane - :description "Describe dns-backplane here" - :author "Your Name " +(asdf:defsystem #:backplane-dns + :description "Server to listen on Fudo backplane for DNS updates" + :author "Niten " :license "Specify license here" - :version "0.0.1" + :version "0.1.0" :serial t :depends-on (:alexandria :arrows @@ -15,4 +15,4 @@ :postmodern :trivia) :components ((:file "package") - (:file "dns-backplane"))) + (:file "backplane-dns"))) diff --git a/dns-backplane.lisp b/backplane-dns.lisp similarity index 97% rename from dns-backplane.lisp rename to backplane-dns.lisp index ffb0191..c928592 100644 --- a/dns-backplane.lisp +++ b/backplane-dns.lisp @@ -1,6 +1,6 @@ -;;;; dns-backplane.lisp +;;;; backplane-dns.lisp -(in-package #:dns-backplane) +(in-package #:backplane-dns) (defun xmpp-connect (hostname username password) (let ((conn (xmpp:connect-tls :hostname hostname))) @@ -181,7 +181,7 @@ :mechanism :sasl-plain) (funcall f backplane))) -(defun dns-backplane-listen (xmpp-host +(defun backplane-dns-listen (xmpp-host xmpp-username xmpp-password db-host @@ -197,8 +197,8 @@ (let ((input (open filename :if-does-not-exist nil))) (read-line input))) -(defun start-dns-backplane-listener-with-env () - (dns-backplane-listen +(defun start-backplane-dns-listener-with-env () + (backplane-dns-listen (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org") (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns") (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE")) diff --git a/package.lisp b/package.lisp index b40a8f3..f617a9f 100644 --- a/package.lisp +++ b/package.lisp @@ -1,6 +1,6 @@ ;;;; package.lisp -(defpackage #:dns-backplane +(defpackage #:backplane-dns (:use #:cl) (:import-from #:arrows #:->