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 afc6c5bb8d732488430b63fba646e4a985fc57ea..4ddd2af4bf98ce30dbd8f2f723c3b31979e03881 100755 (executable)
--- 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";