home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / lilo < prev    next >
Text File  |  1995-11-01  |  7KB  |  385 lines
  1. # set up lilo -*-perl-*-
  2.  
  3. $liloconf = "";
  4. $append_text = "";
  5.  
  6. sub install_lilo {
  7.  
  8.     local ( $boot );
  9.  
  10.     if (! -e "$fsmount/vmlinuz") {
  11.     &rhs_msgbox("Error",
  12. <<EOM
  13. >
  14. No kernel is installed!
  15. >
  16. LILO can not be configured without a kernel.
  17. >
  18. EOM
  19.             , 60);
  20.     return 0;
  21.     }
  22.  
  23.     if (! &rhs_yesno("LILO",
  24. <<EOM
  25. >
  26. LILO is a Boot Manager which allows you to start
  27. Red Hat Linux directly from your hard
  28. drive.  It will also let you boot other operating systems
  29. on other partitions.
  30. >
  31. If you do not install LILO, you will have to use your boot
  32. diskette or some other boot loader to start the Network
  33. Desktop.
  34. >
  35. Do you want to install LILO?
  36. >
  37. EOM
  38.              , 60)) {
  39.     return 1;
  40.     }
  41.  
  42.     $_ = $root_dev;
  43.     if (/\/dev\/hd.*/) {
  44.     $p1 = "/dev/hda";
  45.     $p2 = "/dev/sda";
  46.     $t1 = "IDE";
  47.     $t2 = "SCSI";
  48.     } else {
  49.     $p2 = "/dev/hda";
  50.     $p1 = "/dev/sda";
  51.     $t2 = "IDE";
  52.     $t1 = "SCSI";
  53.     }
  54.  
  55.     if (! &rhs_menu("LILO Installation",
  56. <<EOM
  57. >
  58. Where do you want to install LILO?
  59. >
  60. EOM
  61.             , 70, 5,
  62.             $p1, "On the MBR of $p1. (The first $t1 hard disk)",
  63.             $p2, "On the MBR of $p2. (The first $t2 hard disk)",
  64.             "/dev/fd0", "On a floppy in /dev/fd0. (Drive A:)",
  65.             $root_dev, "On the superblock of your root Linux partition",
  66.             "other", "On some other partition")) {
  67.     return 1;
  68.     }
  69.     $boot = $dialog_result;
  70.  
  71.     if ($boot eq "other") {
  72.         if (! &rhs_inputbox("LILO Installation",
  73. <<EOM
  74. >
  75. Where do you want to put LILO?
  76. > 
  77. EOM
  78.                 , 50, "/dev/")) {
  79.         return 1;
  80.     }
  81.     $boot = $dialog_result;
  82.     }
  83.  
  84.     $liloconf =
  85. <<EOM
  86. boot=$boot
  87. map=/boot/map
  88. install=/boot/boot.b
  89. prompt
  90. timeout=50
  91. image=/vmlinuz
  92.     label=linux
  93.     root=$root_dev
  94.     read-only
  95. EOM
  96.     ;
  97.  
  98.     &do_append_stuff;
  99.  
  100.     &add_os_to_liloconf;
  101.  
  102.     open(FD, ">$fsmount/etc/lilo.conf");
  103.     print FD $liloconf;
  104.     close(FD);
  105.     
  106.     if (! $express_install) {
  107.     &rhs_textbox("Review /etc/lilo.conf", "$fsmount/etc/lilo.conf", 78, 22);
  108.  
  109.     if (! &rhs_yesno("Notice",
  110. <<EOM
  111. >
  112. If you think that the lilo.conf file you just reviewed
  113. is incorrect, cancel the LILO configuration, start
  114. a shell, fix $fsmount/etc/lilo.conf, and run
  115. lilo -r $fsmount.
  116. >
  117. Continue with LILO configuration?
  118. >
  119. EOM
  120.              , 60)) {
  121.         return 0;
  122.     }
  123.     }
  124.  
  125.     &rhs_infobox("LILO",
  126. <<EOM
  127. >
  128. Installing LILO...
  129. >
  130. EOM
  131.          , 50);
  132.  
  133.     if (&invoke("lilo -r $fsmount")) {
  134.     &rhs_msgbox("Error",
  135. <<EOM
  136. >
  137. Something went wrong running LILO.  Try configuring LILO again.
  138. >
  139. EOM
  140.             , 60);
  141.     return 0;
  142.     } else {
  143.     return 1;
  144.     }
  145. }
  146.  
  147. sub do_append_stuff {
  148.  
  149.     if (&rhs_yesno("LILO Configuration",
  150. <<EOM
  151. >
  152. If you needed to specify hardware parameters on the
  153. LILO command line to boot the install disk, you will
  154. need to add some information to your lilo configuration.
  155. >
  156. Do you need to specify hardware parameters?
  157. >
  158. EOM
  159.            , 60)) {
  160.     if (&rhs_inputbox("LILO Configuration",
  161. <<EOM
  162. >
  163. Enter the parameter below (ex: hd=64,32,202).
  164. This will be added as an append line to your
  165. LILO configuration.
  166. >
  167. EOM
  168.               , 70, $append_text)) {
  169.         $append_text = $dialog_result;
  170.     }
  171.     }
  172.     $liloconf .= 
  173. <<EOM
  174.     append = "$append_text"
  175. EOM
  176.     ;
  177. }
  178.  
  179. sub add_os_to_liloconf {
  180.     local ( %tmpparlist, $dev, $label, $table );
  181.     local ( $p, $r );
  182.  
  183.     while (&rhs_yesno("LILO Configuration",
  184. <<EOM
  185. >
  186. Do you want to indicate another operating system as an option for LILO to start?
  187. > 
  188. EOM
  189.               , 60)) {
  190.     if (! &rhs_menu("LILO Configuration",
  191. <<EOM
  192. >
  193. Which operating system do you wish to add?
  194. >
  195. EOM
  196.             , 60, 4,
  197.             "Linux", "Another Linux partition",
  198.             "DOS", "A DOS partition",
  199.             "OS/2", "An OS/2 partition",
  200.             "Other", "An operating system not listed here")) {
  201.         next;
  202.     }
  203.     
  204.     if ($dialog_result eq "Linux") {
  205.         %tmpparlist = ();
  206.         open(SAVEERR, ">&STDERR");
  207.         open(STDERR, ">/dev/null");
  208.         open(PROC, "fdisk -l |");
  209.         while (<PROC>) {
  210.         if (/^(.{10}).{5}(.{31}).*Linux native$/) {
  211.             $p = $1; $r = $2;
  212.             $p =~ s/\s$//;
  213.             $tmpparlist{$p} = "$r";
  214.         }
  215.         }
  216.         close PROC;
  217.         open(STDERR, ">&SAVEERR");
  218.         if (! &rhs_menua("LILO Configuration",
  219. <<EOM
  220. >
  221. Which Linux partition?
  222. >
  223. >      Device   Begin   Start     End  Blocks
  224. EOM
  225.                  , 54, %tmpparlist)) {
  226.         next;
  227.         }
  228.         $dev = $dialog_result;
  229.         $label = &lilo_getlabel;
  230.         next if ($label eq "");
  231.         $liloconf .=
  232. <<EOM
  233. image=/vmlinuz
  234.     label=$label
  235.     root=$dev
  236.     read-only
  237. EOM
  238.     ;
  239.         &do_append_stuff;
  240.     } elsif ($dialog_result eq "DOS") {
  241.         %tmpparlist = ();
  242.         open(SAVEERR, ">&STDERR");
  243.         open(STDERR, ">/dev/null");
  244.         open(PROC, "fdisk -l |");
  245.         while (<PROC>) {
  246.         if (/^(.{10}).{5}(.{31}).*DOS.*$/) {
  247.             $p = $1; $r = $2;
  248.             $p =~ s/\s$//;
  249.             $tmpparlist{$p} = "$r";
  250.         }
  251.         }
  252.         close PROC;
  253.         open(STDERR, ">&SAVEERR");
  254.         if (! &rhs_menua("LILO Configuration",
  255. <<EOM
  256. >
  257. Which DOS partition?
  258. >
  259. >      Device   Begin   Start     End  Blocks
  260. EOM
  261.                  , 54, %tmpparlist)) {
  262.         next;
  263.         }
  264.         $dev = $dialog_result;
  265.         $label = &lilo_getlabel;
  266.         next if ($label eq "");
  267.         $table = substr($dev, 0, 8);
  268.         $liloconf .=
  269. <<EOM
  270. other=$dev
  271.     label=$label
  272.     table=$table
  273. EOM
  274.     ;
  275.     } elsif ($dialog_result eq "OS/2") {
  276.         %tmpparlist = ();
  277.         open(SAVEERR, ">&STDERR");
  278.         open(STDERR, ">/dev/null");
  279.         open(PROC, "fdisk -l |");
  280.         while (<PROC>) {
  281.         if (/^(.{10}).{5}(.{31}).*DOS.*$/) {
  282.             $p = $1; $r = $2;
  283.             $p =~ s/\s$//;
  284.             $tmpparlist{$p} = "$r";
  285.         }
  286.         if (/^(.{10}).{5}(.{31}).*HPFS.*$/) {
  287.             $p = $1; $r = $2;
  288.             $p =~ s/\s$//;
  289.             $tmpparlist{$p} = "$r";
  290.         }
  291.         }
  292.         close PROC;
  293.         open(STDERR, ">&SAVEERR");
  294.         if (! &rhs_menua("LILO Configuration",
  295. <<EOM
  296. >
  297. Which OS/2 partition?
  298. >
  299. >      Device   Begin   Start     End  Blocks
  300. EOM
  301.                  , 54, %tmpparlist)) {
  302.         next;
  303.         }
  304.         $dev = $dialog_result;
  305.         $label = &lilo_getlabel;
  306.         next if ($label eq "");
  307.         $table = substr($dev, 0, 8);
  308.         $liloconf .=
  309. <<EOM
  310. other=$dev
  311.     label=$label
  312.     table=$table
  313. EOM
  314.     ;
  315.         if ($table eq "/dev/hda") {
  316.         $liloconf .=
  317. <<EOM
  318.     loader = /boot/os2_d.b
  319. EOM
  320.     ;
  321.         }
  322.     } elsif ($dialog_result eq "Other") {
  323.         %tmpparlist = ();
  324.         open(SAVEERR, ">&STDERR");
  325.         open(STDERR, ">/dev/null");
  326.         open(PROC, "fdisk -l |");
  327.         while (<PROC>) {
  328.         if (/^(\/dev\/.{5}).{5}(.{31}).*$/) {
  329.             $p = $1; $r = $2;
  330.             $p =~ s/\s$//;
  331.             $tmpparlist{$p} = "$p";
  332.         }
  333.         }
  334.         close PROC;
  335.         open(STDERR, ">&SAVEERR");
  336.         if (! &rhs_menua("LILO Configuration",
  337. <<EOM
  338. >
  339. Which is your main Linux parition?
  340. >
  341. >      Device   Begin   Start     End  Blocks
  342. EOM
  343.                  , 54, %tmpparlist)) {
  344.         next;
  345.         }
  346.         $dev = $dialog_result;
  347.         $label = &lilo_getlabel;
  348.         next if ($label eq "");
  349.         $table = substr($dev, 0, 8);
  350.         $liloconf .=
  351. <<EOM
  352. other=$dev
  353.     label=$label
  354.     table=$table
  355.     loader=/boot/any_d.b
  356. EOM
  357.     ;
  358.     }
  359.     }
  360.  
  361.     return 1;
  362. }
  363.  
  364. sub lilo_getlabel {
  365.  
  366.     if (! &rhs_inputbox("LILO Configuration",
  367. <<EOM
  368. >
  369. Enter a single word as a name for this system. A
  370. LILO: prompt appears when you start your computer;
  371. this is the name that you will type to start this
  372. operating system.
  373. > 
  374. EOM
  375.             , 60, "")) {
  376.     return "";
  377.     }
  378.  
  379.     return $dialog_result;
  380. }
  381.  
  382.  
  383. ##########################
  384. 1;
  385.