home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / media < prev    next >
Encoding:
Text File  |  1995-10-02  |  401 b   |  21 lines
  1. # -*-perl-*-
  2.  
  3. sub select_media {
  4.     if ($installsource eq "ftp") {
  5.     require "ftp";
  6.     return &ftp_init;
  7.     } elsif ($installsource eq "cdrom") {
  8.     return &probe_rhs_cdrom;
  9.     } elsif ($installsource eq "nfs") {
  10.     return &nfs_mount;
  11.     } elsif ($installsource eq "floppy") {
  12.     require "floppy";
  13.  
  14.     return &floppy_init;
  15.     } elsif ($installsource eq "hard drive") {
  16.     return &mount_partition;
  17.     }
  18. }
  19.  
  20. 1;
  21.