home *** CD-ROM | disk | FTP | other *** search
/ Caldera Network Desktop 1.0 / caldera-network-desktop-1.0.bin / images / ramdisk2.img / usr / lib / perl / bootstrap < prev    next >
Encoding:
Text File  |  1995-10-03  |  2.6 KB  |  131 lines
  1. ## -*-perl-*-
  2.  
  3. # install the bootstrap system
  4.  
  5. # Path from $rhspath to the bootstrap tar file
  6. $fsstnd_cpio = "RedHat/base/fsstnd.cgz";
  7. $skel_cpio = "RedHat/base/skeleton.cgz";
  8.  
  9. $bootstrap_file_count = 143;
  10.  
  11. sub install_bootstrap {
  12.  
  13.     local ( $ret, $tmp );
  14.  
  15.     if (! $fs_mounted) {
  16.     &rhs_msgbox("Error",
  17. <<EOM
  18. >
  19. Your installation filesystem must be mounted
  20. before you can initialize it.
  21. >
  22. EOM
  23.             , 60);
  24.     return 0;
  25.     }
  26.  
  27.     # cd to the installation filesystem
  28.     chdir($fsmount);
  29.  
  30.     &rhs_infobox("Filesystem Initialization",
  31. <<EOM
  32. >
  33. Setting up initial filesystem structure.
  34. >
  35. EOM
  36.          , 70);
  37.  
  38.     if ($installsource eq "ftp") {
  39.     if (! $ftp_configured) {
  40.         $ret = 1;
  41.         &rhs_msgbox("FTP Failed",
  42. <<EOM
  43. >
  44. FTP is not configured.  You will have to configure it before
  45. continuing.
  46. > 
  47. EOM
  48.             , 60);
  49.     } else {
  50.         if (&get_ftp_file($fsstnd_cpio, "fsstnd.cpio.gz")) {
  51.         open(SAVEERR, ">&STDERR");
  52.         open(STDERR, ">/dev/tty3");
  53.         $ret = &invoke("gunzip -dc fsstnd.cpio.gz | cpio --extract");
  54.         open(STDERR, ">&SAVEERR");
  55.         unlink("fsstnd.cpio.gz");
  56.         if (&get_ftp_file($skel_cpio, "skel.cpio.gz")) {
  57.             open(SAVEERR, ">&STDERR");
  58.             open(STDERR, ">/dev/tty3");
  59.             $ret += &invoke("gunzip -dc skel.cpio.gz | cpio --extract");
  60.             open(STDERR, ">&SAVEERR");
  61.             unlink("skel.cpio.gz");
  62.         } else {
  63.             $ret = 1;
  64.         }
  65.         } else {
  66.         $ret = 1;
  67.         }
  68.         if ($ret != 0) {
  69.         &rhs_msgbox("FTP Failed",
  70. <<EOM
  71. >
  72. FTP failed!
  73. >
  74. Error returned: $ftp_error
  75. > 
  76. EOM
  77.                 , 60);
  78.         }
  79.     }
  80.     } elsif ($installsource eq "floppy") {
  81.     mkdir("/mnt/tmp", 0755);
  82.  
  83.     &floppy_copy_file("fsstnd.cgz", "/mnt/tmp", *nogauge);
  84.     &floppy_copy_file("skeleton.cgz", "/mnt/tmp", *nogauge);
  85.  
  86.     open(SAVEERR, ">&STDERR");
  87.     open(STDERR, ">/dev/tty3");
  88.     $ret = &invoke("gunzip -dc /mnt/tmp/fsstnd.cgz | cpio --extract");
  89.     $ret += &invoke("gunzip -dc /mnt/tmp/skeleton.cgz | cpio --extract");
  90.     open(STDERR, ">&SAVEERR");
  91.  
  92.     unlink("/mnt/tmp/fsstnd.cgz");
  93.     unlink("/mnt/tmp/skeleton.cgz");
  94.     } else {
  95.     open(SAVEERR, ">&STDERR");
  96.     open(STDERR, ">/dev/tty3");
  97.     $ret = &invoke("gunzip -dc $rh_mountpath/$fsstnd_cpio | cpio --extract");
  98.     $ret += &invoke("gunzip -dc $rh_mountpath/$skel_cpio | cpio --extract");
  99.     open(STDERR, ">&SAVEERR");
  100.     }
  101.  
  102.     chdir("/");
  103.     if ($ret != 0) {
  104.     &rhs_msgbox("Filesystem Initialization",
  105. <<EOM
  106. >
  107. The initial archive was not extracted properly.
  108. The archive was probably not found, or the filesystem is corrupted.
  109. Make sure the Red Hat CD (or NFS volume) is mounted.
  110. > 
  111. EOM
  112.             , 60);
  113.     return 0;
  114.     }
  115.     
  116.     if (! $express_install) {
  117.     &rhs_msgbox("Bootstrap Install",
  118. <<EOM
  119. >
  120. The bootstrap installation is complete.
  121. > 
  122. EOM
  123.             , 70);
  124.     }
  125.  
  126.     return 1;
  127. }
  128.  
  129. #######################
  130. 1;
  131.