summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-07-09 17:25:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-07-09 17:25:45 +0000
commit0c1788e389ca54653c6b4e95b4515fce80794082 (patch)
treea167e22439ae6d3641f3e92a9b408c9da57d0b10 /perl-install
parent5a1fa14a75191975093c9aa651fcb7e605871c59 (diff)
downloaddrakx-0c1788e389ca54653c6b4e95b4515fce80794082.tar
drakx-0c1788e389ca54653c6b4e95b4515fce80794082.tar.gz
drakx-0c1788e389ca54653c6b4e95b4515fce80794082.tar.bz2
drakx-0c1788e389ca54653c6b4e95b4515fce80794082.tar.xz
drakx-0c1788e389ca54653c6b4e95b4515fce80794082.zip
- modify usbWacom() for mousedrake
(conflicts with drakx-kbd-mouse-x11 < 0.19) - installer: o add /lib/udev/usb_id which is needed by mouse.pm to generate /dev/input/by-id/xxx
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS3
-rw-r--r--perl-install/detect_devices.pm23
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/share/list.xml1
4 files changed, 25 insertions, 4 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index f01e281f0..2328c88a1 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,6 @@
+- modify usbWacom() for mousedrake
+ (conflicts with drakx-kbd-mouse-x11 < 0.19)
+
Version 10.4.143 - 05 July 2007, by Thierry Vignaud
- service_harddrake:
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index d35ffd495..bc4e6e27c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -454,16 +454,30 @@ sub getInputDevices() {
#- S: Sysfs=/class/input/input1
#- H: Handlers=mouse0 event1 ts0
#- B: EV=b
- #- B: KEY=6420 0 70000 0 0 0 0 0 0 0 0 #=> BTN_LEFT BTN_RIGHT BTN_MIDDLE BTN_TOOL_FINGER BTN_TOUCH BTN_TOOL_TRIPLETAP
+ #- B: KEY=6420 0 70000 0 0 0 0 0 0 0 0 #=> BTN_LEFT BTN_RIGHT BTN_MIDDLE BTN_TOOL_FINGER BTN_TOUCH BTN_TOOL_DOUBLETAP BTN_TOOL_TRIPLETAP
#- or B: KEY=6420 0 670000 0 0 0 0 0 0 0 0 #=> same with BTN_BACK
#- or B: KEY=420 30000 670000 0 0 0 0 0 0 0 0 #=> same without BTN_TOOL_TRIPLETAP but with BTN_B
#- B: ABS=11000003 #=> X Y PRESSURE TOOL_WIDTH
+ #- I: Bus=0003 Vendor=056a Product=0065 Version=0108
+ #- N: Name="Wacom Bamboo"
+ #- B: KEY=1c63 0 70033 0 0 0 0 0 0 0 0 #=> BTN_0 BTN_1 BTN_4 BTN_5 BTN_LEFT BTN_RIGHT BTN_MIDDLE TOOL_PEN TOOL_RUBBER TOOL_BRUSH TOOL_FINGER TOOL_MOUSE TOUCH STYLUS STYLUS2
+ #- B: ABS=100 3000103 #=> X Y WHEEL PRESSURE DISTANCE MISC
+
+ #- I: Bus=0003 Vendor=056a Product=0011 Version=0201
+ #- N: Name="Wacom Graphire2 4x5"
+ #- B: KEY=1c43 0 70000 0 0 0 0 0 0 0 0 #=> BTN_LEFT BTN_RIGHT BTN_MIDDLE TOOL_PEN TOOL_RUBBER TOOL_FINGER TOOL_MOUSE TOUCH STYLUS STYLUS2
+ #- B: ABS=100 3000003 #=> X Y PRESSURE DISTANCE MISC
+
$device->{Synaptics} = $descr eq 'SynPS/2 Synaptics TouchPad';
$device->{ALPS} = $descr =~ m!^AlpsPS/2 ALPS!;
- } elsif (/H: Handlers=(\w+)/) {
- $device->{driver} = $1;
+ } elsif (/H: Handlers=(.*)/) {
+ my @l = split(' ', $1);
+ $device->{driver} = $l[0]; #- keep it for compatibility
+ $device->{Handlers} = +{ map { (/^(.*?)\d*$/ ? $1 : $_, $_) } split(' ', $1) };
+ } elsif (/S: Sysfs=(.+)/) {
+ $device->{sysfs_path} = $1;
} elsif (/P: Phys=(.*)/) {
$device->{location} = $1;
$device->{bus} = 'isa' if $device->{location} =~ /^isa/;
@@ -1064,7 +1078,8 @@ sub matching_types() {
};
}
-sub usbWacom() { grep { $_->{driver} =~ /wacom/ } usb_probe() }
+sub hasWacom() { find { $_->{vendor} == 0x056a || $_->{driver} =~ /wacom/ } usb_probe() }
+sub usbWacom() { grep { $_->{vendor} eq '056a' } getInputDevices() }
sub usbKeyboards() { grep { $_->{media_type} =~ /\|Keyboard/ } usb_probe() }
sub usbStorage() { grep { $_->{media_type} =~ /Mass Storage\|/ } usb_probe() }
sub has_mesh() { find { /mesh/ } all_files_rec("/proc/device-tree") }
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 713e9b006..4385f667e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add /lib/udev/usb_id which is needed by mouse.pm to generate /dev/input/by-id/xxx
+
Version 10.4.142 - 2 July 2007, by Pascal "Pixel" Rigaux
- brown paper bag fix (stage1 can't create symlink /etc/rpm/platform)
diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml
index df2348ba4..b73e56b37 100644
--- a/perl-install/install/share/list.xml
+++ b/perl-install/install/share/list.xml
@@ -117,6 +117,7 @@
/etc/fonts/fonts.conf
/etc/protocols
/etc/rpm/platform
+ /lib/udev/usb_id
/usr/LIB/xserver/SecurityPolicy
/etc/pango/ARCH/pango.modules
/usr/LIB/gtk-2.0/*/loaders/libpixbufloader-png.so