diff options
| -rw-r--r-- | perl-install/network/isdn.pm | 69 |
1 files changed, 61 insertions, 8 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index c008a6d4f..8f8a364d6 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -10,18 +10,13 @@ use log; use network::tools; use MDK::Common::Globals "network", qw($in); use MDK::Common::File; +use services; +use list_modules; sub write_config { my ($isdn, $netc) = @_; $in->do_pkgs->install('isdn4net', if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils'); - write_config_backend($isdn, $netc); - 1; -} - -sub write_config_backend { - my ($isdn, $netc, $o_netcnx) = @_; - defined $o_netcnx and $netc->{isdntype} = $o_netcnx->{type}; output_with_perm("$::prefix/etc/isdn/profile/link/myisp", 0600, qq( @@ -51,13 +46,49 @@ I4L_PROTOCOL="$isdn->{protocol}" usepeerdns defaultroute "; - system "$::prefix/etc/rc.d/init.d/isdn4linux restart"; + + services::stop("isdn4linux"); #- to be stopped before capi is loaded + if ($isdn->{driver} eq "capidrv") { + setup_capi_conf($isdn); + services::start_service_on_boot("capi4linux"); + services::restart("capi4linux"); + } else { + services::stop("capi4linux"); + services::do_not_start_service_on_boot("capi4linux"); + } + services::start_service_on_boot("isdn4linux"); + services::start("isdn4linux"); write_secret_backend($isdn->{login}, $isdn->{passwd}); 1; } + +sub setup_capi_conf { + my ($isdn) = @_; + + my $capi_card = get_capi_card($isdn); + is_module_installed($capi_card->{driver}) or $in->do_pkgs->install($capi_card->{driver}); + + my $capi_conf; + my $firmware = $capi_card->{firmware} || '-'; + if ($capi_card->{driver} eq "fcclassic") { + $capi_conf = "fcclassic - - 0x300 5 - -\n# adjust IRQ and IO !! ^^^^^ ^^^\n"; + } elsif ($capi_card->{driver} eq "fcpnp") { + $capi_conf = "fcpnp - - 0x300 5 - -\n# adjust IRQ and IO !! ^^^^^ ^^^\n"; + } else { + $capi_conf = "$capi_card->{driver} $firmware - - - - -\n"; + } + output("$::prefix/etc/capi.conf", $capi_conf); + + #- install and run drdsl for dsl connections + if ($capi_card->{driver} =~ /dsl/i) { + $in->do_pkgs->ensure_is_installed_if_available("drdsl", "$::prefix/usr/sbin/drdsl"); + run_program::rooted($::prefix, "/usr/sbin/drdsl"); + } +} + sub read_config { my ($isdn) = @_; @@ -145,4 +176,26 @@ sub get_cards() { } +sub is_module_installed { + my ($driver) = @_; + find { m!/\Q$driver\E\.k?o! } cat_($::prefix . '/lib/modules/' . c::kernel_version() . '/modules.dep'); +} + + +sub get_capi_card { + my ($isdn) = @_; + + my $capi_card = find { + hex($isdn->{vendor}) == $_->{vendor} && hex($isdn->{id}) == $_->{id} + } @isdn_capi or return; + + #- check if the capi driver is available + unless (is_module_installed($capi_card->{driver}) || $in->do_pkgs->check_kernel_module_packages($capi_card->{driver})) { + log::explanations("a capi driver ($capi_card->{driver}) exists to replace $isdn->{driver}, but it isn't installed and no packages provide it"); + return; + } + + $capi_card; +} + 1; |