edit_mem.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# edit_mem.cgi
# A form for editing memory usage options

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

print "<form action=save_mem.cgi>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>Memory and Disk Usage Options</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr>\n";
if ($squid_version < 2) {
	print &opt_input("Memory usage limit", "cache_mem", $conf,
			 "Default", 6, "Mb");
	print &opt_input("Disk usage limit", "cache_swap",
			 $conf, "Default", 6, "Mb");
	}
else {
	print &opt_bytes_input("Memory usage limit", "cache_mem", $conf,
			       "Default", 6);
	print &opt_input("FQDN cache size", "fqdncache_size", $conf,
			 "Default", 8);
	}
print "</tr>\n";

print "<tr>\n";
print &opt_input("Memory high-water mark", "cache_mem_high", $conf,
		 "Default", 4, "%");
print &opt_input("Memory low-water mark", "cache_mem_low", $conf,
		 "Default", 4, "%");
print "</tr>\n";

print "<tr>\n";
print &opt_input("Disk high-water mark", "cache_swap_high", $conf,
		 "Default", 4, "%");
print &opt_input("Disk low-water mark", "cache_swap_low", $conf,
		 "Default", 4, "%");
print "</tr>\n";

print "<tr>\n";
if ($squid_version < 2) {
	print &opt_input("Maximum cached object size", "maximum_object_size",
			 $conf, "Default", 8, "Kb");
	}
else {
	print &opt_bytes_input("Maximum cached object size",
			       "maximum_object_size", $conf, "Default", 6);
	}
print &opt_input("IP address cache size", "ipcache_size", $conf,
		 "Default", 6, "entries");
print "</tr>\n";

print "<tr>\n";
print &opt_input("IP cache high-water mark", "ipcache_high", $conf,
		 "Default", 4, "%");
print &opt_input("IP cache low-water mark", "ipcache_low", $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");