summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-09-16 02:07:32 +0000
committerOlivier Blin <oblin@mandriva.org>2004-09-16 02:07:32 +0000
commitad5fb0dc3b6b31a661be27b576876492996ad901 (patch)
treeeedb71c82d150c4e4958a659b8cb1f5f56b44002 /perl-install
parent06089883acc83a33d308ee7fcc7fc7d3e48e1d89 (diff)
downloaddrakx-ad5fb0dc3b6b31a661be27b576876492996ad901.tar
drakx-ad5fb0dc3b6b31a661be27b576876492996ad901.tar.gz
drakx-ad5fb0dc3b6b31a661be27b576876492996ad901.tar.bz2
drakx-ad5fb0dc3b6b31a661be27b576876492996ad901.tar.xz
drakx-ad5fb0dc3b6b31a661be27b576876492996ad901.zip
make isdn over capi work again
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/isdn.pm2
-rw-r--r--perl-install/network/netconnect.pm8
2 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 33cf70a3d..084ec5370 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -49,7 +49,7 @@ defaultroute
services::stop("isdn4linux"); #- to be stopped before capi is loaded
if ($isdn->{driver} eq "capidrv") {
- setup_capi_conf($isdn);
+ setup_capi_conf(get_capi_card($isdn));
services::start_service_on_boot("capi4linux");
services::restart("capi4linux");
} else {
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index a6f5c9b72..c00a12b41 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -85,7 +85,7 @@ sub real_main {
my ($modem, $modem_name, $modem_conf_read, $modem_dyn_dns, $modem_dyn_ip);
my ($adsl_type, @adsl_devices, $adsl_failed, $adsl_answer, %adsl_data, $adsl_data, $adsl_provider, $adsl_old_provider);
my ($ntf_name, $gateway_ex, $up, $need_restart_network);
- my ($isdn, $isdn_capi, $isdn_name, $isdn_type, %isdn_cards, @isdn_dial_methods);
+ my ($isdn, $isdn_name, $isdn_type, %isdn_cards, @isdn_dial_methods);
my $my_isdn = join('', N("Manual choice"), " (", N("Internal ISDN card"), ")");
my ($module, $auto_ip, $protocol, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config
my $success = 1;
@@ -360,7 +360,7 @@ sub real_main {
network::isdn::read_config($isdn);
$isdn->{driver} = $isdn_cards{$isdn_name}{driver}; #- do not let config overwrite default driver
- $isdn_capi = network::isdn::get_capi_card($isdn) and return "isdn_driver";
+ network::isdn::get_capi_card($isdn) and return "isdn_driver";
return "isdn_protocol";
},
},
@@ -425,9 +425,7 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card.
list => [ $isdn->{driver}, "capidrv" ] }
] },
post => sub {
- if ($isdn_name eq "capidrv") {
- put_in_hash($isdn, $isdn_capi);
- }
+ $isdn->{driver} = $isdn_name;
return "isdn_protocol";
}
},