home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / mouse < prev    next >
Encoding:
Text File  |  1995-09-04  |  2.1 KB  |  92 lines
  1. # mouse configuration -*-perl-*-
  2.  
  3. $mousetype = "";
  4. $mouseport = "";
  5.  
  6. sub configure_mouse {
  7.  
  8.     if ((! $force_config) && (-f "/bootdisk/defaults/xsetup")) {
  9.     require "/bootdisk/defaults/xsetup";
  10.     if (defined $mouseport) {
  11.         unlink("/dev/mouse");
  12.         symlink($mouseport, "/dev/mouse");
  13.         return 1;
  14.     }
  15.     }
  16.  
  17.     if (! &rhs_menu("Mouse Configuration",
  18. <<EOM
  19. >
  20. Which type of mouse do you have?
  21. > 
  22. EOM
  23.             , 70, 11,
  24.             "microsoft-serial", "Microsoft compatible serial mouse",
  25.             "mousesystems-serial", "Mouse Systems serial mouse",
  26.             "mouseman-serial", "Logitech MouseMan",
  27.             "logitech-serial", "Logitech serial mouse",
  28.             "logitech-bus", "Logitech bus mouse",
  29.             "microsoft-bus", "Microsoft bus mouse",
  30.             "ps2-bus", "C&T 82C710 or PS/2 style (aux port)",
  31.             "mmseries-serial", "mmseries (?) serial mouse",
  32.             "mmhittab-serial", "Hitachi (?) serial (??) mouse",
  33.             "ati-bus", "ATI XL bus mouse",
  34.             "<none>", "No Mouse"
  35.             )) {
  36.     return 0;
  37.     }
  38.  
  39.     $mousetype = $dialog_result;
  40.     $mouseport = "";
  41.  
  42.     if ($mousetype eq "<none>") {
  43.     return 1;
  44.     } elsif ($mousetype eq "logitech-bus") {
  45.     $mouseport = "logibm";
  46.     } elsif ($mousetype eq "ati-bus") {
  47.     $mouseport = "atibm";
  48.     } elsif ($mousetype eq "microsoft-bus") {
  49.     $mouseport = "inportbm";
  50.     } elsif ($mousetype eq "ps2-bus") {
  51.     $mouseport = "psaux";
  52.     }
  53.  
  54.     if ($mouseport eq "") {
  55.         if (! &rhs_menu("Mouse Configuration",
  56. <<EOM
  57. >
  58. Which device (serial port) is your mouse connected to?
  59. > 
  60. EOM
  61.             , 60, 4,
  62.             "/dev/ttyS0", "COM1: under MS-DOS",
  63.             "/dev/ttyS1", "COM2: under MS-DOS",
  64.             "/dev/ttyS3", "COM3: under MS-DOS",
  65.             "/dev/ttyS4", "COM4: under MS-DOS")) {
  66.         return 0;
  67.     }
  68.  
  69.     $mouseport = $dialog_result;
  70.     $mouseport =~ s/.*\///;
  71.     }
  72.     
  73. #    unlink("$fsmount/dev/mouse");
  74. #    symlink($mouseport, "$fsmount/dev/mouse");
  75.  
  76.     open(FD, ">/tmp/mousetype");
  77.     print FD "$mousetype\n";
  78.     close(FD);
  79.     unlink("/dev/mouse");
  80.     symlink($mouseport, "/dev/mouse");
  81.  
  82.     return 1;
  83. }
  84.  
  85. sub finish_mouse {
  86.     unlink("$fsmount/dev/mouse");
  87.     symlink($mouseport, "$fsmount/dev/mouse");
  88. }
  89.  
  90. ########################
  91. 1;
  92.