1 |
dmorgan |
391 |
#!/usr/bin/perl |
2 |
|
|
|
3 |
|
|
use lib qw(/usr/lib/libDrakX); |
4 |
|
|
|
5 |
|
|
# i18n: IMPORTANT: to get correct namespace (drakx-kbd-mouse-x11 instead of libDrakX) |
6 |
|
|
BEGIN { unshift @::textdomains, 'drakx-kbd-mouse-x11' } |
7 |
|
|
|
8 |
|
|
use standalone; #- warning, standalone must be loaded very first, for 'explanations' |
9 |
|
|
|
10 |
|
|
use common; |
11 |
|
|
use interactive; |
12 |
|
|
use modules; |
13 |
|
|
use mouse; |
14 |
|
|
use c; |
15 |
|
|
|
16 |
|
|
|
17 |
|
|
$ugtk2::wm_icon = "/usr/share/mcc/themes/default/mousedrake-mdk.png"; |
18 |
|
|
my $in = 'interactive'->vnew('su'); |
19 |
|
|
|
20 |
|
|
my $modules_conf = modules::any_conf->read; |
21 |
|
|
|
22 |
|
|
my $mouse = mouse::read(); |
23 |
|
|
|
24 |
|
|
if (!$::noauto) { |
25 |
|
|
my $probed_mouse = mouse::detect($modules_conf); |
26 |
|
|
$mouse = $probed_mouse if !$mouse->{Protocol} || !$probed_mouse->{unsafe}; |
27 |
|
|
} |
28 |
|
|
|
29 |
|
|
if (!$mouse || !$::auto) { |
30 |
|
|
$mouse ||= mouse::fullname2mouse('Universal|Any PS/2 & USB mice'); |
31 |
|
|
mouse::select($in, $mouse) or $in->exit(0); |
32 |
|
|
} |
33 |
|
|
|
34 |
|
|
mouse::write_conf($in->do_pkgs, $modules_conf, $mouse, 1); |
35 |
|
|
|
36 |
|
|
system('service', 'gpm', 'restart') if -e '/var/lock/subsys/gpm'; |
37 |
|
|
|
38 |
|
|
$in->exit(0); |