bind8/view_form.cgi

   1 #!/usr/local/bin/perl
   2 # view_form.cgi
   3 # Display options for creating a new view
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $conf = &get_config();
   8 $access{'views'} == 1 || &error($text{'vcreate_ecannot'});
   9 $access{'ro'} && &error($text{'vcreate_ecannot'});
  10
  11 &ui_print_header(undef, $text{'vcreate_title'}, "",
  12                  undef, undef, undef, undef, &restart_links());
  13
  14 # Form header
  15 print &ui_form_start("create_view.cgi", "post");
  16 print &ui_table_start($text{'view_opts'}, "width=100%", 4);
  17
  18 # View name
  19 print &ui_table_row($text{'view_name'},
  20         &ui_textbox("name", undef, 25));
  21
  22 # Custom class
  23 print &ui_table_row($text{'view_class'},
  24         &ui_opt_textbox("class", undef, 4, "$text{'default'} (<tt>IN</tt>)"));
  25
  26 # Clients to match
  27 print &ui_table_row($text{'view_match'},
  28         &ui_radio("match_def", 0, [ [ 1, $text{'vcreate_match_all'} ],
  29                                     [ 0, $text{'vcreate_match_sel'} ] ])."<br>".
  30         &ui_textarea("match", undef, 5, 40));
  31
  32 print &ui_table_end();
  33 print &ui_form_end([ [ undef, $text{'create'} ] ]);
  34
  35 &ui_print_footer("", $text{'index_return'});
  36