| Server IP : 127.0.0.1 / Your IP : 216.73.216.109 Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10 System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64 User : SERVERWEB ( 0) PHP Version : 8.1.10 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/cygwin64/home/SERVERWEB/webmin-2.105/bind8/ |
Upload 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;