home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / DB / PO7 / PO7.INS < prev    next >
Encoding:
Text File  |  1995-10-03  |  1.9 KB  |  86 lines
  1. /* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     po7.ins - V3 installation script for Windows 95 PO7 parent product
  6.  
  7.   DESCRIPTION
  8.     This script installs the Windows 95 PO7 parent product
  9.  
  10.   OWNER
  11.     Bryan Sabol
  12.     
  13.   MODIFIED    MM/DD/YY    Reason
  14.     LMurphy 06/01/95    Modified for use with Windows 95 PO7
  15.     LMurphy 01/24/94        Modified for use with On-Line Help
  16.       bsabol    03/21/94    Created
  17. *****************************************************************************/
  18.  
  19. {
  20.     if (doit)
  21.     {
  22.  
  23.     /*****************************
  24.     Set the VRF-INS script ratchet
  25.     ******************************/
  26.  
  27.         ins_ratchet = "7.2.2.3.1";
  28.                             
  29.     execute("%installer_home%\win95.ins");
  30.  
  31.     install(w95hlpdoc72);
  32.         
  33.     permit_retry_operations  = TRUE;
  34.     permit_ignore_operations = TRUE;
  35.     permit_process_operations = TRUE;
  36.  
  37.     /******************
  38.     Install the product
  39.     *******************/
  40.  
  41.     ui_product(product_label);
  42.  
  43.  
  44.  
  45.     /*******************
  46.     Register the product
  47.     ********************/
  48.  
  49.     ui_action(instantiate(registering));
  50.     register(current_product);
  51.  
  52.     ui_action(instantiate(installing_scripts));
  53.     copy(deinst);
  54.  
  55.     /*********************                        
  56.     Install child products
  57.     **********************/
  58.     
  59.     if(member(selected_products, current_product))
  60.     {
  61.         ui_action(instantiate(installing_components));
  62.         
  63.         while(not(empty(child_products)))
  64.         {
  65.             install(first(child_products));
  66.             child_products = rest(child_products);
  67.         }
  68.     }
  69.  
  70.  
  71.     /********************
  72.     Reference the product
  73.     *********************/
  74.  
  75. /* If PO7 is referenced it won't be de-installed when all of
  76.    its children are de-installed (without de-installing itself) */
  77. /*
  78.     if(member(selected_products,current_product))
  79.             reference(current_product);
  80. */
  81.     reference(w95hlpdoc72, current_product);
  82.  
  83.     permit_retry_operations = FALSE;
  84.     }
  85. }
  86.