diff options
-rwxr-xr-x | drakxconf | 26 |
1 files changed, 13 insertions, 13 deletions
@@ -22,21 +22,21 @@ my @l = map { } { 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'} + { 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 ) +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; |