summaryrefslogtreecommitdiffstats
path: root/perl-install/install/share/keymaps_generate
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/install/share/keymaps_generate
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/install/share/keymaps_generate')
-rwxr-xr-xperl-install/install/share/keymaps_generate18
1 files changed, 18 insertions, 0 deletions
diff --git a/perl-install/install/share/keymaps_generate b/perl-install/install/share/keymaps_generate
new file mode 100755
index 000000000..0265502c9
--- /dev/null
+++ b/perl-install/install/share/keymaps_generate
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use lib "..";
+use keyboard;
+
+my $dir = "keymaps/usr/share/keymaps";
+system("rm -rf keymaps ; mkdir -p keymaps/usr/share/keymaps");
+
+foreach (keyboard::keyboards()) {
+ my $kmap = keyboard::keyboard2kmap($_);
+ if (system("./kmap2bkmap $kmap > $dir/$kmap.bkmap 2>/dev/null") != 0) {
+ warn "unknown kmap $kmap\n";
+ unlink "$dir/$kmap.bkmap";
+ }
+}
+
+system("tar cfj keymaps.tar.bz2 -C keymaps usr") == 0 or die;
+system("rm -rf keymaps");