save_text.cgi

Unix下基于Web的管理工具

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

require './bind8-lib.pl';
&ReadParse();
$conf = &get_config();
$zconf = $conf->[$in{'index'}]->{'members'};
$file = &absolute_path(&find("file", $zconf)->{'value'});
%access = &get_module_acl();
&can_edit_zone(\%access, $conf->[$in{'index'}]->{'value'}) ||
	&error($text{'master_ecannot'});
$access{'ro'} && &error($text{'master_ero'});

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