From 1e486d004c45e583d5f66839cbe85fe6f0091194 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 30 Sep 2004 04:03:22 +0000
Subject: (getInputDevices) introduce it in order to list input devices

---
 perl-install/detect_devices.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 385bbc2fa..c56fd32a1 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -447,6 +447,27 @@ sub getTVcards() {
     grep { isTVcard($_) } detect_devices::probeall();
 }
 
+sub getInputDevices() {
+    my (@devices, $device);
+    foreach (cat_('/proc/bus/input/devices')) {
+        if (/^I:/) {
+            push @devices, $device if $device;
+            $device = {};
+            $device->{vendor} = $1 if /Vendor=([0-9a-f]+)/;
+            $device->{id} = $1 if /Product=([0-9a-f]+)/;
+        }
+        $device->{description} = "|$1" if /N: Name="(.*)"/;
+        $device->{driver} = $1 if /H: Handlers=(\w+)/;
+        if (/P: Phys=(.*)/) {
+            $device->{location} = $1;
+            $device->{bus} = 'isa' if $device->{location} =~ /^isa/;
+            $device->{bus} = 'usb' if $device->{location} =~ /^usb/i;
+        }
+    }
+    push @devices, $device if $device;
+    @devices;
+}
+
 sub getSerialModem {
     my ($modules_conf, $o_mouse) = @_;
     my $mouse = $o_mouse || {};
-- 
cgit v1.2.1