home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 31.ddi / UTIL70.DEI < prev    next >
Encoding:
Text File  |  1993-02-25  |  4.2 KB  |  115 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     util70.dei - DOS V3 de-installation script for database utilities.
  5.  
  6.   DESCRIPTION
  7.     This script removes the DOS database utilities files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     trodgers  23-MAR-92 Created.
  15.     trodgers  16-APR-92 Copied from CDROM for V7.
  16. *****************************************************************************/
  17. {
  18.   registry = registration("dosutil70");
  19.   registry_label = registry_interface_label(registry);
  20.  
  21.   ui_product(registry_label);
  22.  
  23. /*****************************************************************************
  24.    Bind all nls strings here...
  25. *****************************************************************************/
  26.  
  27.   unknown_rdbms70_prompt = 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.");
  28.   unknown_rdbms70_content = nls("unknown_rdbms70_content","Configuration Problem");
  29.   unknown_rdbms70_help = 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.");
  30.  
  31.   unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  32.   deinst_stubs = nls("deinst_stubs","Deinstalling %%registry_label%% Multiversion Stubs...");
  33.   modifying_config = nls("modifying_config","Modifying %%ora_config%%...");
  34.   deinst_demo = nls("deinst_demo","Deinstalling %%registry_label%% Demonstration files...");
  35.   deinst_sql = nls("deinst_sql","Deinstalling %%registry_label%% SQL Scripts...");
  36.   deinst_init = nls("deinst_init","Deinstalling INIT.ORA...");
  37.   deinst_res = nls("deinst_res","Deinstalling %%registry_label%% Resource Files...");
  38.   deinst_msb = nls("deinst_msb","Deinstalling %%registry_label%% Message Files...");
  39.   deinst_pxe = nls("deinst_pxe","Deinstalling %%registry_label%% Protected Mode Executables...");
  40.   modify_config = instantiate( nls("modify_config","Modifying %%ora_config%%...") );
  41.   deinst_script = nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...");
  42.  
  43. /*****************************************************************************
  44.    Continue with deinstall operations
  45. *****************************************************************************/
  46.  
  47.   doit = FALSE;
  48.  
  49.   if (unreferenced(registry))
  50.     doit = TRUE;
  51.   else if (not(internally_called))
  52.     if (uniquely_self_referenced(registry))
  53.       doit = TRUE;
  54.     else
  55.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  56.  
  57.   if (doit)
  58.   {
  59.     if (registered("dosrsf70"))
  60.     {
  61.       dependent = registration("dosrsf70");
  62.  
  63.       unreference(dependent,registry);
  64.       deinstall(dependent);
  65.     }
  66.  
  67.     ui_product(registry_label);
  68.  
  69.     { rdbms70 = v7_translate("RDBMS70"); }
  70.       [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  71.           information_dialog(instantiate( unknown_rdbms70_prompt ),
  72.                              unknown_rdbms70_content,
  73.                              instantiate( unknown_rdbms70_help ) );
  74.       ]
  75.  
  76.     { plsql20 = v7_translate("PLSQL20"); }
  77.       [ 'UNBOUND_ENVIRONMENT_VARIABLE: plsql20 = "%oracle_home%\PLSQL20"; ]
  78.  
  79.     ui_action( instantiate( unregistering ) );
  80.     unregister(registry);
  81.  
  82.     ui_action( instantiate( deinst_stubs ) );
  83.     dos_unstubify("RDBMS",pxe);
  84.  
  85.     ui_action( instantiate( modify_config ) );
  86.     modify("RDBMS_DFLT"," ",ora_config);
  87.  
  88.     if (not(registered("dosrsf70")))
  89.       modify("RDBMS70","","%ora_config%","=");
  90.  
  91.     ui_action( instantiate( deinst_demo ) );
  92.     remove(demo);
  93.  
  94.     ui_action( instantiate( deinst_sql ) );
  95.     remove(sql);
  96.  
  97.     ui_action( deinst_init );
  98.     remove(init);
  99.  
  100.     ui_action( instantiate( deinst_res ) );
  101.     remove(res);
  102.  
  103.     ui_action( instantiate( deinst_msb ) );
  104.     remove(msg);
  105.     if ( not( registered( "dosinstall" ) ) )
  106.       remove(uiusmsg);
  107.  
  108.     ui_action( instantiate( deinst_pxe ) );
  109.     remove(pxe);
  110.  
  111.     ui_action( instantiate( deinst_script ) );
  112.     remove(deinstl);
  113.   }
  114. }
  115.