/[soft]/drakx-kbd-mouse-x11/trunk/tools/mousedrake
ViewVC logotype

Contents of /drakx-kbd-mouse-x11/trunk/tools/mousedrake

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3721 - (show annotations) (download)
Sat Mar 24 06:37:19 2012 UTC (8 years, 8 months ago) by tv
File size: 967 byte(s)
perl_checker cleanups
1 #!/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);

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.28