\n";
if ($squid_version < 2) {
print "\n";
print &list_input($text{'eicp_fdfd'}, "local_domain", $conf);
print &address_input($text{'eicp_fdfi'}, "local_ip", $conf);
print " \n";
print "\n";
print &list_input($text{'eicp_dif'}, "inside_firewall", $conf);
print &address_input($text{'eicp_iif'}, "firewall_ip", $conf);
print " \n";
}
print "\n";
print &list_input($text{'eicp_dfuc'}, "hierarchy_stoplist",
$conf, 1, $text{'default'});
print " \n";
if ($squid_version < 2) {
print "\n";
print &choice_input($text{'eicp_bpfsp'},
"single_parent_bypass",
$conf, "off", $text{'yes'}, "on", $text{'no'}, "off");
print &choice_input($text{'eicp_ssip'}, "source_ping", $conf, "off",
$text{'yes'}, "on", $text{'no'}, "off");
print " \n";
print "\n";
print &opt_input($text{'eicp_crt'}, "neighbor_timeout", $conf,
$text{'default'}, 4, $text{'eicp_secs'});
print " \n";
}
else {
print "\n";
print &opt_input($text{'eicp_iqt'}, "icp_query_timeout", $conf,
$text{'default'}, 8, "ms");
print &opt_input($text{'eicp_mit'}, "mcast_icp_query_timeout",
$conf, $text{'default'}, 8, "ms");
print " \n";
print "\n";
print &opt_input($text{'eicp_dpt'}, "dead_peer_timeout", $conf,
$text{'default'}, 8, $text{'eicp_secs'});
print " \n";
}
if ($squid_version >= 2.3) {
# Display always/never_direct options
print "
| \n";
print " \n";
@always = &find_config("always_direct", $conf);
if (@always) {
print "$text{'eicp_always'} \n";
print " \n";
print "$text{'eacl_act'} | \n";
print "$text{'eacl_acls1'} | \n";
print "$text{'eacl_move'} | \n";
$hc = 0;
foreach $h (@always) {
@v = @{$h->{'values'}};
if ($v[0] eq "allow") {
$v[0] = $text{'eacl_allow'};
} else {
$v[0] = $text{'eacl_deny'};
}
print "\n";
print "{'index'}\">",
"$v[0] | \n";
print "",&html_escape(join(' ', @v[1..$#v])),
" | \n";
print "\n";
if ($hc != @always-1) {
print "",
"";
}
else { print ""; }
if ($hc != 0) {
print "",
"";
}
print " | \n";
$hc++;
}
print " \n";
}
else {
print "$text{'eicp_noalways'}\n";
}
print "$text{'eicp_addalways'}\n";
print " | \n";
@never = &find_config("never_direct", $conf);
if (@never) {
print "$text{'eicp_never'} \n";
print " \n";
print "$text{'eacl_act'} | \n";
print "$text{'eacl_acls1'} | \n";
print "$text{'eacl_move'} | \n";
$hc = 0;
foreach $h (@never) {
@v = @{$h->{'values'}};
if ($v[0] eq "allow") {
$v[0] = $text{'eacl_allow'};
} else {
$v[0] = $text{'eacl_deny'};
}
print "\n";
print "{'index'}\">",
"$v[0] | \n";
print "",&html_escape(join(' ', @v[1..$#v])),
" | \n";
print "\n";
if ($hc != @never-1) {
print "",
"";
}
else { print ""; }
if ($hc != 0) {
print "",
"";
}
print " | \n";
$hc++;
}
print " \n";
}
else {
print "$text{'eicp_nonever'}\n";
}
print "$text{'eicp_addnever'}\n";
print " | \n";
}
print " |