#!/usr/local/bin/perl
# edit_hint.cgi
# Display information about the hint (root) zone

require './bind8-lib.pl';
&ReadParse();
$bconf = $conf = &get_config();
if ($in{'view'} ne '') {
	$conf = $conf->[$in{'view'}]->{'members'};
	}
$zconf = $conf->[$in{'index'}]->{'members'};
$dom = $conf->[$in{'index'}]->{'value'};
%access = &get_module_acl();
&can_edit_zone(\%access, $conf->[$in{'index'}]) ||
	&error($text{'hint_ecannot'});

&header($text{'hint_title'}, "");
print "<hr>\n";

print $text{'hint_desc'},"<p>\n";

print "<table width=100%> <tr>\n";
print "<form action=delete_zone.cgi>\n";
print "<input type=hidden name=index value=\"$in{'index'}\">\n";
print "<input type=hidden name=view value=\"$in{'view'}\">\n";
print "<td align=right width=50%><input type=submit ",
      "value=\"$text{'delete'}\"></td></form>\n";
print "</tr></table>\n";

print "<hr>\n";
&footer("", $text{'index_return'});

