home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / rsf70 / rsf70.dei < prev    next >
Text File  |  1994-04-20  |  7KB  |  154 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     rsf70.dei - V3 deinstallation script for Windows Required
  5.                 Support Files
  6.  
  7.   DESCRIPTION
  8.     This script deinstalls Windows Required Support Files 7.0.
  9.  
  10.   MODIFIED    DD-MMM-YY  Reason
  11.     Colello   20-APR-94  Make 3.0.10.1 compliant
  12.     Colello   26-OCT-93  Remove all of 'msg', not just the current language
  13.     akelley   21-OCT-93  Toolkit, Help, Multimedia removed
  14.     akelley   31-AUG-93  NLS added
  15.     gcostanz  15-JUL-93  Changed 'Deinstalling' text to 'Removing'
  16.     akelley   28-MAY-93  Modified to match OS/2 scripts
  17.     akelley   27-APR-93  OH105 added
  18.     akelley   27-APR-93  MM105 added
  19.     ekabatch  07-MAR-92  Normalized.
  20.     ekabatch  28-JAN-92  Created.
  21. *****************************************************************************/
  22. {
  23.   { doit = execute("%installer_home%\windows.dei"); }
  24.   [
  25.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).")));
  26.   ]
  27.  
  28.   if (doit)
  29.     {
  30.       /**********************************************************************
  31.          Ensure that the necessary environment variables are bound
  32.        **********************************************************************/
  33.  
  34.       {
  35.         rdbms70 = v7_translate("rdbms70");
  36.         {
  37.           if (not(exists(rdbms70)))
  38.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  39.         }
  40.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  41.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  42.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  43.       }
  44.         [
  45.           'UNBOUND_ENVIRONMENT_VARIABLE:
  46.           {
  47.             variable = "RDBMS70";
  48.             information_dialog(instantiate(deinstall_prompt02),
  49.                                instantiate(deinstall_content02),
  50.                                instantiate(deinstall_help02));
  51.             doit = FALSE;
  52.           }
  53.         ]
  54.  
  55.       {
  56.         pro15 = v7_translate("pro15");
  57.         {
  58.           if (not(exists(pro15)))
  59.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  60.         }
  61.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  62.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  63.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  64.       }
  65.         [
  66.           'UNBOUND_ENVIRONMENT_VARIABLE:
  67.           {
  68.             variable = "PRO15";
  69.             information_dialog(instantiate(deinstall_prompt02),
  70.                                instantiate(deinstall_content02),
  71.                                instantiate(deinstall_help02));
  72.             doit = FALSE;
  73.           }
  74.         ]
  75.  
  76.       {
  77.         pro14 = v7_translate("pro14");
  78.         {
  79.           if (not(exists(pro14)))
  80.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  81.         }
  82.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  83.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  84.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  85.       }
  86.         [
  87.           'UNBOUND_ENVIRONMENT_VARIABLE:
  88.           {
  89.             variable = "PRO14";
  90.             information_dialog(instantiate(deinstall_prompt02),
  91.                                instantiate(deinstall_content02),
  92.                                instantiate(deinstall_help02));
  93.             doit = FALSE;
  94.           }
  95.         ]
  96.     }
  97.  
  98.   if (doit)
  99.     {
  100.       /**********************************************************************
  101.          Bind all NLS deinstall strings here...
  102.        **********************************************************************/
  103.  
  104.       unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  105.       deinst_sql = nls("deinst_sql","Removing %%registry_label%% SQL Scripts...");
  106.       deinst_msb = nls("deinst_msb","Removing %%registry_label%% Message Files...");
  107.       deinst_exe = nls("deinst_exe","Removing %%registry_label%% Executables...");
  108.       deinst_dll = nls("deinst_dll","Removing %%registry_label%% Dynamic Link Libraries...");
  109.       modify_config = nls("modify_config","Modifying %%product_label%% Environment Variables...");
  110.       deinst_script = nls("deinst_script","Removing %%registry_label%% Installation Scripts...");
  111.  
  112.       remove_rsf_prompt = nls("remove_rsf_prompt","WARNING: Some Oracle products and some third party products may depend upon the Required Support Files product. Removing it may cause these other products to work improperly. Are you sure you want to remove it?");
  113.       remove_rsf_content = nls("remove_rsf_content","Remove Required Support Files");
  114.       remove_rsf_help = nls("remove_rsf_help","Some Oracle products and some third party products may depend upon the Required Support Files product. Removing it may cause these other products to work improperly. If you would like to remove the Required Support Files product from %%ORACLE_HOME%%\BIN, choose 'YES'. If you would like to retain this product, choose 'NO' and it will not be removed.");
  115.  
  116.       /**********************************************************************
  117.          Continue with the deinstallation
  118.        **********************************************************************/
  119.  
  120.       remove_rsf = yesno_dialog(remove_rsf_prompt,remove_rsf_content,
  121.                                 instantiate(remove_rsf_help));
  122.  
  123.       if (remove_rsf)
  124.         {
  125.           permit_retry_operations = TRUE;
  126.  
  127.           ui_action(instantiate(unregistering));
  128.           unregister(current_registry);
  129.  
  130.           ui_action(instantiate(deinst_sql));
  131.           remove(sql);
  132.  
  133.           ui_action(instantiate(deinst_msb));
  134.           remove(msg);
  135.  
  136.           ui_action(instantiate(deinst_exe));
  137.           remove(exe);
  138.  
  139.           ui_action(instantiate(deinst_dll));
  140.           remove(dll);
  141.           remove(deinstdll);
  142.  
  143.           ui_action( instantiate(deinst_script));
  144.           remove(deinstl);
  145.  
  146.           modify("RDBMS70","",ora_config, "Oracle");
  147.           modify("PRO15","",ora_config, "Oracle");
  148.           modify("PRO14","",ora_config, "Oracle");
  149.  
  150.           permit_retry_operations = FALSE;
  151.         }
  152.     }
  153. }
  154.