diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-20 12:48:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-20 12:48:48 +0000 |
| commit | c14cbfc9770053f195c74dcb1404bfa10c9da75f (patch) | |
| tree | dfa3d4024251d99ec5ebd6384f2b0e9b00d7da7c /perl-install/keyboard.pm | |
| parent | 06ef0920b41b391d4d3953b03c4fd266872dcd82 (diff) | |
| download | drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.gz drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.bz2 drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.xz drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.zip | |
no_comment
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 14 |
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 ($_) = @_; |