-fixme implement .* on self-soa self-ns
-
#!/usr/bin/perl -w
use strict;
if $sfx =~ m/^self/;
$zone_cfg{$zone}{$sfx}= $aref;
}
+ foreach $sfx (qw(self_soa self_ns)) {
+ $zone_cfg{$zone}{$sfx} =~ s/\*$/$zone/;
+ }
$zone_cfg{$zone}{'output'}= $output;
push @zone_cfg_list, $zone;
}