ports.cgi

Unix下基于Web的管理工具

print "<hr>\n";
print "<h3>Port Numbers</h3>\n";
$len = @serv = sort { $a cmp $b } &list_services();
$len = int(($len+3)/4)*4;
print "<table border width=100%>\n";
for($i=0; $i<$len; $i++) {
	if ($i%4 == 0) { print "<tr>\n"; }
	$sv = $serv[$i];
	if ($sv) {
		@sinfo = &get_service($sv);
		print "<td><a href=\"edit_serv.cgi?$sv\">$sv</a> ",
		      "($sinfo[1])</td>\n";
		}
	else { print "<td><br></td>\n"; }
	if ($i%4 == 3) { print "</tr>\n"; }
	}
print "</table>\n";
print "<a href=\"edit_serv.cgi\">Assign a new port number</a>. <p>\n";

print "<hr>\n";
print "<h3>RPC Program Numbers</h3>\n";
$len = @rpc = sort { $a cmp $b } &list_rpcs();
$len = int(($len+3)/4)*4;
print "<table border width=100%>\n";
for($i=0; $i<$len; $i++) {
	if ($i%4 == 0) { print "<tr>\n"; }
	$rp = $rpc[$i];
	if ($rp) { print "<td><a href=\"edit_rpc.cgi?$rp\">$rp</a></td>\n"; }
	else { print "<td><br></td>\n"; }
	if ($i%4 == 3) { print "</tr>\n"; }
	}
print "</table>\n";
print "<a href=\"edit_rpc.cgi\">Assign a new RPC program number</a>. <p>\n";