chiark / gitweb /
zone: Write output to DOMAIN.zone, rather than just DOMAIN.
authorMark Wooding <mdw@distorted.org.uk>
Thu, 20 Apr 2006 10:31:48 +0000 (11:31 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 20 Apr 2006 10:31:48 +0000 (11:31 +0100)
It seemed sexy to just name the zone file after the zone, but actually
it causes any number of difficulties.

zone.lisp

index 83ad3b9..e83aa75 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1017,8 +1017,9 @@ (defun zone-save (zones)
        (unless zz
          (error "Unknown zone `~A'." z))
        (let ((stream (safely-open-output-stream safe
-                                                (string-downcase
-                                                 (stringify z)))))
+                                                (format nil
+                                                        "~(~A~).zone"
+                                                        z))))
          (zone-write zz stream))))))
 
 ;;;----- That's all, folks --------------------------------------------------