From 8892216863adeda2e8cfd199d016ab9141f8e401 Mon Sep 17 00:00:00 2001 From: damien Date: Fri, 3 Aug 2001 23:24:26 +0000 Subject: debugging, 128Kb/s ISDN --- perl-install/network/tools.pm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'perl-install/network/tools.pm') 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} }), ] -- cgit v1.2.1