home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / bootdisk next >
Text File  |  1995-10-03  |  975b  |  51 lines
  1. $bootdisk_mounted = 0;
  2.  
  3. sub mount_bootdisk {
  4.     if ($bootdisk_mounted) { return; }
  5.  
  6.     &rhs_msgbox ( "Boot Floppy",
  7.     ">\n" .
  8.     "Now please floppy from your first drive and insert the boot\n" .
  9.     "floppy.  During the installation, the kernel will be\n" .
  10.     "copied from the boot floppy to your hard drive.\n" .
  11.     ">\n" .
  12.     "Please insert your BOOT disk (not the ROOT disk) in /dev/fd0 (DOS drive A:).\n" .
  13.     ">\n", 70);
  14.  
  15.     if ($rh_testing) {
  16.     $bootdisk_mounted = 1;
  17.     return 1;
  18.     }
  19.  
  20.     &invoke("mount -o ro /dev/fd0 /bootdisk");
  21.  
  22.     while (! -f "/bootdisk/vmlinuz") {
  23.     &invoke_no_output("umount /bootdisk");
  24.  
  25.     &rhs_msgbox ( "Boot Floppy",
  26. <<EOM
  27. >
  28. That was not the boot floppy disk!
  29. >
  30. Be sure you are inserting the BOOT FLOPPY DISK in
  31. /dev/fd0 (DOS drive A:).
  32. >
  33. EOM
  34.          , 70);
  35.  
  36.     &invoke("mount /dev/fd0 /bootdisk");
  37.     }
  38.  
  39.     $bootdisk_mounted = 1;
  40. }
  41.  
  42. sub umount_bootdisk {
  43.     if ($bootdisk_mounted) {
  44.     &invoke("umount /bootdisk");
  45.     }
  46.  
  47.     $bootdisk_mounted = 0;
  48. }
  49.  
  50. 1;
  51.