home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / xinstall < prev   
Encoding:
Text File  |  1995-10-10  |  1.8 KB  |  81 lines
  1. # Select and install an X server -*-perl-*-
  2.  
  3. $xserver = "";
  4.  
  5. sub x_reset {
  6.     $xserver = "";
  7.     $chipset = "";
  8. }
  9.  
  10. sub config_x {
  11.     local ( $ret );
  12.  
  13.     $ret = 1;
  14.     if ($xinstalled) {
  15.     if (-f "/bootdisk/defaults/XF86Config") {
  16.         open(FD, "</bootdisk/defaults/XF86Config");
  17.         open(OFD, ">$fsmount/etc/X11/XF86Config");
  18.         while (<FD>) {
  19.         print OFD $_;
  20.         }
  21.         close(FD);
  22.         close(OFD);
  23.         unlink("$fsmount/etc/X11/X");
  24.         symlink("../../usr/X11R6/bin/XF86_$xserver", "$fsmount/etc/X11/X");
  25.         unlink("$fsmount/usr/X11R6/bin/X");
  26.         symlink("../../../etc/X11/X", "$fsmount/usr/X11R6/bin/X");
  27.         $ret = 1;
  28.     } else {
  29.         if ($installsource eq "ftp" || $installsource eq "floppy") {
  30.         unlink("/ramdisk/usr/X11R6");
  31.         symlink("$fsmount/usr/X11R6", "/ramdisk/usr/X11R6");
  32.         }
  33.         if (&invoke("Xconfigurator $xserver $mousetype $fsmount")) {
  34.         $ret = 0;
  35.         } else {
  36.         $ret = 1;
  37.         }
  38.         unlink("$fsmount/etc/X");
  39.     }
  40.     unlink("$fsmount/etc/X11/X");
  41.     symlink("../../usr/X11R6/bin/XF86_$xserver", "$fsmount/etc/X11/X");
  42.     unlink("$fsmount/usr/X11R6/bin/X");
  43.     symlink("../../../etc/X11/X", "$fsmount/usr/X11R6/bin/X");
  44.     }
  45.     return $ret;
  46. }
  47.  
  48. sub select_x_server {
  49.  
  50.     if ((! $force_config) && (-f "/bootdisk/defaults/xsetup")) {
  51.         require "/bootdisk/defaults/xsetup";
  52.         return 1;
  53.     }
  54.  
  55.     &rhs_menu("X Configuration",
  56. <<EOM
  57. >
  58. Which type of video card you you have?
  59. > 
  60. EOM
  61.           , 60, 11,
  62.           "VGA16", "Generic VGA",
  63.           "SVGA", "Generic SVGA",
  64.           "Mach8", "ATI Mach8 chipset",
  65.           "Mach32", "ATI Mach32 chipset",
  66.           "Mach64", "ATI Mach64 chipset",
  67.           "8514", "IBM 8514/A chipset",
  68.           "S3", "S3 chipset",
  69.           "AGX", "AGX/XGA",
  70.           "P9000", "Weitek Power 9000",
  71.           "W32", "ET4000/W32[i,p]",
  72.           "Mono", "Monochrome card");
  73.  
  74.     $xserver = $dialog_result;
  75.     return 1;
  76. }
  77.  
  78. ################################
  79. 1;
  80.  
  81.