summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
committerFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
commit99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch)
treee42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/mouse.pm
parent4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff)
downloaddrakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar
drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.gz
drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.bz2
drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.xz
drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.zip
*** empty log message ***
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 4e91da97c..27979ea8d 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -65,10 +65,15 @@ sub serial_ports_names2dev {
/(\w+)/;
}
-sub read($) { getVarsFromSh $_[0]; }
+sub read($) {
+ my ($prefix) = @_;
+ my %mouse = getVarsFromSh "$prefix/etc/sysconfig/mouse";
+ $mouse{device} = readlink "$prefix/dev/mouse" or log::l("reading $prefix/dev/mouse symlink failed");
+ %mouse;
+}
sub write($;$) {
- my ($mouse, $prefix) = @_;
+ my ($prefix, $mouse) = @_;
local $mouse->{FULLNAME} = qq("$mouse->{FULLNAME}");
setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3));
symlink $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");