%PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY
Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/bind8/ |
Upload File : |
#!/usr/bin/perl # save_slave.cgi # Save changes to slave zone options in named.conf use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%access, %text, %in); require './bind8-lib.pl'; &ReadParse(); &error_setup($text{'slave_err'}); my $zone = &get_zone_name_or_error($in{'zone'}, $in{'view'}); my $z = &zone_to_config($zone); my $zconf = $z->{'members'}; my $dom = $zone->{'name'}; my $conf = &get_config(); &can_edit_zone($zone) || &error($text{'master_ecannot'}); my $indent = $zone->{'view'} ? 2 : 1; $access{'ro'} && &error($text{'master_ero'}); $access{'opts'} || &error($text{'master_eoptscannot'}); &lock_file(&make_chroot($z->{'file'})); &save_port_address("masters", "port", $z, $indent); &save_opt("max-transfer-time-in", \&mtti_check, $z, $indent); &save_opt("file", \&file_check, $z, $indent); &save_choice("check-names", $z, $indent); &save_choice("notify", $z, $indent); &save_choice("masterfile-format", $z, $indent); &save_addr_match("allow-update", $z, $indent); &save_addr_match("allow-transfer", $z, $indent); &save_addr_match("allow-query", $z, $indent); &save_address("also-notify", $z, $indent); &flush_file_lines(); &unlock_file(&make_chroot($z->{'file'})); &webmin_log("opts", undef, $dom, \%in); &redirect("edit_slave.cgi?zone=$in{'zone'}&view=$in{'view'}"); sub mtti_check { return $_[0] =~ /^\d+$/ ? undef : &text('slave_emax', $_[0]); } sub file_check { return $text{'slave_efile'} if ($_[0] !~ /\S/); my $file = $_[0]; if ($_[0] !~ /^\//) { $file = &base_directory($conf)."/".$file; } return &allowed_zone_file(\%access, $file) ? undef : &text('slave_efile2', $_[0]); }