summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-10 16:33:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-10 16:33:21 +0000
commit640255572c30658ad75a7ed7948617dd56fdeaa4 (patch)
treeaad1cfd9e13b4490a611dbdd51200621b65fe4ed /perl-install/standalone
parent8177c7b2bdc55ff489f39c471085db9064ae359b (diff)
downloaddrakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.gz
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.bz2
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.xz
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.zip
no_comment
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/mousedrake10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index ee5c72d54..d40bcff62 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -44,14 +44,14 @@ modules::write_conf('') if $mouse->{device} eq "usbmouse" && !$::testing;
my $f = "/etc/X11/XF86Config";
my $g = "/etc/X11/XF86Config-4";
+
+my $zaxis = "\n ZAxisMapping 4 5" if $mouse->{nbuttons} > 3;
+ $zaxis .= "\n ZAxisMapping 6 7" if $mouse->{nbuttons} > 5;
substInFile {
if (/^Section "Pointer"/ .. /^EndSection/) {
+ $_ = '' if /ZAxisMapping/; #- remove existing line
s|^(\s*Protocol\s+).*|$1"$mouse->{XMOUSETYPE}"|;
- s|^(\s*Device\s+).*|$1"/dev/mouse"|;
-#- my $zaxis = "4 5" if $mouse->{nbuttons} > 3;
-#- $zaxis .= " 6 7" if $mouse->{nbuttons} > 5;
-#- s|^(\s*ZAxisMapping\s+).*|$1$zaxis| if $zaxis;
-#- s|^([#]\s*ZAxisMapping\s+).*|# ZAxisMapping\t\n|; }
+ s|^(\s*Device\s+).*|$1"/dev/mouse"$zaxis|;
}
} $f if -e $f && !$::testing;
substInFile {