diff options
| author | damien <damien@mandriva.com> | 2001-08-03 23:24:26 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-03 23:24:26 +0000 |
| commit | 8892216863adeda2e8cfd199d016ab9141f8e401 (patch) | |
| tree | b2eb193e432cd77012a78f46478b563a527720e4 /perl-install/network/tools.pm | |
| parent | e43d7789133b955e73f15118ebc8926478e97e59 (diff) | |
| download | drakx-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.pm | 12 |
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} }), ] |