\n";
# Connection name
print " $text{'edit_name'} | \n";
if ($conn->{'value'} eq '%default' || $in{'new'} == 2) {
print "$text{'edit_default'} | \n";
}
else {
printf " | \n",
$conn->{'value'};
}
# ipsec startup option
$a = $conn->{'values'}->{'auto'};
print "$text{'edit_auto'} | \n";
print "",&ui_select("auto", $a,
[ [ "", $text{'edit_amode'} ],
[ "ignore", $text{'edit_amodeignore'} ],
[ "add", $text{'edit_amodeadd'} ],
[ "start", $text{'edit_amodestart'} ] ])," | \n";
# compression option
$c = $conn->{'values'}->{'compress'};
print " $text{'edit_comp'} | \n";
print &ui_radio("comp", $c,
[ [ "", $text{'edit_cmode'} ],
[ "yes", $text{'edit_cmodeyes'} ],
[ "no", $text{'edit_cmodeno'} ] ])," | \n";
# connection type option
$t = $conn->{'values'}->{'type'};
print "$text{'edit_type'} | \n";
print "",&ui_select("type", $t,
[ [ "", $text{'edit_tmode'} ],
[ "tunnel", $text{'edit_tmodetunnel'} ],
[ "transport", $text{'edit_tmodetransport'} ],
[ "passthrough", $text{'edit_tmodepassthrough'} ] ]),
" | \n";
# authentication type option
$b = $conn->{'values'}->{'authby'};
print "$text{'edit_authby'} | \n";
print "",&ui_select("authby", $b,
[ [ "", $text{'edit_authbydef'} ],
[ "rsasig", $text{'edit_rsasig'} ],
[ "secret", $text{'edit_secret'} ],
[ "rsasig|secret", $text{'edit_rsasigsecret'} ],
[ "never", $text{'edit_never'} ] ], 0,0, 1)," | \n";
# pfs option
$c = $conn->{'values'}->{'pfs'};
print "$text{'edit_pfs'} | \n";
print &ui_radio("pfs", $c, [ [ "yes", $text{'edit_pmodeyes'} ],
[ "no", $text{'edit_pmodeno'} ],
[ "", $text{'edit_pmode'} ] ]);
print " | \n";
# auth type option
$a = $conn->{'values'}->{'auth'};
print " $text{'edit_auth'} | \n";
print "",&ui_select("auth", $a,
[ [ "", $text{'edit_authdef'} ],
[ "esp", $text{'edit_authesp'} ],
[ "ah", $text{'edit_authah'} ] ], 0, 0, 1),
" | \n";
# keying tries option
$k = $conn->{'values'}->{'keyingtries'};
print "$text{'edit_keying'} | \n";
print "",&ui_opt_textbox("keying", $k, 10, $text{'default'}),
" | \n";
# esp type option
$e = $conn->{'values'}->{'esp'};
$eonly = ($e =~ s/\!//g ? "!" : "");
print " $text{'edit_esp'} | \n";
print "",&ui_select("esp", $e,
[ [ "", $text{'edit_espdef'} ],
[ "3des-md5", $text{'edit_espmd5'} ],
[ "3des-sha", $text{'edit_espsha'} ],
[ "aes-128-md5", $text{'edit_esp128'} ] ], 0, 0, 1),
" | \n";
print "$text{'edit_esponly'} | \n";
print "",&ui_radio("esp_only", $eonly,
[ [ "!", $text{'yes'} ], [ "", $text{'no'} ] ])," | \n";
# key lifetime option
$l = $conn->{'values'}->{'keylife'};
$lu = $l =~ s/([^0-9])$// ? $1 : "s";
print " $text{'edit_keylife'} | \n";
print "",&ui_opt_textbox("keylife", $l, 5, $text{'default'})," ",
&ui_select("keylife_units", $lu,
[ [ "s", $text{'edit_unit_s'} ],
[ "m", $text{'edit_unit_m'} ],
[ "h", $text{'edit_unit_h'} ],
[ "d", $text{'edit_unit_d'} ] ])," | \n";
# keying channel lifetime option
$l = $conn->{'values'}->{'ikelifetime'};
$lu = $l =~ s/([^0-9])$// ? $1 : "s";
print "$text{'edit_ikelifetime'} | \n";
print "",&ui_opt_textbox("ikelifetime", $l, 5, $text{'default'})," ",
&ui_select("ikelifetime_units", $lu,
[ [ "s", $text{'edit_unit_s'} ],
[ "m", $text{'edit_unit_m'} ],
[ "h", $text{'edit_unit_h'} ],
[ "d", $text{'edit_unit_d'} ] ])," | \n";
foreach $d ('left', 'right') {
print " |