One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

View File Name : 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;