#! /usr/bin/perl##    B9DDNS - BIND 9 dynamic DNS webmin module.#    Copyright (C) 2003 John Horne. <john.horne@plymouth.ac.uk>#    Copyright (C) 2004 John Horne. <john.horne@plymouth.ac.uk>##    This program is free software; you can redistribute it and/or modify#    it under the terms of the GNU General Public License as published by#    the Free Software Foundation; either version 2 of the License, or#    (at your option) any later version.##    This program is distributed in the hope that it will be useful,#    but WITHOUT ANY WARRANTY; without even the implied warranty of#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the#    GNU General Public License for more details.##    You should have received a copy of the GNU General Public License#    along with this program; if not, write to the Free Software#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.#use strict;no strict 'vars';require 'b9ddns-lib.pl';sub feedback_files {	my $conf = my $view = my $zone = my $type = my $file = '';	my @views = my @zones = my @rv = ();	@rv = ( $config{'chroot'} . $config{'named_conf'} );	$conf = &get_config();	@views = &find('view', $conf);	foreach $view (@views) {		push(@zones, &find('zone', $view->{'members'}));	}	push(@zones, &find('zone', $conf));	foreach $zone (@zones) {		$type = &find_value('type', $zone->{'members'});		if (defined($type) && $type eq 'master') {			$file = &find_value('file', $zone->{'members'});			push(@rv, $file) if (defined($file));		}	}	return @rv;}1;