zone_conf($2,'stealth','u',$1,'',split /\s+/, $3);
} elsif (m/^slave\-dir\s+(\S+)(?:(?:\s+(\S+))\s+(\S+))?$/) {
($slave_dir, $slave_prefix, $slave_suffix) = (qualify($1),$2,$3);
+ $slave_prefix='' if !defined $slave_prefix;
+ $slave_suffix='' if !defined $slave_suffix;
} elsif (m/^output\s+bind8\+(\S+)$/) {
cfg_fail("default output may not apply to only some zones")
if @zone_cfg_list && length $default_output;
#-------------------- outputting
sub zone_output () {
- my ($o);
+ my ($o,$m);
$o= "zone \"$zone\" {\n";
if ($$cfg{'s'} =~ m/p/) {
- $o.= " type master\n";
+ $o.= " type master;\n";
} else {
- $o.= " type slave\n".
+ $o.= " type slave;\n".
" masters {\n";
- foreach $m (@{ $cfg{'servers'} }) { $o.= " $m;\n"; }
+ foreach $m (@{ $$cfg{'servers'} }) { $o.= " $m;\n"; }
$o.= " };\n";
}
+ $o.= " file \"$$cfg{'file'}\";\n";
+ $o.= "};\n";
return $o;
}