edit_access.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_access.cgi
# Display IP access control form

require './webmin-lib.pl';
&header($text{'access_title'}, "");
print "<hr>\n";
&get_miniserv_config(\%miniserv);

print $text{'access_desc'},"<p>\n";

print "<form action=change_access.cgi method=post>\n";
print "<table border>\n";
print "<tr $tb> <td colspan=2><b>$text{'access_header'}</b></td> </tr>\n";
print "<tr $cb> <td valign=top nowrap>\n";
printf "<input type=radio name=access value=0 %s>\n",
	$miniserv{"allow"} || $miniserv{"deny"} ? "" : "checked";
print "$text{'access_all'}<br>\n";
printf "<input type=radio name=access value=1 %s>\n",
	$miniserv{"allow"} ? "checked" : "";
print "$text{'access_allow'}<br>\n";
printf "<input type=radio name=access value=2 %s>\n",
	$miniserv{"deny"} ? "checked" : "";
print "$text{'access_deny'}<br>\n";
print "</td> <td valign=top>\n";
printf "<textarea name=ip rows=6 cols=30>%s</textarea>\n",
	$miniserv{"allow"} ? join("\n", split(/\s+/, $miniserv{"allow"})) :
	$miniserv{"deny"} ? join("\n", split(/\s+/, $miniserv{"deny"})) : "";
print "</td> </tr></table><br>\n";
print "<input type=submit value='$text{'save'}'></form>\n";

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