From 2ec16ef14a1f7bc42ac92255c4f2725fa8c25d10 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Mar 2006 17:18:00 +0000 Subject: autoconf laptop services when switching between laptop and desktop --- perl-install/harddrake/autoconf.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/autoconf.pm b/perl-install/harddrake/autoconf.pm index 85be3ea4b..0c1ddff7d 100644 --- a/perl-install/harddrake/autoconf.pm +++ b/perl-install/harddrake/autoconf.pm @@ -55,4 +55,23 @@ sub bluetooth { services::set_status("bluetooth", $enable); } +sub laptop { + my ($on_laptop) = @_; +#- FIXME: make sure these packages are installed when needed +# require do_pkgs; +# my $do_pkgs = do_pkgs_standalone->new; +# if ($on_laptop) { +# $do_pkgs->ensure_is_installed("cpufreq", "/etc/rc.d/init.d/cpufreq"); +# $do_pkgs->ensure_is_installed("apmd", "/usr/bin/apm"); +# $do_pkgs->ensure_is_installed("hotkeys", "/usr/bin/hotkeys"); +# $do_pkgs->ensure_is_installed("laptop-mode-tools", "/usr/sbin/laptop_mode"); +# } else { +# $do_pkgs->ensure_is_installed("numlock", "/etc/rc.d/init.d/numlock"); +# } + require services; + services::set_status("cpufreq", $on_laptop); + services::set_status("apmd", $on_laptop); + services::set_status("laptop-mode", $on_laptop); +} + 1; -- cgit v1.2.1