save_acl.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# save_acl.cgi
# Save access control options for some module

require './acl-lib.pl';
&ReadParse();
$whatfailed = "Failed to save access control";

$access{'noconfig'} = $in{'noconfig'};
if (-r "../$in{'mod'}/acl_security.pl") {
	&foreign_require($in{'mod'}, "acl_security.pl");
	eval "\%$in{'mod'}::in = \%in";
	&foreign_call($in{'mod'}, "acl_security_save", \%access, \%in);
	}
&write_file("$config_directory/$in{'mod'}/$in{'user'}.acl", \%access);
&redirect("");