edit_admin.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_admin.cgi
# A form for editing admin options

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

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

if ($squid_version < 2) {
	print "<tr>\n";
	$v = &find_config("cache_effective_user", $conf);
	print "<td><b>Run as Unix user</b></td> <td colspan=3>\n";
	printf "<input type=radio name=effective_def value=1 %s> No change\n",
		$v ? "" : "checked";
	printf "&nbsp;<input type=radio name=effective_def value=0 %s>\n",
		$v ? "checked" : "";
	print "User ",&unix_user_input("effective_u",
				       $v->{'values'}->[0]),"\n";
	print "Group ",&unix_group_input("effective_g",
					 $v->{'values'}->[1]),"\n";
	print "</td> </tr>\n";
	}
else {
	print "<tr>\n";
	print &opt_input("Run as Unix user", "cache_effective_user", $conf,
			 "No change", 8,
			 &user_chooser_button("cache_effective_user", 0));
	print &opt_input("Run as Unix group", "cache_effective_group", $conf,
			 "No change", 8,
			 &group_chooser_button("cache_effective_group", 0));
	print "</tr>\n";
	}

if ($squid_version >= 2) { 
        print "<tr>\n";
        print &opt_input("Proxy authentication realm", "proxy_auth_realm",
                         $conf, "Default", 40); 
        print "</tr>\n";      
        }               

print "<tr>\n";
print &opt_input("Cache manager email address", "cache_mgr",
		 $conf, "Default", 35);
print "</tr>\n";

print "<tr>\n";
print &opt_input("Visible hostname", "visible_hostname",
		 $conf, "Automatic", 35);
print "</tr>\n";

if ($squid_version < 2) {
	print "<tr>\n";
	print &opt_input("Announce cache to", "announce_to",
			 $conf, "Default", 40);
	print "</tr>\n";

	print "<tr>\n";
	print &opt_input("Announce cache every", "cache_announce", $conf,
			 "Never", 6, "hours");
	print "</tr>\n";
	}
else {
	print "<tr>\n";
	print &opt_input("Unique hostname", "unique_hostname",
			 $conf, "Automatic", 35);
	print "</tr>\n";

	print "<tr>\n";
	print &opt_input("Cache announce host", "announce_host", $conf,
			 "Default", 20);
	print &opt_input("Cache announce port", "announce_port", $conf,
			 "Default", 6);
	print "</tr>\n";

	print "<tr>\n";
	print &opt_input("Cache announce file", "announce_file", $conf,
			 "None", 35, &file_chooser_button("announce_file"));
	print "</tr>\n";

	print "<tr>\n";
	print &opt_time_input("Announcement period", "announce_period", $conf,
			      "Default", 4);
	print "</tr>\n";
	}

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

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