edit_ports.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_ports.cgi
# A form for editing ports and other networking options

require './squid-lib.pl';
&header("Ports and Networking", "", undef, 0, 0, 0, &restart_button());
print "<hr>\n";
$conf = &get_config();

print "<form action=save_ports.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Ports and Networking Options</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr>\n";
print &opt_input("Proxy port", "http_port", $conf, "Default", 6);
print &opt_input("ICP port", "icp_port", $conf, "Default", 6);
print "</tr>\n";

print "<tr>\n";
print &opt_input("Outgoing TCP address", "tcp_outgoing_address",
		 $conf, "Any", 15);
print &opt_input("Incoming TCP address", "tcp_incoming_address",
		 $conf, "Any", 15);
print "</tr>\n";

print "<tr>\n";
print &opt_input("Outgoing UDP address", "udp_outgoing_address",
		 $conf, "Any", 15);
print &opt_input("Incoming UDP address", "udp_incoming_address",
		 $conf, "Any", 15);
print "</tr>\n";

print "<tr>\n";
print &address_input("Multicast groups", "mcast_groups", $conf, 0);
print &opt_input("TCP receive buffer", "tcp_recv_bufsize", $conf,
		 "OS default", 6);
print "</tr>\n";

print "</table></td></tr></table><br>\n";
print "<input type=submit value=Save></form>\n";

print "<hr>\n";
&footer("", "squid index");