bind8/mass_form.cgi

   1 #!/usr/local/bin/perl
   2 # Form for creating multiple zones from an uploaded file, local file or text
   3
   4 require './bind8-lib.pl';
   5 &ReadParse();
   6 &ui_print_header(undef, $text{'mass_title'}, "");
   7
   8 print "$text{'mass_desc'}<p>\n";
   9
  10 print &ui_form_start("mass_create.cgi", "form-data");
  11 print &ui_table_start($text{'mass_header'}, "100%", 2);
  12
  13 print &ui_table_row($text{'mass_local'},
  14                     &ui_textbox("local", undef, 40)."\n".
  15                     &file_chooser_button("local"));
  16
  17 print &ui_table_row($text{'mass_upload'},
  18                     &ui_upload("upload", 40));
  19
  20 print &ui_table_row($text{'mass_text'},
  21                     &ui_textarea("text", undef, 5, 40));
  22
  23 print &ui_table_row($text{'mass_tmpl'},
  24                     &ui_yesno_radio("tmpl", 1));
  25
  26 @servers = &list_slave_servers();
  27 if (@servers && $access{'remote'}) {
  28         print &ui_table_row($text{'mass_onslave'},
  29             &ui_radio("onslave", 1,
  30                 [ [ 0, $text{'no'} ], [ 1, $text{'master_onslaveyes'} ] ])." ".
  31             &ui_textbox("mip", $config{'this_ip'} ||
  32                  &to_ipaddress(&get_system_hostname()), 30));
  33         }
  34
  35 @views = grep { $_->{'type'} eq 'view' && &can_edit_view($_) }
  36               &list_zone_names();
  37 if (@views) {
  38         print &ui_table_row($text{'mass_view'},
  39                     &ui_select("view", undef,
  40                         [ map { [ $_->{'index'}, $_->{'name'} ] } @views ]));
  41         }
  42
  43 print &ui_table_end();
  44 print &ui_form_end([ [ "ok", $text{'mass_ok'} ] ]);
  45
  46 &ui_print_footer("", $text{'index_return'});
  47