home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / tools / plus31 / plus31.dei < prev    next >
Encoding:
Text File  |  1995-01-12  |  3.1 KB  |  96 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     plus31.dei - V3.0.10.3.1 installation script for Sql*Plus for Windows 3.1
  5.  
  6.   DESCRIPTION
  7.     This script deinstalls Sql*Plus for Windows 3.1
  8.  
  9.   OWNER
  10.     Edan Kabatchnik
  11.  
  12.   MODIFIED    DD-MMM-YY  Reason
  13.     LMurphy   08-SEP-94  Modified for Windows SQL*Plus 3.1.3.5.x
  14.     LMurphy   23-MAY-94  Modified for Windows SQL*Plus 3.1.2.2.6
  15.     shall     04-FEB-93  Created from Browser 10 deinstall script.
  16. *****************************************************************************/
  17. {
  18.   { doit = execute("%installer_home%\windows.dei"); }
  19.   [
  20.     'UNBOUND_VARIABLE:
  21.         {
  22.       signal('failure, instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%.  The product you have chosen to deinstall was installed with a later version of the Installer.  Please use a later version of the Installer to deinstall this product.")));
  23.     }
  24.   ]
  25.   
  26.   if (doit)
  27.   { 
  28.       {
  29.          plus31 = v7_translate("PLUS31");
  30.       }
  31.          [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'OS_ERROR:
  32.        {
  33.          variable = "PLUS31";
  34.          doit = FALSE;
  35.          information_dialog(deinstall_prompt02,
  36.                      deinstall_content02
  37.                 deinstall_help02);
  38.        }
  39.      ]
  40.  
  41.       {
  42.         mshelp = v7_translate("mshelp");
  43.       }
  44.       [
  45.         'OS_ERROR,'INVALID_FILE_NAME,
  46.         'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
  47.         {
  48.           variable = "MSHELP";
  49.           information_dialog(instantiate(deinstall_prompt02),
  50.                              instantiate(deinstall_content02),
  51.                              instantiate(deinstall_help02));
  52.           doit = FALSE;
  53.         }
  54.       ]
  55.  
  56.   }
  57.   if (doit)
  58.   {
  59.  
  60.   ui_product(registry_label);
  61.  
  62.   permit_retry_operations = TRUE;
  63.  
  64. /* Deinstall from Personal Oracle group if necessary */
  65.  
  66.   ui_action(instantiate(nls("unregistering_product","Unregistering %%registry_label%%...")));
  67.  
  68.   ui_action(instantiate(nls("deinst_sql","Removing %%registry_label%% SQL Scripts...")));
  69.       remove(sql);
  70.   ui_action(instantiate(nls("deinst_help","Removing %%registry_label%% Help Files...")));
  71.       remove(help);
  72.       remove(doc);
  73.   ui_action(instantiate(nls("deinst_msbs","Removing %%registry_label%% Message Files...")));
  74.       remove(msg);
  75.   ui_action(instantiate(nls("deinst_exec","Removing %%registry_label%% Executables...")));
  76.       remove(exe);
  77.   ui_action(instantiate(nls("deinst_script","Removing %%registry_label%% Installation Scripts...")));
  78.       remove(deinstl);
  79.  
  80.   ui_action(instantiate(nls("env_var", "Modifying %%registry_label%% Environment Variables...")));
  81.       modify("SQLPATH", "", ora_config, "Oracle");
  82.       modify("PLUS31", "", ora_config, "Oracle");
  83.       modify("EXECUTE_SQL", "", ora_config, "Oracle");
  84.  
  85.       if (registered("winrsf71"))
  86.       {
  87.         dependent = registration("winrsf71");
  88.     unreference(dependent, current_registry);
  89.     deinstall(dependent);
  90.       }
  91.       unregister(current_registry);  
  92.  
  93.       permit_retry_operations = FALSE;
  94.    }
  95. }
  96.