mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 16:29:58 +00:00
35 lines
1.0 KiB
Perl
Executable File
35 lines
1.0 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_hint.cgi
|
|
# Display information about the hint (root) zone
|
|
|
|
require './bind8-lib.pl';
|
|
&ReadParse();
|
|
$zone = &get_zone_name($in{'index'}, $in{'view'});
|
|
$dom = $zone->{'name'};
|
|
&can_edit_zone($zone) ||
|
|
&error($text{'hint_ecannot'});
|
|
|
|
&ui_print_header(undef, $text{'hint_title'}, "");
|
|
|
|
print $text{'hint_desc'},"<p>\n";
|
|
|
|
print "<table width=100%> <tr>\n";
|
|
|
|
# Re-fetch master file button
|
|
print "<form action=refetch.cgi>\n";
|
|
print "<input type=hidden name=index value=\"$in{'index'}\">\n";
|
|
print "<input type=hidden name=view value=\"$in{'view'}\">\n";
|
|
print "<td width=50%><input type=submit ",
|
|
"value=\"$text{'hint_refetch'}\"></td></form>\n";
|
|
|
|
# Delete button
|
|
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";
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|