1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use interactive;
use keyboard;
use common;
use c;
local $_ = join '', @ARGV;
/-h/ and die "usage: drakxconf\n";
/-version/ and die "version: $Id$\n";
my $in = 'interactive'->vnew('su', 'default');
my @l=(
{ des => _("Display Configuration"),
cmd => 'XFdrake'},
{ des => _("KeyBoard Configuration"),
cmd => 'keyboarddrake'},
{ des => _("Mouse Configuration"),
cmd => 'mousedrake'},
{ des => _("Internet & Network"),
cmd => 'drakconnect'},
{ des => _("Printer Configuration"),
cmd => 'printerdrake'},
{ des => _("Add new users"),
cmd => 'adduserdrake'},
{ des => _("Service Configuration"),
cmd => 'drakxservices'},
{ des => _("Firewall"),
cmd => 'tinyfirewall'},
{ des => _("Boot Configuration"),
cmd => 'drakboot'},
{ des => _("Auto Install"),
cmd => 'drakautoinst'},
{ des => _("Connection Sharing"),
cmd => 'drakgw'},
{ des => _("Disk Partionning"),
cmd => 'diskdrake'},
);
my $choice = $in->ask_from_listf(_("Control Center"),
_("Choose the tool you want to use"),
sub { (int grep { -x "$_/" . $_[0]{cmd} } split (":", $ENV{PATH})) ? $_[0]{des} : () },
\@l ) or $in->exit(1);
$in->end;
exec $choice->{cmd}, @ARGV or $in->exit(1);
|
