summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-30 04:47:52 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-30 04:47:52 +0000
commitc23074d2db91471542cb41dcaa94510127294f56 (patch)
treeb94d6e8910066f13f367ba38b09a2dfc51191188 /perl-install
parent27d66aeec586b5c78f3a059899253050b7dc54f0 (diff)
downloaddrakx-backup-do-not-use-c23074d2db91471542cb41dcaa94510127294f56.tar
drakx-backup-do-not-use-c23074d2db91471542cb41dcaa94510127294f56.tar.gz
drakx-backup-do-not-use-c23074d2db91471542cb41dcaa94510127294f56.tar.bz2
drakx-backup-do-not-use-c23074d2db91471542cb41dcaa94510127294f56.tar.xz
drakx-backup-do-not-use-c23074d2db91471542cb41dcaa94510127294f56.zip
list all mice and keyboards (thus lowering unknown hardware in
hwdb-clients)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm39
1 files changed, 25 insertions, 14 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 04e6a1406..c0ffa80d6 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -267,20 +267,6 @@ our @tree =
},
{
- class => "MOUSE",
- string => N("Mouse"),
- icon => "hw_mouse.png",
- configurator => "$sbindir/mousedrake",
- detector => sub {
- require mouse;
- require modules;
- mouse::detect($modules_conf);
- },
- checked_on_boot => 1,
- automatic => 1,
- },
-
- {
class => "JOYSTICK",
string => N("Joystick"),
icon => "joystick.png",
@@ -376,6 +362,31 @@ our @tree =
},
{
+ class => "KEYBOARD",
+ string => N("Keyboard"),
+ icon => "usb.png",
+ configurator => "$sbindir/keyboardrake",
+ detector => sub {
+ f(grep { $_->{description} =~ /Keyboard/i } @devices),
+ grep { $_->{bus} ne 'usb' && $_->{driver} eq 'kbd' } detect_devices::getInputDevices();
+ },
+ checked_on_boot => 0,
+ },
+
+ {
+ class => "MOUSE",
+ string => N("Mouse"),
+ icon => "hw_mouse.png",
+ configurator => "$sbindir/mousedrake",
+ detector => sub {
+ f(grep { $_->{driver} =~ /^Mouse:/ } @devices),
+ grep { $_->{bus} ne 'usb' && $_->{driver} =~ /mouse/ } detect_devices::getInputDevices();
+ },
+ checked_on_boot => 1,
+ automatic => 1,
+ },
+
+ {
class => "SCANNER",
string => N("Scanner"),
icon => "scanner.png",