bind8/forward_form.cgi

   1 #!/usr/local/bin/perl
   2 # forward_form.cgi
   3 # A form for creating a new forard zone
   4
   5 require './bind8-lib.pl';
   6 $access{'forward'} || &error($text{'fcreate_ecannot'});
   7 $access{'ro'} && &error($text{'master_ero'});
   8 &ui_print_header(undef, $text{'fcreate_title'}, "",
   9                  undef, undef, undef, undef, &restart_links());
  10
  11 # Form start
  12 print &ui_form_start("create_forward.cgi", "post");
  13 print &ui_table_start($text{'fcreate_opts'}, "width=100%", 4);
  14
  15 # Forward or reverse?
  16 print &ui_table_row($text{'fcreate_type'},
  17         &ui_radio("rev", 0, [ [ 0, $text{'fcreate_fwd'} ],
  18                               [ 1, $text{'fcreate_rev'} ] ]), 3);
  19
  20 # Domain name
  21 print &ui_table_row($text{'fcreate_dom'},
  22         &ui_textbox("zone", undef, 60), 3);
  23
  24 # In view
  25 $conf = &get_config();
  26 @views = &find("view", $conf);
  27 if (@views) {
  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);
  34         }
  35
  36 # Master servers
  37 print &ui_table_row($text{'fcreate_masters'},
  38         &ui_textarea("masters", undef, 4, 30));
  39
  40 print &ui_table_end();
  41 print &ui_form_end([ [ undef, $text{'create'} ] ]);
  42
  43 &ui_print_footer("", $text{'index_return'});