conf_acls.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# conf_acls.cgi
# Display global ACLs

require './bind8-lib.pl';
%access = &get_module_acl();
$access{'defaults'} || &error($text{'acls_ecannot'});
&header($text{'acls_title'}, "");
print "<hr>\n";

$conf = &get_config();
@acls = ( &find("acl", $conf), { } );

print "<form action=save_acls.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'acls_name'}</b></td> ",
      "<td><b>$text{'acls_values'}</b></td> </tr>\n";
for($i=0; $i<@acls; $i++) {
	print "<tr $cb>\n";
	printf "<td valign=top><input name=name_$i size=15 value='%s'></td>\n",
		$acls[$i]->{'value'};
	@vals = map { $_->{'name'} } @{$acls[$i]->{'members'}};
	print "<td><textarea rows=2 cols=60 name=values_$i wrap=auto>",
		join(" ", @vals),"</textarea></td> </tr>\n";
	}
print "</table>\n";
print "<input type=submit value='$text{'save'}'></form>\n";

print "<hr>\n";
&footer("", $text{'index_return'});