summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-03 23:24:26 +0000
committerdamien <damien@mandriva.com>2001-08-03 23:24:26 +0000
commit8892216863adeda2e8cfd199d016ab9141f8e401 (patch)
treeb2eb193e432cd77012a78f46478b563a527720e4 /perl-install/network/tools.pm
parente43d7789133b955e73f15118ebc8926478e97e59 (diff)
downloaddrakx-backup-do-not-use-8892216863adeda2e8cfd199d016ab9141f8e401.tar
drakx-backup-do-not-use-8892216863adeda2e8cfd199d016ab9141f8e401.tar.gz
drakx-backup-do-not-use-8892216863adeda2e8cfd199d016ab9141f8e401.tar.bz2
drakx-backup-do-not-use-8892216863adeda2e8cfd199d016ab9141f8e401.tar.xz
drakx-backup-do-not-use-8892216863adeda2e8cfd199d016ab9141f8e401.zip
debugging, 128Kb/s ISDN
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm12
1 files changed, 5 insertions, 7 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index f76782251..b88382fb7 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -28,12 +28,9 @@ sub write_secret_backend {
sub ask_connect_now {
$::Wizard_no_previous=1;
#- FIXME : code the exception to be generated by ask_yesorno, to be able to remove the $::Wizard_no_previous=1;
- my $a;
- eval { $a = $in->ask_yesorno(_("Internet configuration"),
- _("Do you want to try to connect to the Internet now?")
- ) };
- return 0 if $@;
- if ($a) {
+ if ($in->ask_yesorno(_("Internet configuration"),
+ _("Do you want to try to connect to the Internet now?")
+ )) {
my $up;
{
my $w = $in->wait_message('', _("Testing your connection..."), 1);
@@ -81,7 +78,8 @@ sub ask_info2 {
if__ ($cnx->{phone_out}, { label => _("Provider phone number"), val => \$cnx->{phone_out} }),
if__ ($netc->{dnsServer2}, { label => _("Provider dns 1 (optional)"), val => \$netc->{dnsServer2} }),
if__ ($netc->{dnsServer3}, { label => _("Provider dns 2 (optional)"), val => \$netc->{dnsServer3} }),
- if__ ($cnx->{dialing_mode}, { label => _("Dialing mode"), val => \$cnx->{dialing_mode}, list => [ "auto", "manual"] }),
+ if__ ($cnx->{dialing_mode}, { label => _("Dialing mode"), val => \$cnx->{dialing_mode},list=>["auto","manual"]}),
+ if__ ($cnx->{speed}, { label => _("Connection speed"), val => \$cnx->{speed}, list => ["64 Kb/s", "128 Kb/s"]}),
if__ ($cnx->{login}, { label => _("Account Login (user name)"), val => \$cnx->{login} }),
if__ ($cnx->{passwd}, { label => _("Account Password"), val => \$cnx->{passwd} }),
]