", $text{'edit_secret_user'}, " | \n";
printf " ",
%sec && !$sec{'client'} ? "checked" : "";
print $text{'edit_secret_uany'}, "\n";
printf " ",
%sec && !$sec{'client'} ? "" : "checked";
print " | \n";
print "
", $text{'edit_secret_pass'}, " | \n";
printf " ",
%sec && $sec{'secret'} eq "" ? "checked" : "";
print $text{'edit_secret_none'}, " \n";
printf " ",
$sec{'secret'} =~ /^@(.*)$/ ? "checked" : "";
print $text{'edit_secret_ffile'};
printf "\n",
$sec{'secret'} =~ /^@(.*)$/ ? $1 : "";
print &file_chooser_button("pass_file", 0);
print " \n";
if (%sec) {
printf " ",
$sec{'secret'} !~ /^(@.*|)$/ ? "checked" : "";
print $text{'edit_secret_leave'}, " \n";
}
printf " ",
%sec ? "" : "checked";
print $text{'edit_secret_setto'}, "\n";
print " | \n";
@ips = @{$sec{'ips'}};
print "", $text{'edit_secret_vaddr'}, " | \n";
printf " ",
$ips[0] eq "*" || !@ips ? "checked" : "";
print $text{'edit_secret_aany'}, " \n";
printf " ",
$ips[0] eq "-" ? "checked" : "";
print $text{'edit_secret_anone'}, " \n";
printf " ",
@ips && $ips[0] ne "-" && $ips[0] ne "*" ? "checked" : "";
print $text{'edit_secret_alist'}, " \n";
printf " |
\n",
@ips && $ips[0] ne "-" && $ips[0] ne "*" ? join("\n", @ips) : "";
print "