\n";
print " $text{'edit_name'} | \n";
if (lc($dialer->{'name'}) eq 'dialer defaults') {
# Don't allow renaming of the defaults
print $text{'index_defaults'};
$defs++;
}
elsif ($dialer->{'name'} =~ /^Dialer\s+(.*)$/ || $in{'new'}) {
# Some normal dialer name
print "\n";
}
else {
# Some other oddly-named section
print "\n";
}
print " | \n";
print &opt_input("Phone", $text{'edit_phone'}, 20);
print " \n";
print "\n";
print &opt_input("Username", $text{'edit_user'}, 20);
print &opt_input("Password", $text{'edit_pass'}, 20, "type=password");
print " \n";
print "\n";
print &opt_input("Dial Prefix", $text{'edit_prefix'}, 10);
print &yes_no_input("Stupid Mode", $text{'edit_stupid'}, 0);
print " \n";
print " $text{'edit_other'} | \n";
for($i=1; $i<=4; $i++) {
printf "\n",
$i, $dialer->{'values'}->{'phone'.$i};
}
print " | \n";
print " $text{'edit_inherits'} | \n";
printf " %s\n",
$inherits ? "" : "checked", $text{'edit_def'};
printf " %s\n",
$inherits ? "checked" : "", $text{'edit_from'};
print " | \n";
# Modem options
print "
| \n";
$modem = $dialer->{'values'}->{'modem'};
$dm = &get_default("Modem");
local $found = !$modem || $modem eq "/dev/modem";
print " $text{'edit_serial'} | \n";
print "\n";
printf " | \n",
$found ? "" : $modem;
print &opt_input("Baud", $text{'edit_baud'}, 6);
print " \n";
print " $text{'edit_init'} | \n";
for($i=1; $i<=9; $i++) {
printf "\n",
$i, $dialer->{'values'}->{"init".$i};
print " \n" if (($i-1)%3 == 2);
}
print " | \n";
print "\n";
print &yes_no_input("Carrier Check", $text{'edit_carrier'}, 1);
print &yes_no_input("Abort on Busy", $text{'edit_busy'}, 0);
print " \n";
print "\n";
print &opt_input("Dial Attempts", $text{'edit_dial'}, 4);
print &yes_no_input("Abort on No Dialtone", $text{'edit_dialtone'}, 1);
print " \n";
# Networking options
print "
| \n";
print "\n";
print &yes_no_input("Auto DNS", $text{'edit_dns'}, 1);
print &yes_no_input("Auto Reconnect", $text{'edit_reconnect'}, 1);
print " \n";
print "\n";
print &opt_input("Idle Seconds", $text{'edit_idle'}, 6);
print " \n";
print " |