diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 17:28:35 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 17:28:35 +0000 |
commit | cc523b844a28655be6f6b41cde9950e7dd6d04d8 (patch) | |
tree | 5baa01201c9df48ebcdf8f90cf7defe26e1e919f /perl-install/standalone | |
parent | 864a76b7f8d2003e73fe1adde89b7ecf131a1200 (diff) | |
download | drakx-cc523b844a28655be6f6b41cde9950e7dd6d04d8.tar drakx-cc523b844a28655be6f6b41cde9950e7dd6d04d8.tar.gz drakx-cc523b844a28655be6f6b41cde9950e7dd6d04d8.tar.bz2 drakx-cc523b844a28655be6f6b41cde9950e7dd6d04d8.tar.xz drakx-cc523b844a28655be6f6b41cde9950e7dd6d04d8.zip |
remove obsolote file
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakxconf | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/perl-install/standalone/drakxconf b/perl-install/standalone/drakxconf deleted file mode 100755 index 4eed8cfbb..000000000 --- a/perl-install/standalone/drakxconf +++ /dev/null @@ -1,53 +0,0 @@ -#!/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 Xconfigurator_consts; -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 => 'Hardware Information', - cmd => 'harddrake'}, - { des => 'Internet & Network', - cmd => 'drakconnect'}, - { des => 'Printer Configuration', - cmd => 'printerdrake'}, - { des => 'Add new users', - cmd => 'adduserdrake'}, - { des => 'Service Configuration', - cmd => 'drakxservices'}, - { des => 'Security Levels', - cmd => 'draksec'}, - { des => 'Boot Configuration', - cmd => 'drakboot'}, - { des => 'Auto Install', - cmd => 'drakautoinst'}, - { des => 'Connection Sharing', - cmd => 'drakgw'}, - { des => 'Diskdrake', - 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} : () },#grep { my $prog = $_; int grep { -x "$_/$prog" } split ":", $ENV{PATH} } $_[0]{des} }, - \@l ) or $in->exit(1); -$in->end; - -exec $choice->{cmd}, @ARGV or $in->exit(1); |