From 0f0b714329f21d32e30c0e4856602181f4b70d64 Mon Sep 17 00:00:00 2001 From: Jonathan McDowell Date: Wed, 15 Jun 2005 10:41:53 +0000 Subject: [PATCH] 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 --- autodns.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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"; -- 2.39.5