home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Caldera Network Desktop 1.0
/
caldera-network-desktop-1.0.bin
/
images
/
ramdisk2-beta.img
/
usr
/
lib
/
perl
/
bootdisk
< prev
next >
Wrap
Text File
|
1995-12-04
|
1KB
|
62 lines
$bootdisk_mounted = 0;
sub mount_bootdisk {
local ($kernelname);
if ($cdboot) { return; }
if ($bootdisk_mounted) { return; }
if ($instarch eq "i386") {
$kernelname = "vmlinuz";
} else {
$kernelname = "vmlinux.gz";
}
&rhs_msgbox ( "Boot Floppy",
">\n" .
"Now please remove the floppy from your first drive and insert the\n" .
"boot floppy. During the installation, the kernel will be\n" .
"copied from the boot floppy to your hard drive.\n" .
">\n" .
"Please insert your BOOT disk (not the ROOT disk) in /dev/fd0 (DOS drive A:).\n" .
">\n", 70);
if ($rh_testing) {
$bootdisk_mounted = 1;
return 1;
}
&invoke("mount -o ro /dev/fd0 /bootdisk");
while (! -f "/bootdisk/$kernelname") {
&invoke_no_output("umount /bootdisk");
&rhs_msgbox ( "Boot Floppy",
<<EOM
>
That was not the boot floppy disk!
>
Be sure you are inserting the BOOT FLOPPY DISK in
/dev/fd0 (DOS drive A:).
>
EOM
, 70);
&invoke("mount /dev/fd0 /bootdisk");
}
$bootdisk_mounted = 1;
}
sub umount_bootdisk {
if ($cdboot) { return; }
if ($bootdisk_mounted) {
&invoke("umount /bootdisk");
}
$bootdisk_mounted = 0;
}
1;