home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 48.ddi / UTIL70.DEI < prev    next >
Encoding:
Text File  |  1993-02-26  |  3.6 KB  |  91 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     util70.dei - V3 de-installation script for NetWare ORACLE version 7 utils.
  5.  
  6.   DESCRIPTION
  7.     This script removes the NetWare ORACLE version 7 utils and
  8.     un-registers the product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.   kschrait    02/26/93 - Created
  15. *****************************************************************************/
  16. {
  17.   unknown_rdbms70_prompt  = instantiate( nls("unknown_rdbms70_prompt","It is not possible to remove %%product_label%% because of a problem with the RDBMS70 variable in your '%%ora_config%%' file.") );
  18.   unknown_rdbms70_content = nls("unknown_rdbms70_content","Configuration Problem");
  19.   unknown_rdbms70_help    = instantiate( nls("unknown_rdbms70_help","In order to remove %%product_label%%, it is necessary to have a correct value for the RDBMS70 variable in your '%%ora_config%%' file. The RDBMS70 variable should point to the directory to which Oracle7 was installed.") );
  20.  
  21.   { rdbms70 = translate("RDBMS70","%SERVER%\SYS:SYSTEM\CONFIG.ORA"); }
  22.     [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  23.         information_dialog( unknown_rdbms70_prompt, unknown_rdbms70_content,
  24.                             unknown_rdbms70_help);
  25.     ]
  26.  
  27. /****************************************************************************
  28.   Bind all variables here...
  29.  ****************************************************************************/
  30.  
  31.   registry       = registration("nwutil70");
  32.   registry_label = registry_interface_label(registry);
  33.  
  34.   unregistering  = instantiate( nls("unregistering","Unregistering %%registry_label%%...") );
  35.   deinst_demo    = instantiate( nls("deinst_demo","Deinstalling %%registry_label%% Demonstration files...") );
  36.   deinst_res     = instantiate( nls("deinst_res","Deinstalling %%registry_label%% Resource Files...") );
  37.   deinst_msb     = instantiate( nls("deinst_msb","Deinstalling %%registry_label%% Message Files...") );
  38.   deinst_nlm     = instantiate( nls("deinst_nlm","Deinstalling %%registry_label%% NLMs...") );
  39.   modifying_server_config = instantiate( nls("modifying_server_config",
  40.                                "Modifying %%server%%/%%ora_config%%...") ); 
  41.   deinst_script  = instantiate( nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...") );
  42.  
  43. /****************************************************************************
  44.   Proceed with deinstallation
  45.  ****************************************************************************/
  46.  
  47.   ui_product(registry_label);
  48.  
  49.   doit = FALSE;
  50.  
  51.   if (unreferenced(registry))
  52.     doit = TRUE;
  53.   else if (not(internally_called))
  54.     if (uniquely_self_referenced(registry))
  55.       doit = TRUE;
  56.     else
  57.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  58.  
  59.   if (doit)
  60.   {
  61.     ui_product(registry_label);
  62.  
  63.     ui_action( unregistering );
  64.     unregister(registry);
  65.  
  66.     ui_action( deinst_demo );
  67.     remove(demo);
  68.  
  69.     ui_action( deinst_res );
  70.     remove(res);
  71.  
  72.     ui_action( deinst_msb );
  73.     remove(msg);
  74.  
  75.     ui_action( deinst_nlm );
  76.     remove(nlm);
  77.  
  78.     ui_action( modifying_server_config );
  79.     modify("API","","%server%/%ora_config%","=");
  80.     modify("UTILITY_MSG","","%server%/%ora_config%","=");
  81.     if (not(registered("netwareinstall")) && not(registered("nwrdbms70")))
  82.     {
  83.       modify("RDBMS70","","%server%/%ora_config%","=");
  84.       modify("DBA_AUTHORIZATION","","%server%/%ora_config%","=");
  85.     }
  86.  
  87.     ui_action( deinst_script );
  88.     remove(deinstl);
  89.   }
  90. }
  91.