From c14cbfc9770053f195c74dcb1404bfa10c9da75f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Apr 2000 12:48:48 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'perl-install/keyboard.pm')

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 ($_) = @_;
-- 
cgit v1.2.1