bind8/edit_hint.cgi

   1 #!/usr/local/bin/perl
   2 # edit_hint.cgi
   3 # Display information about the hint (root) zone
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $zone = &get_zone_name($in{'index'}, $in{'view'});
   8 $dom = $zone->{'name'};
   9 &can_edit_zone($zone) ||
  10         &error($text{'hint_ecannot'});
  11
  12 &ui_print_header(undef, $text{'hint_title'}, "",
  13                  undef, undef, undef, undef, &restart_links());
  14
  15 print $text{'hint_desc'},"<p>\n";
  16
  17 print &ui_buttons_start();
  18
  19 # Re-fetch master file button
  20 print &ui_buttons_row("refetch.cgi",
  21                       $text{'hint_refetch'},
  22                       $text{'hint_refetchdesc'},
  23                       &ui_hidden("index", $in{'index'}).
  24                       &ui_hidden("view", $in{'view'}));
  25
  26 # Delete button
  27 print &ui_buttons_row(
  28         "delete_zone.cgi",
  29         $text{'hint_delete'},
  30         $text{'hint_deletedesc'},
  31         &ui_hidden("index", $in{'index'}).
  32         &ui_hidden("view", $in{'view'}));
  33
  34 print &ui_buttons_end();
  35
  36 &ui_print_footer("", $text{'index_return'});
  37