\n";
print " $text{'ech_h'} | \n";
print " | \n";
%ts = ( "parent"=> $text{"ech_parent"},
"sibling"=>$text{"ech_sibling"},
"multicast"=>$text{"ech_multicast"} );
print "$text{'ech_t'} | \n";
print " | \n";
print " $text{'ech_pp'} | \n";
print " | \n";
print "$text{'ech_ip'} | \n";
print " | \n";
print " $text{'ech_po'} | \n";
printf " $text{'ech_y'}\n",
$opts{'proxy-only'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'proxy-only'} ? "" : "checked";
print "$text{'ech_siq'} | \n";
printf " $text{'ech_y'}\n",
$opts{'no-query'} ? "" : "checked";
printf " $text{'ech_n'} | \n",
$opts{'no-query'} ? "checked" : "";
print " $text{'ech_dc'} | \n";
printf " $text{'ech_y'}\n",
$opts{'default'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'default'} ? "" : "checked";
print "$text{'ech_rrc'} | \n";
printf " $text{'ech_y'}\n",
$opts{'round-robin'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'round-robin'} ? "" : "checked";
print " $text{'ech_ittl'} | \n";
printf " $text{'ech_d'}\n",
$opts{'ttl'} ? "" : "checked";
printf "\n",
$opts{'ttl'} ? "checked" : "";
print " | \n";
print "$text{'ech_cw'} | \n";
printf " $text{'ech_d'}\n",
$opts{'weight'} ? "" : "checked";
printf "\n",
$opts{'weight'} ? "checked" : "";
print " | \n";
if ($squid_version >= 2) {
print " $text{'ech_co'} | \n";
printf " $text{'ech_y'}\n",
$opts{'closest-only'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'closest-only'} ? "" : "checked";
print "$text{'ech_nd'} | \n";
printf " $text{'ech_y'}\n",
$opts{'no-digest'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'no-digest'} ? "" : "checked";
print " $text{'ech_nne'} | \n";
printf " $text{'ech_y'}\n",
$opts{'no-netdb-exchange'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'no-netdb-exchange'} ? "" : "checked";
print "$text{'ech_nd1'} | \n";
printf " $text{'ech_y'}\n",
$opts{'no-delay'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'no-delay'} ? "" : "checked";
}
if ($squid_version >= 2.1) {
local $mode = $opts{'login'} eq 'PASS' ? 2 :
$opts{'login'} =~ /^\*:\S+$/ ? 3 :
$opts{'login'} ? 1 : 0;
local @up = split(/:/, $opts{'login'});
print " $text{'ech_ltp'} | \n";
print "\n";
printf " $text{'ech_nl'} \n",
$mode == 0 ? "checked" : "";
printf "\n",
$mode == 1 ? "checked" : "";
printf "$text{'ech_u'} \n", $mode == 1 ? $up[0] : "";
printf "$text{'ech_p'} \n", $mode == 1 ? $up[1] : "";
if ($squid_version >= 2.5 || $mode > 1) {
printf " %s \n",
$mode == 2 ? "checked" : "",
$text{'ech_pass'};
printf " %s\n",
$mode == 3 ? "checked" : "",
$text{'ech_upass'};
printf "\n",
$mode == 3 ? $up[1] : "";
}
print " | \n";
}
if ($squid_version >= 2.6) {
print " $text{'ech_timeo'} | \n";
printf " $text{'ech_d'}\n",
$opts{'connect-timeout'} ? "" : "checked";
printf "\n",
$opts{'connect-timeout'} ? "checked" : "";
print " | \n";
print "$text{'ech_digest'} | \n";
printf " $text{'ech_d'}\n",
$opts{'digest-url'} ? "" : "checked";
printf "\n",
$opts{'digest-url'} ? "checked" : "";
print " | \n";
print " $text{'ech_miss'} | \n";
printf " $text{'ech_y'}\n",
$opts{'allow-miss'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'allow-miss'} ? "" : "checked";
print "$text{'ech_maxconn'} | \n";
printf " $text{'ech_d'}\n",
$opts{'max-conn'} ? "" : "checked";
printf "\n",
$opts{'max-conn'} ? "checked" : "";
print " | \n";
print " $text{'ech_htcp'} | \n";
printf " $text{'ech_y'}\n",
$opts{'htcp'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'htcp'} ? "" : "checked";
print "$text{'ech_force'} | \n";
printf " %s\n",
$opts{'forceddomain'} ? "" : "checked", $text{'ech_same'};
printf "\n",
$opts{'forceddomain'} ? "checked" : "";
print " | \n";
print " $text{'ech_origin'} | \n";
printf " $text{'ech_y'}\n",
$opts{'originserver'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'originserver'} ? "" : "checked";
print "$text{'ech_ssl'} | \n";
printf " $text{'ech_y'}\n",
$opts{'ssl'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'ssl'} ? "" : "checked";
}
print " $text{'ech_mr'} | \n";
printf " $text{'ech_y'}\n",
$opts{'multicast-responder'} ? "checked" : "";
printf " $text{'ech_n'} | \n",
$opts{'multicast-responder'} ? "" : "checked";
print " \n";
if (!$in{'new'}) {
@chd = &find_config($cache_host."_domain", $conf);
foreach $chd (@chd) {
@chdv = @{$chd->{'values'}};
if ($chdv[0] eq $ch[0]) {
# found a record for this host..
for($i=1; $i<@chdv; $i++) {
if ($chdv[$i] =~ /^\!(\S+)$/) {
push(@dontq, $1);
}
else { push(@doq, $chdv[$i]); }
}
}
}
}
print " $text{'ech_qhfd'} | \n";
print " | \n";
print "$text{'ech_dqfd'} | \n";
print " | \n";
print " |