\n";
$rings = &find_value("rings", \@conf);
if ($rings =~ /^\//) {
open(TF, $rings);
chop($rc = );
close(TF);
}
else { $rc = $rings; }
print " $text{'options_rings'} | \n";
print " | \n";
printf " %s\n",
$rings =~ /^\// ? "checked" : "", $text{'options_perport'};
print " | \n";
$ans = &find_value("answer_mode", \@conf);
if ($ans =~ /^\//) {
open(TF, $ans);
chop($rc = );
close(TF);
}
else { $rc = $ans; }
print " $text{'options_ans'} | \n";
print "",&answer_mode_input($rc, "ans")," | \n";
printf " %s\n",
$ans =~ /^\// ? "checked" : "", $text{'options_perport'};
print " | \n";
print " $text{'options_maxlen'} | \n";
printf " %s | \n",
&find_value("rec_max_len", \@conf), $text{'options_secs'};
print "$text{'options_minlen'} | \n";
printf " %s | \n",
&find_value("rec_min_len", \@conf), $text{'options_secs'};
$silence = &find_value("rec_remove_silence", \@conf);
print " $text{'options_silence'} | \n";
printf " %s\n",
$silence =~ /true/i ? "checked" : "", $text{'yes'};
printf " %s | \n",
$silence =~ /true/i ? "" : "checked", $text{'no'};
print "$text{'options_thresh'} | \n";
printf " %% | \n",
&find_value("rec_silence_threshold", \@conf);
$rgain = &find_value("receive_gain", \@conf);
print " $text{'options_rgain'} | \n";
printf " %s\n",
$rgain == -1 ? "checked" : "", $text{'default'};
printf "\n",
$rgain == -1 ? "" : "checked";
printf " %% | \n",
$rgain == -1 ? "" : $rgain;
$tgain = &find_value("transmit_gain", \@conf);
print "$text{'options_tgain'} | \n";
printf " %s\n",
$tgain == -1 ? "checked" : "", $text{'default'};
printf "\n",
$tgain == -1 ? "" : "checked";
printf " %% | \n",
$tgain == -1 ? "" : $tgain;
$keep = &find_value("rec_always_keep", \@conf);
print " $text{'options_keep'} | \n";
printf " %s\n",
$keep =~ /true/i ? "checked" : "", $text{'yes'};
printf " %s | \n",
$keep =~ /true/i ? "" : "checked", $text{'no'};
$light = &find_value("do_message_light", \@conf);
print "$text{'options_light'} | \n";
printf " %s\n",
$light =~ /true/i ? "checked" : "", $text{'yes'};
printf " %s | \n",
$light =~ /true/i ? "" : "checked", $text{'no'};
print " $text{'options_owner'} | \n";
printf " %s | \n",
&find_value("phone_owner", \@conf), &user_chooser_button("owner");
print "$text{'options_group'} | \n";
printf " %s | \n",
&find_value("phone_group", \@conf), &user_chooser_button("group");
print " $text{'options_mode'} | \n";
printf " | \n",
&find_value("phone_mode", \@conf);
$prog = &find_value("message_program", \@conf);
$mode = !$prog ? 0 : $prog eq "$module_config_directory/email.pl" ? 1 : 2;
print " $text{'options_prog'} | \n";
printf " %s \n",
$mode == 0 ? "checked" : "", $text{'options_prog0'};
printf " %s\n",
$mode == 1 ? "checked" : "", $text{'options_prog1'};
printf " \n",
$mode == 1 ? $config{'email_to'} : "";
printf " %s\n",
$mode == 2 ? "checked" : "", $text{'options_prog2'};
printf " | \n",
$mode == 2 ? $prog : "";
print "\n";
print " |