\n";
print "\n";
@dirs = &find_config("cache_dir", $conf);
print "$text{'ec_cdirs'} | \n";
printf " $text{'ec_default'} ($config{'cache_dir'})\n",
@dirs ? "" : "checked";
printf " $text{'ec_listed'} \n",
@dirs ? "checked" : "";
print " | \n";
print "
| \n";
if ($squid_version < 2) {
print "\n";
print &opt_input($text{'ec_1dirs1'}, "swap_level1_dirs", $conf,
$text{'ec_default'}, 6);
print &opt_input($text{'ec_2dirs2'}, "swap_level2_dirs", $conf,
$text{'ec_default'}, 6);
print " \n";
}
print "\n";
if ($squid_version < 2) {
print &opt_input($text{'ec_aos'}, "store_avg_object_size", $conf,
$text{'ec_default'}, 6, $text{'ec_kb'});
}
else {
print &opt_bytes_input($text{'ec_aos'}, "store_avg_object_size",
$conf, $text{'ec_default'}, 6);
}
print &opt_input($text{'ec_opb'}, "store_objects_per_bucket", $conf,
$text{'ec_default'}, 6);
print " \n";
if ($squid_version < 2) {
print "\n";
print &list_input($text{'ec_ncuc'}, "cache_stoplist",
$conf, 1, $text{'ec_default'});
print " \n";
print "\n";
print &list_input($text{'ec_ncum'}, "cache_stoplist_pattern",
$conf, 1, $text{'ec_default'});
print " \n";
}
# ACLs not to cache
print " $text{'ec_ncua'} | \n";
print " | \n";
print &opt_time_input($text{'ec_mct'}, "reference_age", $conf,
$text{'default'}, 6);
print " \n";
print "\n";
if ($squid_version >= 2) {
if ($squid_version >= 2.3) {
print &opt_bytes_input($text{'ec_mrbs'},
"request_body_max_size", $conf, $text{'default'}, 6);
print &opt_bytes_input($text{'ec_mrhs'},
"request_header_max_size", $conf, $text{'default'}, 6);
print " \n";
print "\n";
if ($squid_version < 2.5) {
print &opt_bytes_input($text{'ec_mrbs1'},
"reply_body_max_size", $conf, $text{'default'}, 6);
}
else {
print &opt_bytes_input($text{'ec_gap'},
"read_ahead_gap", $conf, $text{'default'}, 6);
}
}
else {
print &opt_bytes_input($text{'ec_mrs'}, "request_size",
$conf, $text{'default'}, 6);
}
print &opt_time_input($text{'ec_frct'},
"negative_ttl", $conf, $text{'default'}, 4);
}
else {
print &opt_input($text{'ec_mrs'}, "request_size", $conf,
$text{'default'}, 8, $text{'ec_kb'});
print &opt_input($text{'ec_frct'}, "negative_ttl", $conf,
$text{'default'}, 4, $text{'ec_mins'});
}
print " \n";
if ($squid_version >= 2.5) {
# Max reply size can be limited by ACL
print "\n";
print "$text{'ec_maxreplies'} | \n";
print " | \n";
}
print "\n";
if ($squid_version < 2) {
print &opt_input($text{'ec_dlct'}, "positive_dns_ttl", $conf,
$text{'default'}, 4, $text{'ec_mins'});
print &opt_input($text{'ec_fdct'}, "negative_dns_ttl", $conf,
$text{'default'}, 4, $text{'ec_mins'});
}
else {
print &opt_time_input($text{'ec_dlct'}, "positive_dns_ttl",
$conf, $text{'default'}, 4);
print &opt_time_input($text{'ec_fdct'}, "negative_dns_ttl",
$conf, $text{'default'}, 4);
}
print " \n";
if ($squid_version < 2) {
print "\n";
print &opt_input($text{'ec_ct'}, "connect_timeout", $conf,
$text{'default'}, 4, $text{'ec_secs'});
print &opt_input($text{'ec_rt'}, "read_timeout", $conf,
$text{'default'}, 4, $text{'ec_secs'});
print " \n";
print "\n";
print &opt_input($text{'ec_mcct'}, "client_lifetime", $conf,
$text{'default'}, 4, $text{'ec_mins'});
print &opt_input($text{'ec_mst'}, "shutdown_lifetime", $conf,
$text{'default'}, 4, $text{'ec_mins'});
print " \n";
}
else {
print "\n";
print &opt_time_input($text{'ec_ct'}, "connect_timeout", $conf,
$text{'default'}, 4);
print &opt_time_input($text{'ec_rt'}, "read_timeout", $conf,
$text{'default'}, 4);
print " \n";
print " \n";
print &opt_time_input($text{'ec_sst'}, "siteselect_timeout",
$conf, $text{'default'}, 4);
print &opt_time_input($text{'ec_crt'}, "request_timeout",
$conf, $text{'default'}, 4);
print "\n";
print "\n";
print &opt_time_input($text{'ec_mcct'}, "client_lifetime",
$conf, $text{'default'}, 4);
print &opt_time_input($text{'ec_mst'}, "shutdown_lifetime",
$conf, $text{'default'}, 4);
print " \n";
print "\n";
print &choice_input($text{'ec_hcc'}, "half_closed_clients",
$conf, "on", $text{'on'},"on", $text{'off'},"off");
print &opt_time_input($text{'ec_pt'}, "pconn_timeout",
$conf, $text{'default'}, 4);
print " \n";
}
if ($squid_version < 2) {
print " $text{'ec_wr'} | \n";
$v = &find_config("wais_relay", $conf);
printf " $text{'none'}\n",
$v ? "" : "checked";
printf " $text{'ec_host'}\n",
$v ? "checked" : "";
@wrv = $v ? @{$v->{'values'}} : ();
print " $text{'ec_port'}\n";
print " | \n";
print " \n";
}
else {
print "\n";
print &opt_input($text{'ec_wrh'}, "wais_relay_host",
$conf, $text{'none'}, 20);
print &opt_input($text{'ec_wrp'}, "wais_relay_port",
$conf, $text{'default'}, 6);
print " \n";
}
print " |