%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 # Show a form for setting up DNSSEC verification and trusted keys use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; # Globals our (%access, %text, $bind_version); our $dnssec_dlv_zone; require './bind8-lib.pl'; &ReadParse(); $access{'defaults'} || &error($text{'trusted_ecannot'}); &supports_dnssec_client() || &error($text{'trusted_esupport'}); &ui_print_header(undef, $text{'trusted_title'}, "", undef, undef, undef, undef, &restart_links()); my $conf = &get_config(); my $options = &find("options", $conf); my $mems = $options->{'members'}; my $tkeys = &find("trusted-keys", $conf); $tkeys ||= { 'members' => [ ] }; print &ui_form_start("save_trusted.cgi", "post"); print &ui_table_start($text{'trusted_header'}, undef, 2); if (&compare_version_numbers($bind_version, '<', '9.16.0')) { # DNSSEC enabled? print &choice_input($text{'trusted_dnssec'}, 'dnssec-enable', $mems, $text{'yes'}, 'yes', $text{'no'}, 'no', $text{'default'}, undef); } if (&supports_dnssec_client() == 2) { print &choice_input($text{'trusted_validation'}, 'dnssec-validation', $mems, $text{'trusted_auto'}, 'auto', $text{'yes'}, 'yes', $text{'no'}, 'no', $text{'default'}, undef); } # Trusted keys if (@{$tkeys->{'members'}}) { my @ktable = ( ); my $i = 0; foreach my $k (@{$tkeys->{'members'}}, { 'values' => [ ] }) { my @v = @{$k->{'values'}}; my @wrapped = ( ); while(length($v[3]) > 30) { push(@wrapped, substr($v[3], 0, 30)); $v[3] = substr($v[3], 30); } push(@wrapped, $v[3]); push(@ktable, [ &ui_opt_textbox("zone_$i", $k->{'name'}, 20, $text{'trusted_none'}), &ui_textbox("flags_$i", $v[0], 6), &ui_textbox("proto_$i", $v[1], 6), &ui_textbox("alg_$i", $v[2], 6), &ui_textarea("key_$i", join("\n", @wrapped), 4, 32) ]); $i++; } print &ui_table_row($text{'trusted_keys'}, &ui_columns_table([ $text{'trusted_zone'}, $text{'trusted_flags'}, $text{'trusted_proto'}, $text{'trusted_alg'}, $text{'trusted_key'} ], undef, \@ktable), 3); } print &ui_table_end(); print &ui_form_end([ [ undef, $text{'save'} ] ]); &ui_print_footer("", $text{'index_return'});