From 1c472e03951aeaf721c6043f5bdaf5acaf0f4941 Mon Sep 17 00:00:00 2001 Message-Id: <1c472e03951aeaf721c6043f5bdaf5acaf0f4941.1714985643.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 20 Apr 2006 11:31:48 +0100 Subject: [PATCH] zone: Write output to DOMAIN.zone, rather than just DOMAIN. Organization: Straylight/Edgeware From: Mark Wooding It seemed sexy to just name the zone file after the zone, but actually it causes any number of difficulties. --- zone.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/zone.lisp b/zone.lisp index 83ad3b9..e83aa75 100644 --- 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 -------------------------------------------------- -- [mdw]