home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / install < prev    next >
Text File  |  1995-11-01  |  3KB  |  156 lines
  1. #!/usr/bin/perl
  2.  
  3. # dialog requires a shell, unfortunately.  But I guess we
  4. # wanted to have a shell anyway.
  5.  
  6. # Copyright (C) 1995 Red Hat Software, Inc.
  7.  
  8. require "dialog";
  9. require "mount_rh";
  10. require "probe_cd";
  11. require "misc";
  12. require "net";
  13. require "nfs_mount";
  14. require "xinst";
  15. require "pcmcia";
  16. require "fdisk";
  17. require "swap";
  18. require "mouse";
  19. require "dispatch";
  20. require "xinstall";
  21. require "media";
  22. require "bootdisk";
  23.  
  24. # ***
  25. $rh_testing = 0;
  26. # ***
  27.  
  28. $express_install = 1;
  29.  
  30.  
  31. $fsmount = "/mnt";
  32.  
  33. #$rh_mounted = 1;
  34. #$rh_available = 1;
  35. #$rh_mountpath = "/mnt/rhscd";
  36.  
  37. $* = 1;
  38.  
  39. # The boot disk is on    /bootdisk
  40. # The 2nd rootdisk is on /ramdisk
  41. # The CD instimage is on /image
  42.  
  43. $ENV{'PATH'} = "/bin:/usr/bin:/usr/bin/X11:/usr/X11/bin:/sbin:/usr/sbin";
  44. $ENV{'PATH'} .= ":/mnt/bin:/mnt/usr/bin:/mnt/sbin:/mnt/usr/sbin";
  45.  
  46. # Set $scr_lines here if we need to
  47. # This is used by the perl interface to dialog
  48. $scr_lines = 24;
  49.  
  50. &rhs_msgbox ( "Red Hat Linux 2.1",
  51. <<EOM
  52. Welcome to the Red Hat Linux installation program!
  53. >
  54. Red Hat Software has worked very hard to bring you the highest
  55. quality Linux system and the easiest and most
  56. flexible installation procedure.
  57. >
  58. If you managed to get this far with all your hardware
  59. detected, the hard part is done!
  60. >
  61. This script will walk you through each step
  62. of the installation.
  63. >
  64. PLEASE BE SURE YOU HAVE READ AND UNDERSTOOD THE INSTALLATION
  65. GUIDE IN THE MANUAL BEFORE YOU PROCEED.  It is probably a good
  66. idea to have the manual available for reference too.
  67. >
  68. Copyright (C) 1995 Red Hat Software, Inc.
  69. EOM
  70.          , 74);
  71.  
  72. &mount_bootdisk();
  73.  
  74. if (! $rh_testing) {
  75.     $ret = &pcmcia_init;
  76. }
  77.  
  78. #$express_install = &rhs_yesno("Red Hat Linux",
  79. #<<EOM
  80. #>
  81. #The Express Install provides the simplest installation by
  82. #taking you through each installation step in order.
  83. #>
  84. #Do you want to do an Express Install?
  85. #>
  86. #EOM
  87.                   #, 70);
  88. $express_install = 1;
  89.  
  90. $installsource = "";
  91. $installtype = "";
  92. while ($installtype eq "") {
  93.     if (&rhs_menu("Installation Type",
  94. <<EOM
  95. >
  96. Red Hat supports a number of different sources for installation. You
  97. may use NFS, a cdrom, ftp, floppy disks, a hard drive partition. 
  98. >
  99. Which do you prefer?
  100. > 
  101. EOM
  102.           , 70, 5, 
  103.           "cdrom", "Red Hat CDROM",
  104.           "nfs", "NFS server",
  105.           "hard drive", "local hard drive",
  106.           "ftp", "FTP server",
  107.           "floppy", "floppy disks",
  108.           )) {
  109.     $installsource = $dialog_result;
  110.  
  111.     if ($installsource eq "cdrom" || $installsource eq "nfs") {
  112.         # Find out if they want to do a X based install or a text mode one
  113.         if (&rhs_menu("Installation Type",
  114.     <<EOM
  115. >
  116. Red Hat supports two types of CD (or NFS) based installation interfaces. One 
  117. is a X based graphical interface which is more powerful
  118. and much easier to use. However, some people have difficulty
  119. getting X set up, so we provide a simpler text only installation
  120. procedure as an alternative.
  121. >
  122. Which would you prefer?
  123. > 
  124. EOM
  125.               , 70, 2, 
  126.               "X", "Graphical Installation",
  127.               "text", "Text based install"
  128.               )) {
  129.         $installtype = $dialog_result;
  130.         } else {
  131.         $installsource = "";
  132.         }
  133.     } else {
  134.         $installtype = "text";
  135.     }
  136.     }
  137. }
  138.  
  139. &install_dispatcher;
  140.  
  141. if (! $rh_testing) {
  142.     &umount_bootdisk();
  143.  
  144.     &rhs_msgbox ( "Installation Complete",
  145. <<EOM
  146. >
  147. When you hit enter your computer will be rebooted.
  148. >
  149. Be sure to remove the boot floppy from your floppy drive!
  150. >
  151. EOM
  152.          , 70);
  153. }
  154.  
  155. exit 0;
  156.