home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2-beta.img / usr / lib / perl / keyboard < prev    next >
Text File  |  1995-12-04  |  920b  |  55 lines
  1. # keyboard config -*-perl-*-
  2.  
  3. $keyboard = "";
  4. $keytablesloc = "/usr/lib/kbd/keytables";
  5.  
  6. sub configure_keyboard {
  7.     local ( @maps );
  8.  
  9.     opendir(DIR, "$fsmount$keytablesloc");
  10.     @maps = reverse sort grep(/\.map$/, readdir(DIR));
  11.     closedir(DIR);
  12.  
  13.     if (@maps == 0) {
  14.         &rhs_msgbox("Error",
  15. <<EOM
  16. >
  17. No keytables found in $fsmount$keytablesloc !
  18. >
  19. Are you sure you have installed the base system?
  20. > 
  21. EOM
  22.                      , 60);
  23.         return 0;
  24.     }
  25.  
  26.     if (! &rhs_menul("Keyboard Configuration",
  27. <<EOM
  28. >
  29. Select a keymap.
  30. >
  31. EOM
  32.              , 50, scalar(@maps), @maps)) {
  33.     return 0;
  34.     }
  35.  
  36.     $keyboard = $dialog_result;
  37.  
  38.     return 1;
  39. }
  40.  
  41. # This is used to select and load a keyboard mapping for
  42. # the install procedure
  43.  
  44. sub finish_keyboard {
  45.  
  46.     open(FD, ">$fsmount/etc/sysconfig/keyboard");
  47.     print FD "KEYTABLE=\"$keytablesloc/$keyboard\"\n";
  48.     close FD;
  49.  
  50.     return 1;
  51. }
  52.  
  53. ####################
  54. 1;
  55.