From: Jonathan McDowell 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";