save_text.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_text.cgi
# Save a manually edit zone file

require './dns-lib.pl';
&ReadParse();
%access = &get_module_acl();
$zconf = &get_config()->[$in{'index'}];
&can_edit_zone(\%access, $zconf->{'values'}->[0]) ||
	&error("You are not allowed to edit this zone");
$file = &absolute_path($zconf->{'values'}->[1]);

$in{'text'} =~ s/\r//g;
open(FILE, ">$file");
print FILE $in{'text'};
close(FILE);
&redirect("edit_master.cgi?index=$in{'index'}");