home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 28.ddi / RSF70.DEI < prev    next >
Encoding:
Text File  |  1993-03-01  |  4.1 KB  |  99 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     rsf70.dei - DOS V3 de-installation script for ORACLE Required Support Files.
  5.  
  6.   DESCRIPTION
  7.     This script removes the DOS ORACLE RSF files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     ekabatch  23-MAR-92 Copied from OS/2.
  15.     trodgers  16-APR-92 Copied from CDROM for V7.
  16. *****************************************************************************/
  17. {
  18.   registry = registration("dosrsf70");
  19.   registry_label = registry_interface_label(registry);
  20.  
  21.   ui_product(registry_label);
  22.  
  23. /*****************************************************************************
  24.    Bind nls deinstallation 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.   unknown_pro15_prompt = nls("unknown_pro15_prompt","It is not possible to remove %%product_label%% because of a problem with the PRO15 variable in your '%%ora_config%%' file.");
  32.   unknown_pro15_content = nls("unknown_pro15_content","Configuration Problem");
  33.   unknown_pro15_help = nls("unknown_pro15_help","In order to remove %%product_label%%, it is necessary to have a correct value for the PRO15 variable in your '%%ora_config%%' file. The PRO15 variable should point to the directory to which the precompilers were installed.");
  34.  
  35.   unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  36.   deinst_sql = nls("deinst_sql","Deinstalling %%registry_label%% SQL Scripts...");
  37.   deinst_msb = nls("deinst_msb","Deinstalling %%registry_label%% Message Files...");
  38.   modify_config = instantiate( nls("modify_config","Modifying %%ora_config%%...") );
  39.   deinst_script = nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...");
  40.  
  41. /*****************************************************************************
  42.    Continue with deinstallation
  43. *****************************************************************************/
  44.  
  45.   doit = FALSE;
  46.  
  47.   if (unreferenced(registry))
  48.     doit = TRUE;
  49.   else if (not(internally_called))
  50.     if (uniquely_self_referenced(registry))
  51.       doit = TRUE;
  52.     else
  53.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  54.  
  55.   if (doit)
  56.   {
  57.     ui_product(registry_label);
  58.  
  59.     { rdbms70 = v7_translate("RDBMS70"); }
  60.       [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  61.           information_dialog(instantiate( unknown_rdbms70_prompt ),
  62.                              nls( unknown_rdbms70_content ),
  63.                              instantiate( unknown_rdbms70_help ) );
  64.       ]
  65.  
  66.     { pro15 = v7_translate("PRO15"); }
  67.       [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  68.           information_dialog(instantiate( unknown_pro15_prompt ),
  69.                              nls( unknown_pro15_content ),
  70.                              instantiate( unknown_pro15_help ) );
  71.       ]
  72.  
  73.     ui_action( instantiate( unregistering ) );
  74.     unregister(registry);
  75.  
  76.     ui_action( instantiate( deinst_sql ) );
  77.     remove(sql);
  78.  
  79.     ui_action( instantiate( deinst_msb ) );
  80.     remove(msg);
  81.  
  82.     /* If UTIL70 is not registered, remove RDBMS70 from config.ora */
  83.     if ( not( registered( "dosutil70" ) ) )
  84.       {
  85.         ui_action( modify_config );
  86.         modify("RDBMS70","","%ora_config%","=");
  87.       }
  88.  
  89.     if ( not( registered( "dosproc15" ) ) && not( registered( "dospro15" ) ) )
  90.       {
  91.         ui_action( modify_config );
  92.         modify("PRO15","","%ora_config%","=");
  93.       }
  94.  
  95.     ui_action( instantiate( deinst_script ) );
  96.     remove(deinstl);
  97.   }
  98. }
  99.