save_files.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 25 行

#!/usr/local/bin/perl
# save_files.cgi
# Save global files options

require './bind8-lib.pl';
%access = &get_module_acl();
$access{'defaults'} || &error($text{'files_ecannot'});
&error_setup($text{'files_err'});
&ReadParse();

$conf = &get_config();
$options = &find("options", $conf);
&save_opt("statistics-file", \&file_check, $options, 1);
&save_opt("dump-file", \&file_check, $options, 1);
&save_opt("pid-file", \&file_check, $options, 1);
&save_opt("named-xfer", \&file_check, $options, 1);
&flush_file_lines();
&redirect("");

sub file_check
{
return $_[0] =~ /\S/ ? '' : $text{'files_efile'};
}