bind8/edit_delegation.cgi

   1 #!/usr/local/bin/perl
   2 # edit_delegation.cgi
   3 # Display options for an existing delegation-only
   4
   5 require './bind8-lib.pl';
   6 &ReadParse();
   7 $bconf = $conf = &get_config();
   8 if ($in{'view'} ne '') {
   9         $view = $conf->[$in{'view'}];
  10         $conf = $view->{'members'};
  11         }
  12 $zconf = $conf->[$in{'index'}]->{'members'};
  13 $dom = $conf->[$in{'index'}]->{'value'};
  14 &can_edit_zone($conf->[$in{'index'}], $view) ||
  15         &error($text{'delegation_ecannot'});
  16 $desc = &ip6int_to_net(&arpa_to_ip($dom));
  17 &ui_print_header($desc, $text{'delegation_title'}, "",
  18                  undef, undef, undef, undef, &restart_links());
  19
  20 print "<b>$text{'delegation_noopts'}</b><p>\n";
  21
  22 if (!$access{'ro'}) {
  23         print &ui_hr();
  24         print &ui_buttons_start();
  25
  26         # Move to another view
  27         print &move_zone_button($bconf, $in{'view'}, $in{'index'});
  28
  29         # Delete zone
  30         if ($access{'delete'}) {
  31                 print &ui_buttons_row("delete_zone.cgi",
  32                         $text{'master_del'}, $text{'delegation_delmsg'},
  33                         &ui_hidden("index", $in{'index'}).
  34                         &ui_hidden("view", $in{'view'}));
  35                 }
  36
  37         print &ui_buttons_end();
  38         }
  39 &ui_print_footer("", $text{'index_return'});
  40