diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 12:47:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 12:47:17 +0000 |
| commit | 8212f09c04859180c0e67588f0ab5912b3c08a86 (patch) | |
| tree | 24f36eccb18068cdb01626fd83010f692e1b0531 /perl-install/standalone/keyboarddrake | |
| parent | fb1408984a4460dcb8c66a9ba4d2e51d2b97303f (diff) | |
| download | drakx-backup-do-not-use-8212f09c04859180c0e67588f0ab5912b3c08a86.tar drakx-backup-do-not-use-8212f09c04859180c0e67588f0ab5912b3c08a86.tar.gz drakx-backup-do-not-use-8212f09c04859180c0e67588f0ab5912b3c08a86.tar.bz2 drakx-backup-do-not-use-8212f09c04859180c0e67588f0ab5912b3c08a86.tar.xz drakx-backup-do-not-use-8212f09c04859180c0e67588f0ab5912b3c08a86.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/keyboarddrake')
| -rwxr-xr-x | perl-install/standalone/keyboarddrake | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake new file mode 100755 index 000000000..9bb77e6bb --- /dev/null +++ b/perl-install/standalone/keyboarddrake @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +use lib qw(/usr/lib/libDrakX); + + +use interactive; +use keyboard; +use Xconfigurator_consts; +use common qw(:system); + +local $_ = join '', @ARGV; + +/-h/ and die "usage: keyboarddrake [--expert]\n"; + +$::expert = /--expert/; +$::isStandalone = 1; + +my $in = vnew interactive; + +my $keyboard = keyboard::text2keyboard( + $in->ask_from_list_(_("Keyboard"), + _("What is your keyboard layout?"), + [ keyboard::list() ], + keyboard::keyboard2text(keyboard::read('')))); + +my $isNotDelete = $::expert && !$in->ask_yesorno("BackSpace", "Do you want the BackSpace to return Delete in console?", 1); + +my $kmap = keyboard::keyboard2kmap($keyboard); +`loadkeys $kmap`; + +my $xkb = keyboard::keyboard2xkb($keyboard); +`setxkbmap $xkb`; + +my $f = "/etc/X11/XF86Config"; +substInFile { + if (/^Section "Keyboard"/ .. /^EndSection/) { + s|^(\s*XkbLayout\s+).*|$1"$xkb"| + and $_ .= join '', map { " $_\n" } @{$xkb_options{$xkb} || []}; + s,^(\s*(XkbVariant|XkbOptions)\s+).*,,; # remove existing one + } +} $f if -e $f && !$::testing; + +keyboard::write('', $keyboard, $isNotDelete); + +exec 'true' if ref($in) =~ /gtk/; #- workaround for perl-GTK |