summaryrefslogtreecommitdiffstats
path: root/drakxconf
diff options
context:
space:
mode:
Diffstat (limited to 'drakxconf')
-rwxr-xr-xdrakxconf61
1 files changed, 27 insertions, 34 deletions
diff --git a/drakxconf b/drakxconf
index 37a473c7..ad2d8641 100755
--- a/drakxconf
+++ b/drakxconf
@@ -1,50 +1,43 @@
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
+use strict;
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";
+/-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);
+
+my @l = map {
+ my $path;
+ foreach my $i (split (":", $ENV{PATH})) {
+ my $j = "$i/$_->{cmd}";
+ $path = $j if -x $j;
+ }
+ { des => $_->{des}, cmd => $path };
+} (
+ { des => N("Display Configuration"), cmd => 'XFdrake'},
+ { des => N("KeyBoard Configuration"), cmd => 'keyboarddrake'},
+ { des => N("Mouse Configuration"), cmd => 'mousedrake'},
+ { des => N("Internet & Network"), cmd => 'drakconnect'},
+ { des => N("Printer Configuration"), cmd => 'printerdrake'},
+ { des => N("Add new users"), cmd => 'adduserdrake'},
+ { des => N("Service Configuration"), cmd => 'drakxservices'},
+ { des => N("Firewall"), cmd => 'tinyfirewall'},
+ { des => N("Boot Configuration"), cmd => 'drakboot'},
+ { des => N("Auto Install"), cmd => 'drakautoinst'},
+ { des => N("Connection Sharing"), cmd => 'drakgw'},
+ { des => N("Disk Partionning"), cmd => 'diskdrake'}
+ );
+
+my $choice = $in->ask_from_listf(N("Control Center"), N("Choose the tool you want to use"), sub { $_[0]{des} }, \@l )
+ or $in->exit(1);
$in->end;
exec $choice->{cmd}, @ARGV or $in->exit(1);