From d5c526273db473a7d87a26000585900fc10dda7d Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Wed, 8 Nov 2000 00:01:16 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'unlabeled-1.1.1'.

---
 perl-install/share/keymaps_generate | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 perl-install/share/keymaps_generate

(limited to 'perl-install/share/keymaps_generate')

diff --git a/perl-install/share/keymaps_generate b/perl-install/share/keymaps_generate
new file mode 100755
index 000000000..29fd576fb
--- /dev/null
+++ b/perl-install/share/keymaps_generate
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use lib "..";
+use keyboard;
+
+system("rm -rf keymaps ; mkdir keymaps");
+
+foreach (keyboard::xmodmaps()) {
+    my $kmap = keyboard::keyboard2kmap($_);
+    if (system("./kmap2bkmap $kmap > keymaps/$kmap.bkmap 2>/dev/null") != 0) {
+	warn "unknown kmap $kmap\n";
+	unlink "keymaps/$kmap.bkmap";
+    }
+}
+
+system("tar cfI keymaps.tar.bz2 keymaps") == 0 or die;
+system("rm -rf keymaps");
-- 
cgit v1.2.1