edit_acl.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_acl.cgi
# Display a form for editing the access control options for some module

require './acl-lib.pl';
&ReadParse();
&header($text{'acl_title'}, "");
%minfo = &get_module_info($in{'mod'});
print "<center><font size=+1>",
      &text('acl_title2', "<tt>$in{'user'}</tt>",
	    "<tt>$minfo{'desc'}</tt>"),"</font></center>\n";
print "<hr>\n";
%access = &get_module_acl($in{'user'}, $in{'mod'});

# display the form
print "<form method=post action=save_acl.cgi>\n";
print "<input type=hidden name=mod value=$in{'mod'}>\n";
print "<input type=hidden name=user value=$in{'user'}>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",&text('acl_options', $minfo{'desc'}),"</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td><b>$text{'acl_config'}</b></td> <td>\n";
printf "<input type=radio name=noconfig value=0 %s> $text{'yes'}\n",
	$access{'noconfig'} ? "" : "checked";
printf "<input type=radio name=noconfig value=1 %s> $text{'no'}</td>\n",
	$access{'noconfig'} ? "checked" : "";
print "<td width=50% colspan=2></td> </tr>\n";

if (-r "../$in{'mod'}/acl_security.pl") {
	print "<tr> <td colspan=4><hr></td> </tr>\n";
	foreign_require($in{'mod'}, "acl_security.pl");
	&foreign_call($in{'mod'}, "acl_security_form", \%access);
	}

print "</table></td></tr></table>\n";
print "<input type=submit value=$text{'save'}></form>\n";
print "<hr>\n";
&footer("", $text{'index_return'});