edit_progs.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_progs.cgi
# A form for editing helper program options

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

print "<form action=save_progs.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Cache Helper Program Options</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr>\n";
if ($squid_version < 2) {
	print &opt_input("Squid FTP program", "ftpget_program", $conf,
			 "Default", 40, &file_chooser_button("ftpget_program"));
	print "</tr>\n";

	print "<tr>\n";
	print &opt_input("FTP options", "ftpget_options", $conf, "Default", 15);
	}
else {
	print &opt_input("FTP column width", "ftp_list_width", $conf,
			 "Default", 6, "chars");
	}
print &opt_input("Anon FTP login", "ftp_user", $conf, "Default", 15);
print "</tr>\n";

print "<tr>\n";
print &opt_input("Squid DNS program", "cache_dns_program", $conf, "Default", 40,
		 &file_chooser_button("cache_dns_program"));
print "</tr>\n";

print "<tr>\n";
print &opt_input("Number of DNS programs", "dns_children", $conf, "Default", 5);
print &choice_input("Append domain to requests", "dns_defnames", $conf, "off",
		    "Yes", "on", "No", "off");
print "</tr>\n";

if ($squid_version >= 2) {
	print "<tr>\n";
	print &opt_input("DNS server addresses", "dns_nameservers", $conf,
			 "From resolv.conf", 35);
	print "</tr>\n";
	}

print "<tr>\n";
print &opt_input("Cache clearing program", "unlinkd_program", $conf,
		 "Default", 40, &file_chooser_button("unlinkd_program"));
print "</tr>\n";

print "<tr>\n";
print &opt_input("Squid ping program", "pinger_program", $conf,
		 "Default", 40, &file_chooser_button("pinger_program"));
print "</tr>\n";

print "<tr>\n";
print &opt_input("Custom redirect program", "redirect_program", $conf,
		 "None", 40, &file_chooser_button("redirect_program"));
print "</tr>\n";

print "<tr>\n";
print &opt_input("Number of redirect programs", "redirect_children", $conf,
		 "Default", 6);
print "</tr>\n";

if ($squid_version >= 2) {
	print "<tr>\n";
	print &opt_input(
		"Custom Authentication program", "authenticate_program",
		$conf, "None", 40,&file_chooser_button("authenticate_program"));
	print "</tr>\n";

	print "<tr>\n";
	print &opt_input("Number of authentication programs",
			 "authenticate_children", $conf, "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");