From acc835793ff7e47eb5e253714ae074369cd3ba17 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 10 Sep 2003 14:07:51 +0000 Subject: added load_modules to load mouse module according to configuration. --- perl-install/mouse.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 70d891141..3de4cb781 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -268,6 +268,7 @@ sub detect() { } if (modules::get_probeall("usb-interface")) { + sleep 2; if (my (@l) = detect_devices::usbMice()) { log::l(join('', "found usb mouse $_->{driver} $_->{description} (", if_($_->{type}, $_->{type}), ")")) foreach @l; eval { modules::load(qw(hid mousedev usbmouse)) }; @@ -325,6 +326,20 @@ sub detect() { return fullname2mouse("serial|Generic 2 Button Mouse", unsafe => 1); } +sub load_modules { + my ($mouse) = @_; + my @l; + for ($mouse->{type}) { + /serial/ and @l = qw(serial); + /USB/ and @l = qw(hid mousedev usbmouse); + } + foreach ($mouse->{wacom}) { + /ttyS/ and push @l, qw(serial); + /event/ and push @l, qw(wacom evdev); + } + eval { modules::load(@l) }; +} + sub set_xfree_conf { my ($mouse, $xfree_conf, $b_keep_auxmouse_unchanged) = @_; -- cgit v1.2.1