summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-06 20:33:18 +0000
committerpad <pad@mandriva.com>1999-09-06 20:33:18 +0000
commit115b4b1145f86d90f20c0404a54fa907f06c30b0 (patch)
tree046cd13affb85df1028bcc687e1c8853fc576cd7 /perl-install/keyboard.pm
parenta6096f902a2df839b7e89c084d629840bf52a3a1 (diff)
downloaddrakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar
drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.gz
drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.bz2
drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.xz
drakx-115b4b1145f86d90f20c0404a54fa907f06c30b0.zip
bugfix
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm18
1 files changed, 15 insertions, 3 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index fad61f667..8bd75bbf3 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -1,14 +1,21 @@
+
package keyboard;
use diagnostics;
use strict;
+#-######################################################################################
+#- misc imports
+#-######################################################################################
use common qw(:common :system :file);
use run_program;
use log;
use c;
+#-######################################################################################
+#- Globals
+#-######################################################################################
my $KMAP_MAGIC = 0x8B39C07F;
my %lang2keyboard =
@@ -16,9 +23,6 @@ my %lang2keyboard =
"en" => "us",
);
-1;
-
-
# [1] = name for loadkeys, [2] = extension for Xmodmap
my %keyboards = (
# armenian xmodmap have to be checked...
@@ -60,6 +64,9 @@ my %keyboards = (
"yu" => [ __("Yugoslavian (latin layout)"), "yu-latin2", "yu" ],
);
+#-######################################################################################
+#- Functions
+#-######################################################################################
sub list { map { $_->[0] } values %keyboards }
sub xmodmaps { map { $_->[2] } values %keyboards }
sub keyboard2text { $keyboards{$_[0]} && $keyboards{$_[0]}[0] }
@@ -142,3 +149,8 @@ sub read($) {
}
die "empty keyboard configuration file";
}
+
+#-######################################################################################
+#- Wonderful perl :(
+#-######################################################################################
+1; #