home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / gc25ptch / gui25.ins < prev    next >
Encoding:
Text File  |  1994-12-19  |  3.5 KB  |  125 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     gui25.ins - V3 installation script for GUI Common Files 2.5.
  5.  
  6.   DESCRIPTION
  7.     This script installs GUI Common Files 2.5.
  8.  
  9.   OWNER
  10.     Rajesh Bansal
  11.  
  12.   MODIFIED   MM/DD/YY   Reason
  13.    bsabol    07/01/94   Modified for CDE2 release.
  14.    rbansal   13-MAY-94  Modified
  15.   dgalatin   23-DEC-93  Made 3.0.10.1 compliant.
  16.    akelley   22-OCT-93  Created.
  17. *****************************************************************************/
  18. {
  19.     if (doit)
  20.     {
  21.         /*****************************
  22.         Set the VRF-INS script ratchet
  23.         ******************************/
  24.         ins_ratchet = "2.1.4.1.0";
  25.       
  26.         execute("%installer_home%\windows.ins");
  27.  
  28.         permit_retry_operations  = TRUE;
  29.         permit_ignore_operations = TRUE;
  30.         permit_process_operations= TRUE;
  31.  
  32.         /******************
  33.         Install the product
  34.         *******************/
  35.         ui_product(instantiate(display_product_label));
  36.  
  37.         ui_action( instantiate(install_dei) );
  38.         copy(deinst);
  39.  
  40.         ui_action( instantiate(install_exe) );
  41.         copy(exe);
  42.  
  43.         ui_action( instantiate(install_dll) );
  44.         copy(dll);
  45.  
  46.         ui_action( instantiate(install_res) );
  47.         copy(res);
  48.  
  49.         ui_action( instantiate(install_msb) );
  50.         copy(msg);
  51.  
  52.         if(install_ctl3d)
  53.         {
  54.             ui_action( instantiate(install_dll) );
  55.             copy(ctl3d);
  56.         }
  57.         
  58.       if(install_ctl3dv2)
  59.       {
  60.             ui_action(instantiate(install_dll));
  61.             copy(ctl3dv2);
  62.         }
  63.        
  64.  
  65.         /*************************
  66.         Modify Config Variables...
  67.         **************************/
  68.         if(set_tk21)
  69.         {
  70.             ui_action( instantiate(modify_variables) );
  71.             {modify("TK21",tk21,ora_config,"Oracle");}
  72.         }
  73.  
  74.         if(set_tk21_icon)
  75.         {
  76.             ui_action( instantiate(modify_variables) );
  77.             {modify("TK21_ICON",tk21_icon,ora_config,"Oracle");}
  78.         }
  79.  
  80.         if(set_mm20)
  81.         {
  82.             ui_action( instantiate(modify_variables) );
  83.             modify("MM20",mm20,ora_config,"Oracle");
  84.         }
  85.  
  86.         permit_retry_operations = FALSE;
  87.  
  88.         /*******************
  89.         Install dependencies
  90.         ********************/
  91.         ui_product(instantiate(display_product_label));
  92.         ui_action( instantiate(install_dependencies) );
  93.         install(RSF_PRODUCT);
  94.  
  95.         rsf_registry = registration(product_name(RSF_PRODUCT));
  96.         if(earlier_version(rsf_registry,"7.1.4.0.1"))
  97.             signal('FAILURE,(instantiate(rsf_version_msg)));
  98.  
  99.         permit_retry_operations = TRUE;
  100.  
  101.         /*******************
  102.         Register the product
  103.         ********************/
  104.         ui_product(instantiate(display_product_label));
  105.         ui_action( instantiate(install_register) );
  106.         register(current_product);
  107.         
  108.         if (member(selected_products,current_product))
  109.             reference(current_product);
  110.  
  111.         /*********************
  112.         Reference dependencies
  113.         **********************/
  114.         ui_product(instantiate(display_product_label));
  115.         ui_action(instantiate(reference_dependencies));
  116.         reference(RSF_PRODUCT,current_product);
  117.  
  118.         permit_retry_operations = FALSE;
  119.     }
  120.     [
  121.          'UNREGISTERED_PRODUCT: continue();
  122.          'CANCEL: signal('FAILURE, instantiate(halt_installation));
  123.     ]
  124. }
  125.