From e1ea1d7d27c8f6202ac9cab5bfa495c8a75254b6 Mon Sep 17 00:00:00 2001 From: Frederic Lepied Date: Wed, 5 Mar 2003 16:41:54 +0000 Subject: read right config according to isdn-light or isdn4linux --- perl-install/network/isdn.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 1408e1587..147fb0970 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -39,16 +39,16 @@ We recommand the light configuration. if ($e =~ /card/) { intern_pci: $netc->{isdntype} = 'isdn_internal'; - $netcnx->{isdn_internal} = isdn_read_config($isdn); $netcnx->{isdn_internal}{$_} = $netc->{autodetect}{isdn}{$_} foreach 'description', 'vendor', 'id', 'driver', 'card_type', 'type', 'is_light'; $netcnx->{isdn_internal}{is_light} = defined $netc->{autodetect}{isdn}{id} ? 1 : $netc->{autodetect}{isdn}{is_light}; + $netcnx->{isdn_internal} = isdn_read_config($netcnx->{isdn_internal}); isdn_detect($netcnx->{isdn_internal}, $netc) or return; } else { $netc->{isdntype} = 'isdn_external'; - $netcnx->{isdn_external} = isdn_read_config($isdn); $netcnx->{isdn_external}{device} = $netc->{autodetect}{modem}; $netcnx->{isdn_external}{is_light} = $netc->{autodetect}{isdn}{is_light}; + $netcnx->{isdn_external} = isdn_read_config($netcnx->{isdn_external}); $netcnx->{isdn_external}{special_command} = 'AT&F&O2B40'; require network::modem; network::modem::ppp_choose($in, $netc, $netcnx->{isdn_external}) or goto isdn_step_1; -- cgit v1.2.1