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