- add drakxconf

1 files changed, 50 insertions, 0 deletions

diff --git a/drakxconf b/drakxconf
new file mode 100755
index 00000000..37a473c7
--- /dev/null
+++ b/drakxconf
@@ -0,0 +1,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);