|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/bind8/ |
Upload File : |
#!/usr/bin/perl
# slave_form.cgi
# A form for creating a new slave or stub zone
require './bind8-lib.pl';
$type = ($0 =~ /slave_form/);
$access{'slave'} || &error($type ? $text{'screate_ecannot1'}
: $text{'screate_ecannot2'});
$conf = &get_config();
&ui_print_header(undef, $type ? $text{'screate_title1'}
: $text{'screate_title2'}, "");
# Start of the form
print &ui_form_start("create_slave.cgi");
print &ui_hidden("type", $type);
print &ui_table_start($type ? $text{'screate_header1'}
: $text{'screate_header2'}, "width=100%", 4);
# Forward or reverse?
print &ui_table_row($text{'screate_type'},
&ui_radio("rev", 0, [ [ 0, $text{'screate_fwd'} ],
[ 1, $text{'screate_rev'} ] ]), 3);
# Domain name
print &ui_table_row($text{'screate_dom'},
&ui_textbox("zone", undef, 60), 3);
# Create in view
@views = &find("view", $conf);
if (@views) {
print &ui_table_row($text{'mcreate_view'},
&ui_select("view", undef,
[ map { [ $_->{'index'}, $_->{'values'}->[0] ] }
grep { &can_edit_view($_) } @views ]), 3);
}
# Zone file
print &ui_table_row($text{'slave_file'},
&ui_radio("file_def", 2, [ [ 1, $text{'slave_none'} ],
[ 2, $text{'slave_auto'} ],
[ 3, &ui_filebox("file", undef, 30) ] ]), 3);
# Master servers
print &ui_table_row($text{'slave_masters'},
&ui_textarea("masters",
join("\n", split(/\s+/, $config{'default_master'})),
4, 30));
# Master port
print &ui_table_row($text{'slave_masterport'},
&ui_opt_textbox("port", undef, 5, $text{'default'},
$text{'slave_master_port'}));
# Create on slave servers?
@servers = grep { $_->{'sec'} } &list_slave_servers();
if (@servers && $access{'remote'}) {
print &ui_table_row($text{'master_onslave'},
&ui_yesno_radio("onslave", 1));
}
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'create'} ] ]);
&ui_print_footer("", $text{'index_return'});