mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
Initial checkin of Webmin
This commit is contained in:
26
bind8/save_files.cgi
Executable file
26
bind8/save_files.cgi
Executable file
@ -0,0 +1,26 @@
|
||||
#!/usr/local/bin/perl
|
||||
# save_files.cgi
|
||||
# Save global files options
|
||||
|
||||
require './bind8-lib.pl';
|
||||
$access{'defaults'} || &error($text{'files_ecannot'});
|
||||
&error_setup($text{'files_err'});
|
||||
&ReadParse();
|
||||
|
||||
&lock_file(&make_chroot($config{'named_conf'}));
|
||||
$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();
|
||||
&unlock_file(&make_chroot($config{'named_conf'}));
|
||||
&webmin_log("files", undef, undef, \%in);
|
||||
&redirect("");
|
||||
|
||||
sub file_check
|
||||
{
|
||||
return $_[0] =~ /\S/ ? '' : $text{'files_efile'};
|
||||
}
|
||||
|
Reference in New Issue
Block a user