cscvs to tla changeset 6

Author: noodles
Date: 2005/04/08 11:37:16
Ensure the domain list file exists for a user.

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

diff --git a/autodns.pl b/autodns.pl
index 67377a3025ee36bcb4cc875361b95a55e4ca2774..a2b4dd9fb6f52e24b3d91ac6e4930abb723d01b3 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.5 2005/03/21 15:11:01 noodles Exp $
+# $Id: autodns.pl,v 1.6 2005/04/08 11:37:16 noodles Exp $
 #
 
 use strict;
@@ -336,6 +336,13 @@ foreach my $cfgfile (@cfgfiles) {
        getzones($cfgfile);
 }
 
+# Force existance of the $domainlistroot$user file
+if (! -e $domainlistroot.$user) {
+       open (DOMAINLIST, ">>$domainlistroot$user") or
+                       &fatalerror("Couldn't create domains file.\n");
+       close DOMAINLIST;
+}
+
 foreach (@COMMANDS) {
        # Remove trailing CRs and leading/trailing whitespace
        chomp;