?? feedback_files.pl
字號:
#! /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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -