diff options
| author | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-06 20:33:18 +0000 |
| commit | 115b4b1145f86d90f20c0404a54fa907f06c30b0 (patch) | |
| tree | 046cd13affb85df1028bcc687e1c8853fc576cd7 /perl-install/keyboard.pm | |
| parent | a6096f902a2df839b7e89c084d629840bf52a3a1 (diff) | |
| download | drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.gz drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.bz2 drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.tar.xz drakx-backup-do-not-use-115b4b1145f86d90f20c0404a54fa907f06c30b0.zip | |
bugfix
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 18 |
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; # |