home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 46.ddi / RSF70.DEI < prev    next >
Encoding:
Text File  |  1993-03-15  |  3.3 KB  |  101 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     winrsf70.dei - V3.0.8.0.2 deinstallation script for Windows Required
  5.                    Support Files
  6.  
  7.   DESCRIPTION
  8.     This script deinstalls Windows Required Support Files 7.0.
  9.  
  10.   OWNER
  11.     Edan Kabatchnik
  12.  
  13.   MODIFIED    DD-MMM-YY  Reason
  14.     ekabatch  07-MAR-92  Normalized.
  15.     ekabatch  28-JAN-92  Created.
  16. *****************************************************************************/
  17. {
  18.   registry = registration("winrsf70");
  19.   registry_label = registry_interface_label(registry);
  20.  
  21.   rdbms70_msg = "The RDBMS70 environment variable is not set.  You must set this variable before deinstalling.";
  22.   rdbms70_hlp = "This variable was set during the installation of this product in the file %ora_config%.  You can set it manually, or reinstall.";
  23.   pro15_msg =  "The PRO15 environment variable is not set.  You must set this variable before deinstalling.";
  24.   pro15_hlp =  "This variable was set during the installation of this product in the file %ora_config%.  You can set it manually, or reinstall.";
  25.   contents = "Environment Error";
  26.  
  27.   ui_product(registry_label);
  28.  
  29.   doit = FALSE;
  30.  
  31.   if (unreferenced(registry))
  32.     doit = TRUE;
  33.   else if (not(internally_called))
  34.     if (uniquely_self_referenced(registry))
  35.       doit = TRUE;
  36.     else
  37.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  38.  
  39.   {
  40.     rdbms70 = v7_translate("rdbms70");
  41.  
  42.       {
  43.         if (not(exists(rdbms70)))
  44.           signal('UNBOUND_ENVIRONMENT_VARIABLE);
  45.       }
  46.         [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  47.           'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  48.           'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  49.   }
  50.     [
  51.       'UNBOUND_ENVIRONMENT_VARIABLE:
  52.         {
  53.           information_dialog(rdbms70_msg,contents,rdbms70_hlp);
  54.           doit = FALSE;
  55.         }
  56.     ]
  57.  
  58.   {
  59.     pro15 = v7_translate("pro15");
  60.  
  61.       {
  62.         if (not(exists(pro15)))
  63.           signal('UNBOUND_ENVIRONMENT_VARIABLE);
  64.       }
  65.         [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  66.           'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  67.           'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  68.   }
  69.     [
  70.       'UNBOUND_ENVIRONMENT_VARIABLE:
  71.         {
  72.           information_dialog(pro15_msg,contents,pro15_hlp);
  73.           doit = FALSE;
  74.         }
  75.     ]
  76.  
  77.   if (doit)
  78.     {
  79.       ui_action( nls("unregistering","Unregistering %registry_label%...") );
  80.       unregister(registry);
  81.  
  82.       ui_action( nls("remove_sql","Removing %registry_label% SQL Scripts...") );
  83.       remove(sql);
  84.  
  85.       ui_action( nls("remove_msb","Removing %registry_label% Message Files...") );
  86.       remove(msg);
  87.  
  88.       ui_action( nls("remove_executables","Removing %registry_label% Executables...") );
  89.       remove(exe);
  90.  
  91.       ui_action( nls("remove_dll","Removing %registry_label% Dynamic Link Libraries...") );
  92.       remove(dll);
  93.  
  94.       ui_action( nls("remove_script","Removing %registry_label% Installation Scripts...") );
  95.       remove(deinstl);
  96.  
  97.       modify("RDBMS70","",ora_config, "Oracle");
  98.       modify("PRO15","",ora_config, "Oracle");
  99.     }
  100. }
  101.