diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
| commit | 99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch) | |
| tree | e42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/mouse.pm | |
| parent | 4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff) | |
| download | drakx-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.pm | 9 |
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"); |