From ec037974aa4b229446e26c24f7a251994d701943 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 30 May 2005 07:51:46 +0000 Subject: simply isdn external modem code (remove $netcnx->{isdn_external}) --- perl-install/network/netconnect.pm | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index b1b21aabc..24e195b96 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -429,16 +429,7 @@ sub real_main { if ($isdn_name eq $my_isdn) { return "isdn_ask"; } elsif ($isdn_name eq N("External ISDN modem")) { - detect($modules_conf, $netc->{autodetect}, 'modem'); $netcnx->{type} = $netc->{isdntype} = 'isdn_external'; - $netcnx->{isdn_external}{device} = network::modem::first_modem($netc); - network::isdn::read_config($netcnx->{isdn_external}); - #- FIXME: seems to be specific to ZyXEL Adapter Omni.net/TA 128/Elite 2846i - #- it does not even work with TA 128 modems - #- http://bugs.mandrakelinux.com/query.php?bug=1033 - $netcnx->{isdn_external}{special_command} = 'AT&F&O2B40'; - require network::modem; - $modem = $netcnx->{isdn_external}; return "modem"; } @@ -568,9 +559,15 @@ Take a look at http://www.linmodems.org"), modem => { pre => sub { - require network::modem; - detect($modules_conf, $netc->{autodetect}, 'modem'); - $modem ||= $netcnx->{modem} ||= {}; + require network::modem; + detect($modules_conf, $netc->{autodetect}, 'modem'); + $modem = {}; + if ($netcnx->{type} eq 'isdn_external') { + #- FIXME: seems to be specific to ZyXEL Adapter Omni.net/TA 128/Elite 2846i + #- it does not even work with TA 128 modems + #- http://bugs.mandrakelinux.com/query.php?bug=1033 + $modem->{special_command} = 'AT&F&O2B40'; + } }, name => N("Select the modem to configure:"), data => sub { -- cgit v1.2.1