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
/
media
< prev
next >
Wrap
Text File
|
1995-12-04
|
430b
|
23 lines
# -*-perl-*-
sub select_media {
if ($installsource eq "ftp") {
require "ftp";
return &ftp_init;
} elsif ($installsource eq "cdrom") {
return &probe_rhs_cdrom;
} elsif ($installsource eq "nfs") {
return &nfs_mount;
} elsif ($installsource eq "floppy") {
require "floppy";
return &floppy_init;
} elsif ($installsource eq "hard drive") {
$mediamounted && return 1;
return &mount_partition;
}
}
1;