summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-20 12:48:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-20 12:48:48 +0000
commitc14cbfc9770053f195c74dcb1404bfa10c9da75f (patch)
treedfa3d4024251d99ec5ebd6384f2b0e9b00d7da7c /perl-install/keyboard.pm
parent06ef0920b41b391d4d3953b03c4fd266872dcd82 (diff)
downloaddrakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.gz
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.bz2
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.xz
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.zip
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 5b0a09de9..588b9c20d 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -155,6 +155,7 @@ arch() =~ /^ppc/ ? (
),
);
+
#-######################################################################################
#- Functions
#-######################################################################################
@@ -171,6 +172,19 @@ sub text2keyboard {
die "unknown keyboard $t";
}
+sub loadkeys_files {
+ my $p = "/usr/lib/kbd/keymaps/i386/*";
+ my $post = ".kmap.gz";
+ my %trans = ("cz-latin2" => "cz-lat2");
+ my @l;
+ foreach (values %keyboards) {
+ local $_ = $trans{$_->[1]} || $_->[1];
+ my ($l) = glob("$p/$_$post");
+ $l or /(..)/ and ($l) = glob("$p/$1$post");
+ push @l, $l if $l;
+ print STDERR "unknown $_\n" if $_[0] && !$l;
+ }
+}
sub lang2keyboard($) {
local ($_) = @_;