Current File : //usr/share/webmin/bind8/feedback_files.pl |
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%config);
do 'bind8-lib.pl';
sub feedback_files
{
my @rv = ( &make_chroot($config{'named_conf'}) );
my $conf = &get_config();
my @views = &find("view", $conf);
my @zones;
foreach my $v (@views) {
push(@zones, &find("zone", $v->{'members'}));
}
push(@zones, &find("zone", $conf));
foreach my $z (@zones) {
my $tv = &find("type", $z->{'members'});
if ($tv->{'value'} eq 'primary') {
my $fv = &find("file", $z->{'members'});
if ($fv) {
push(@rv, $fv->{'value'});
}
}
}
return @rv;
}
1;