diff options
| author | Olivier Blin <oblin@mandriva.org> | 2006-03-03 17:06:15 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2006-03-03 17:06:15 +0000 |
| commit | b8bd775b5130b77409ed25512c7cb98176e5a6a1 (patch) | |
| tree | 6ea123ee4927ca2eeb8d6892609fd378b8330667 /perl-install | |
| parent | 0f38a5dbb601e370650f524d65b17e249028dca5 (diff) | |
| download | drakx-backup-do-not-use-b8bd775b5130b77409ed25512c7cb98176e5a6a1.tar drakx-backup-do-not-use-b8bd775b5130b77409ed25512c7cb98176e5a6a1.tar.gz drakx-backup-do-not-use-b8bd775b5130b77409ed25512c7cb98176e5a6a1.tar.bz2 drakx-backup-do-not-use-b8bd775b5130b77409ed25512c7cb98176e5a6a1.tar.xz drakx-backup-do-not-use-b8bd775b5130b77409ed25512c7cb98176e5a6a1.zip | |
autoconf bluetooth controllers (enable bluetooth service)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/autoconf.pm | 12 | ||||
| -rw-r--r-- | perl-install/harddrake/data.pm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 2 |
3 files changed, 15 insertions, 1 deletions
diff --git a/perl-install/harddrake/autoconf.pm b/perl-install/harddrake/autoconf.pm index b451286df..85be3ea4b 100644 --- a/perl-install/harddrake/autoconf.pm +++ b/perl-install/harddrake/autoconf.pm @@ -43,4 +43,16 @@ sub pcmcia { }); } +sub bluetooth { + my ($enable) = @_; +#- FIXME: make sure these packages are installed when needed +# if ($enable) { +# require do_pkgs; +# my $do_pkgs = do_pkgs_standalone->new; +# $do_pkgs->ensure_is_installed("bluez-utils", "/usr/bin/rfcomm"); +# } + require services; + services::set_status("bluetooth", $enable); +} + 1; diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 68fc2b738..f0c54e683 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -257,7 +257,7 @@ our @tree = icon => "hw_network.png", configurator => "", detector => sub { f(modules::probe_category('bus/bluetooth')) }, - checked_on_boot => 0, + checked_on_boot => 1, }, { diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 0cbc1258a..535e6f753 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -163,6 +163,8 @@ foreach my $hw_class (@harddrake::data::tree) { $modules_conf->write; modules::load(difference2(\@new_drivers, \@old_drivers)); next; + } elsif ($Ident eq "BLUETOOTH") { + harddrake::autoconf::bluetooth(scalar keys %ID); } elsif ($Ident eq "PCMCIA_CONTROLLER") { # obsolete once/since kernel-2.6.14/pcmciautils is used, but kept for compatibility: harddrake::autoconf::pcmcia(keys %ID ? first(values(%ID))->{driver} : ''); |