bind8/feedback_files.pl

   1
   2 do 'bind8-lib.pl';
   3
   4 sub feedback_files
   5 {
   6 local @rv = ( &make_chroot($config{'named_conf'}) );
   7 local $conf = &get_config();
   8 local @views = &find("view", $conf);
   9 local @zones;
  10 foreach $v (@views) {
  11         push(@zones, &find("zone", $v->{'members'}));
  12         }
  13 push(@zones, &find("zone", $conf));
  14 foreach $z (@zones) {
  15         local $tv = &find("type", $z->{'members'});
  16         if ($tv->{'value'} eq 'primary') {
  17                 local $fv = &find("file", $z->{'members'});
  18                 if ($fv) {
  19                         push(@rv, $fv->{'value'});
  20                         }
  21                 }
  22         }
  23 return @rv;
  24 }
  25
  26 1;
  27