diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/adsl.pm | 6 | ||||
| -rw-r--r-- | perl-install/network/isdn.pm | 9 | ||||
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
3 files changed, 10 insertions, 11 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index ca0b0e272..4c0a62dd4 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -308,9 +308,9 @@ user "$net->{adsl}{login}" if ($adsl_type eq "capi") { require network::isdn; - network::isdn::setup_capi_conf($net->{adsl}{capi_card}); - services::disable('isdn4linux'); - services::enable('capi4linux'); + network::isdn::setup_capi_conf($in, $net->{adsl}{capi_card}); + services::disable('isdn4linux'); + services::enable('capi4linux'); #- install and run drdsl for dsl connections, once capi driver is loaded $in->do_pkgs->ensure_is_installed_if_available("drdsl", "/usr/sbin/drdsl"); diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 766769504..740741b16 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -7,12 +7,11 @@ use modules; use run_program; use log; use network::tools; -use MDK::Common::Globals "network", qw($in); use services; sub write_config { - my ($isdn) = @_; + my ($in, $isdn) = @_; $in->do_pkgs->install('isdn4net', if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils'); output_with_perm("$::prefix/etc/isdn/profile/link/myisp", 0600, @@ -47,7 +46,7 @@ defaultroute services::stop("isdn4linux"); #- to be stopped before capi is loaded if ($isdn->{driver} eq "capidrv") { - setup_capi_conf(get_capi_card($isdn)); + setup_capi_conf($in, get_capi_card($in, $isdn)); services::enable('capi4linux'); } else { services::disable('capi4linux'); @@ -61,7 +60,7 @@ defaultroute sub setup_capi_conf { - my ($capi_card) = @_; + my ($in, $capi_card) = @_; $in->do_pkgs->ensure_is_installed('isdn4k-utils', "/etc/rc.d/init.d/capi4linux"); #- capi4linux service is_module_installed($capi_card->{driver}) or $in->do_pkgs->install(@{$capi_card->{packages}}); @@ -176,7 +175,7 @@ sub is_module_installed { sub get_capi_card { - my ($isdn) = @_; + my ($in, $isdn) = @_; my $capi_card = find { hex($isdn->{vendor}) == $_->{vendor} && hex($isdn->{id}) == $_->{id}; diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 059b9e1ec..41db9df62 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -302,7 +302,7 @@ sub real_main { ]; }, post => sub { - network::isdn::write_config($isdn); + network::isdn::write_config($in, $isdn); $net->{net_interface} = 'ippp0'; "allow_user_ctl"; }, @@ -366,7 +366,7 @@ sub real_main { $isdn->{driver} = $isdn_cards{$isdn_name}{driver}; #- do not let config overwrite default driver #- let the user choose hisax or capidrv if both are available - $isdn->{driver} ne "capidrv" && network::isdn::get_capi_card($isdn) and return "isdn_driver"; + $isdn->{driver} ne "capidrv" && network::isdn::get_capi_card($in, $isdn) and return "isdn_driver"; return "isdn_protocol"; }, }, @@ -652,7 +652,7 @@ Take a look at http://www.linmodems.org"), detect($modules_conf, $net->{autodetect}, 'isdn'); if (my @isdn_modems = @{$net->{autodetect}{isdn}}) { require network::isdn; - %isdn_cards = map { $_->{description} => $_ } grep { $_->{driver} =~ /dsl/i } map { network::isdn::get_capi_card($_) } @isdn_modems; + %isdn_cards = map { $_->{description} => $_ } grep { $_->{driver} =~ /dsl/i } map { network::isdn::get_capi_card($in, $_) } @isdn_modems; push @adsl_devices, keys %isdn_cards; } }, |