home *** CD-ROM | disk | FTP | other *** search
- # keyboard config -*-perl-*-
-
- $keyboard = "";
- $keytablesloc = "/usr/lib/kbd/keytables";
-
- sub configure_keyboard {
- local ( @maps );
-
- opendir(DIR, "$fsmount$keytablesloc");
- @maps = reverse sort grep(/\.map$/, readdir(DIR));
- closedir(DIR);
-
- if (@maps == 0) {
- &rhs_msgbox("Error",
- <<EOM
- >
- No keytables found in $fsmount$keytablesloc !
- >
- Are you sure you have installed the base system?
- >
- EOM
- , 60);
- return 0;
- }
-
- if (! &rhs_menul("Keyboard Configuration",
- <<EOM
- >
- Select a keymap.
- >
- EOM
- , 50, scalar(@maps), @maps)) {
- return 0;
- }
-
- $keyboard = $dialog_result;
-
- return 1;
- }
-
- # This is used to select and load a keyboard mapping for
- # the install procedure
-
- sub finish_keyboard {
-
- open(FD, ">$fsmount/etc/sysconfig/keyboard");
- print FD "KEYTABLE=\"$keytablesloc/$keyboard\"\n";
- close FD;
-
- return 1;
- }
-
- ####################
- 1;
-