3 # A form for creating a new delegation-only
5 require './bind8-lib.pl';
6 $access{'delegation'} || &error($text{'dcreate_ecannot'});
7 $access{'ro'} && &error($text{'master_ero'});
8 &ui_print_header(undef, $text{'dcreate_title'}, "",
9 undef, undef, undef, undef, &restart_links());
12 print &ui_form_start("create_delegation.cgi", "post");
13 print &ui_table_start($text{'dcreate_opts'}, "width=100%", 4);
16 print &ui_table_row($text{'fcreate_type'},
17 &ui_radio("rev", 0, [ [ 0, $text{'fcreate_fwd'} ],
18 [ 1, $text{'fcreate_rev'} ] ]), 3);
21 print &ui_table_row($text{'fcreate_dom'},
22 &ui_textbox("zone", undef, 60), 3);
25 $conf = &get_config();
26 @views = &find("view", $conf);
28 ($defview) = grep { lc($_->{'values'}->[0]) eq
29 lc($config{'default_view'}) } @views;
30 print &ui_table_row($text{'mcreate_view'},
31 &ui_select("view", $defview ? $defview->{'index'} : undef,
32 [ map { [ $_->{'index'}, $_->{'values'}->[0] ] }
33 grep { &can_edit_view($_) } @views ]), 3);
36 print &ui_table_end();
37 print &ui_form_end([ [ undef, $text{'create'} ] ]);
39 &ui_print_footer("", $text{'index_return'});