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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3721 - (hide annotations) (download)
Sat Mar 24 06:37:19 2012 UTC (12 years ago) by tv
File size: 967 byte(s)
perl_checker cleanups
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);

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.30