bind8/edit_text.cgi

   1 #!/usr/local/bin/perl
   2 # edit_text.cgi
   3 # Display a form for manually editing a records file
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $zone = &get_zone_name($in{'index'}, $in{'view'});
   8 $file = &absolute_path($zone->{'file'});
   9 $tv = $zone->{'type'};
  10 &can_edit_zone($zone) ||
  11         &error($text{'master_ecannot'});
  12 $access{'file'} || &error($text{'text_ecannot'});
  13 &ui_print_header($file, $text{'text_title'}, "",
  14                  undef, undef, undef, undef, &restart_links($zone));
  15
  16 $text = &read_file_contents(&make_chroot($file));
  17 if (!$access{'ro'}) {
  18         print &text('text_desc3', "<tt>$file</tt>"),"<p>\n";
  19         }
  20
  21 print &ui_form_start("save_text.cgi", "form-data");
  22 print &ui_table_start(undef, "width=100%", 2);
  23 print &ui_hidden("index", $in{'index'});
  24 print &ui_hidden("view", $in{'view'});
  25 print &ui_table_row(undef, &ui_textarea("text", $text, 20, 80,
  26                                         undef, 0, "style='width:100%'"), 2);
  27 print &ui_table_row(undef, &ui_checkbox("soa", 1, $text{'text_soa'}, 1), 2);
  28 print &ui_table_end();
  29 print &ui_form_end($access{'ro'} ? [ ] : [ [ undef, $text{'save'} ] ]);
  30
  31 &ui_print_footer(($tv eq "master" ? "edit_master.cgi" :
  32          $tv eq "forward" ? "edit_forward.cgi" : "edit_slave.cgi").
  33         "?index=$in{'index'}&view=$in{'view'}", $text{'master_return'});