edit_record.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_record.cgi
# Edit an existing record of some type

require './dns-lib.pl';
&ReadParse();
$conf = &get_config();
$zconf = $conf->[$in{'index'}];
$dom = $zconf->{'values'}->[0];
%access = &get_module_acl();
&can_edit_zone(\%access, $dom) ||
        &error("You are not allowed to edit records in this zone");
&header("Edit $code_map{$in{'type'}}", "");
print "<center><font size=+2>In ",&arpa_to_ip($dom),"</font></center>\n";
print "<hr>\n";

&foreign_call("bind8", "record_input", $in{'index'}, $in{'type'},
	      $zconf->{'values'}->[1], $zconf->{'values'}->[0], $in{'num'});
print "<hr>\n";
&footer("edit_recs.cgi?index=$in{'index'}&type=$in{'type'}", "records");