#!/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");

index : drakx

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/standalone

diff options

author	Pascal Rigaux <pixel@mandriva.com>	2000-09-01 15:25:57 +0000
committer	Pascal Rigaux <pixel@mandriva.com>	2000-09-01 15:25:57 +0000
commit	4799bc7d0f1e3cabb0396f47ec356b8e478c1b97 (patch)
tree	884bb108e7da6b50ed0dfdc8b225835cb5265e5f /perl-install/standalone
parent	ea89b723b8ebd1b25a194097b10516427afa2c0e (diff)
download	drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.gz drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.bz2 drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.xz drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.zip

no_comment