summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/keyboarddrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-02 12:47:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-02 12:47:17 +0000
commit8212f09c04859180c0e67588f0ab5912b3c08a86 (patch)
tree24f36eccb18068cdb01626fd83010f692e1b0531 /perl-install/standalone/keyboarddrake
parentfb1408984a4460dcb8c66a9ba4d2e51d2b97303f (diff)
downloaddrakx-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-xperl-install/standalone/keyboarddrake45
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