mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
33 lines
588 B
Perl
Executable File
33 lines
588 B
Perl
Executable File
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;
|
|
|