From: Jonathan McDowell <noodles@earth.li>
Date: Wed, 15 Jun 2005 10:41:53 +0000 (+0000)
Subject: cscvs to tla changeset 3
X-Git-Url: https://the.earth.li/gitweb/?a=commitdiff_plain;h=0f0b714329f21d32e30c0e4856602181f4b70d64;p=autodns.git

cscvs to tla changeset 3

Author: noodles
Date: 2004/04/08 10:45:44
Don't try to write files with / in the name - convert to : instead.

git-archimport-id: noodles@earth.li--pie/autodns--mainline--1.0--patch-2
---

diff --git a/autodns.pl b/autodns.pl
index afc6c5b..4ddd2af 100755
--- a/autodns.pl
+++ b/autodns.pl
@@ -5,7 +5,7 @@
 # http://www.earth.li/projectpurple/progs/autodns.html
 # Released under the GPL.
 #
-# $Id: autodns.pl,v 1.2 2003/06/04 17:27:00 noodles Exp $
+# $Id: autodns.pl,v 1.3 2004/04/08 10:45:44 noodles Exp $
 #
 
 use strict;
@@ -316,6 +316,9 @@ foreach (@COMMANDS) {
 			print REPLY "Adding domain $domain\n";
 			$zones{$domain}=1;
 
+			my $df = $domain;
+			$df =~ tr,/,:,;
+
 			open (DOMAINSFILE, ">>$conffile");
 			print DOMAINSFILE "
 ### Domain added for '$user'
@@ -323,7 +326,7 @@ foreach (@COMMANDS) {
 zone \"$domain\" {
 	type slave;
 	masters { $server; };
-	file \"secondary/$user/$domain\";
+	file \"secondary/$user/$df\";
 	allow-transfer { none; };
 	allow-query { any; };
 };\n";