don't error out if there's no HEADER file, just produce a useable snippet anyway
authorivan <ivan>
Sun, 16 Oct 2005 14:59:54 +0000 (14:59 +0000)
committerivan <ivan>
Sun, 16 Oct 2005 14:59:54 +0000 (14:59 +0000)
bin/bind.export

index d0b9379..9f4a501 100755 (executable)
@@ -43,10 +43,12 @@ foreach my $export ( @exports ) {
   open(NAMED_CONF,">$prefix/named.conf")
     or die "can't open $prefix/named.conf: $!";
 
-  open(CONF_HEADER,"<$prefix/named.conf.HEADER")
-    or die "can't open $prefix/named.conf.HEADER: $!";
-  while (<CONF_HEADER>) { print NAMED_CONF $_; }
-  close CONF_HEADER;
+  if ( -e "$prefix/named.conf.HEADER" ) {
+    open(CONF_HEADER,"<$prefix/named.conf.HEADER")
+      or die "can't open $prefix/named.conf.HEADER: $!";
+    while (<CONF_HEADER>) { print NAMED_CONF $_; }
+    close CONF_HEADER;
+  }
 
   my $zonepath = $export->option('zonepath');
   $zonepath =~ s/\/$//;