λgitsite

Bind DNS server to localhost by default

Jaime Fournier

dfb4914be86c5c1d871c1f7a6adadab0fd3727c8

diff --git a/lib/jerboa-dns/main.ss b/lib/jerboa-dns/main.ss
index 1c83c1d..e82c441 100644
--- a/lib/jerboa-dns/main.ss
+++ b/lib/jerboa-dns/main.ss
@@ -27,7 +27,7 @@
   (def (run-jdns! args)
     ;; Configuration from environment variables (djbdns convention)
     ;; or command-line args: [ip] [port] [root-dir] [uid] [gid]
-    (let ([ip (or (getenv "IP") "0.0.0.0")]
+    (let ([ip (or (getenv "IP") "127.0.0.1")]
           [port (or (and (getenv "PORT") (string->number (getenv "PORT")))
                     53)]
           [root-dir (or (getenv "ROOT") ".")]
diff --git a/lib/jerboa-dns/server.ss b/lib/jerboa-dns/server.ss
index 699319f..609d24c 100644
--- a/lib/jerboa-dns/server.ss
+++ b/lib/jerboa-dns/server.ss
@@ -62,7 +62,7 @@
 
   ;; ========== Server Configuration ==========
 
-  ;; ip: bind address (default "0.0.0.0"); port (default 53); root-dir:
+  ;; ip: bind address (default "127.0.0.1"); port (default 53); root-dir:
   ;; chroot target after binding; uid/gid: integer or #f for setuid/setgid;
   ;; data-file: CDB filename (default "data.cdb")
   (defstruct server-config (ip port root-dir uid gid data-file))