home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 53.ddi / RDBMS70.DEI < prev    next >
Encoding:
Text File  |  1993-02-26  |  5.7 KB  |  135 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     rdbms70.dei - V3 de-installation script for NetWare ORACLE version 7 rdbms.
  5.  
  6.   DESCRIPTION
  7.     This script removes the NetWare ORACLE version 7 rdbms files and
  8.     un-registers the product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     vokamura  19-NOV-92 update
  15.     vokamura  24-JUL-92 Modified for NetWare installation
  16.     trodgers  01-APR-92 Created.
  17. *****************************************************************************/
  18. {
  19.   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.") );
  20.   unknown_rdbms70_content = nls("unknown_rdbms70_content","Configuration Problem");
  21.   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.") );
  22.  
  23.   { rdbms70 = translate("RDBMS70","%SERVER%\SYS:SYSTEM\CONFIG.ORA"); }
  24.     [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  25.         information_dialog( unknown_rdbms70_prompt, unknown_rdbms70_content,
  26.                             unknown_rdbms70_help);
  27.     ]
  28.  
  29.   unknown_plsql20_prompt  = instantiate( 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.") );
  30.   unknown_plsql20_content = nls("unknown_plsql20_content","Configuration Problem");
  31.   unknown_plsql20_help    = instantiate( 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 Oracle7 was installed.") );
  32.  
  33.   { plsql20 = translate("PLSQL20","%SERVER%\SYS:SYSTEM\CONFIG.ORA"); }
  34.     [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  35.         information_dialog( unknown_plsql20_prompt, unknown_plsql20_content,
  36.                             unknown_plsql20_help);
  37.     ]
  38.  
  39. /****************************************************************************
  40.   Bind all variables here...
  41.  ****************************************************************************/
  42.  
  43.   remove_prompt  = instantiate( nls("remove_prompt","Do you wish to remove the database in %%RDBMS70%%?") );
  44.   remove_content = nls("remove_content","Remove Database");
  45.   remove_help    = instantiate( nls("remove_help","If you would like to remove the database in datafile %%RDBMS70%%\dbs1.ora, choose 'YES'. If you would like to retain this database, choose 'NO' and the datafiles will not be removed.")); 
  46.  
  47.   registry       = registration("nwrdbms70");
  48.   registry_label = registry_interface_label(registry);
  49.  
  50.   unregistering  = instantiate( nls("unregistering","Unregistering %%registry_label%%...") );
  51.   rem_database   = nls("rem_database","Removing Database...");
  52.   deinst_doc     = instantiate( nls("deinst_doc","Deinstalling %%registry_label%% Documentation files...") );
  53.   deinst_demo    = instantiate( nls("deinst_demo","Deinstalling %%registry_label%% Demonstration files...") );
  54.   deinst_plsql   = nls("deinst_plsql","Deinstalling PL/SQL Files...");
  55.   deinst_sql     = instantiate( nls("deinst_sql","Deinstalling %%registry_label%% SQL Scripts...") );
  56.   deinst_ncf     = instantiate( nls("deinst_ncf","Deinstalling %%registry_label%% NCF files...") );
  57.   deinst_msb     = instantiate( nls("deinst_msb","Deinstalling %%registry_label%% Message Files...") );
  58.   deinst_patch   = nls("deinst_patch","Deinstalling Novell patches...");
  59.   deinst_nlm     = instantiate( nls("deinst_nlm","Deinstalling %%registry_label%% NLMs...") );
  60.   modifying_server_config = instantiate( nls("modifying_server_config",
  61.                                "Modifying %%server%%/%%ora_config%%...") ); 
  62.   deinst_script  = instantiate( nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...") );
  63.  
  64. /****************************************************************************
  65.   Proceed with deinstallation
  66.  ****************************************************************************/
  67.  
  68.   ui_product(registry_label);
  69.  
  70.   doit = FALSE;
  71.  
  72.   if (unreferenced(registry))
  73.     doit = TRUE;
  74.   else if (not(internally_called))
  75.     if (uniquely_self_referenced(registry))
  76.       doit = TRUE;
  77.     else
  78.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  79.  
  80.   if (doit)
  81.   {
  82.     if (exists("%server%\%rdbms70%\dbs1.ora"))
  83.       remove_database = yesno_dialog(remove_prompt,remove_content,remove_help);
  84.     else
  85.       remove_database = FALSE;
  86.  
  87.     if (remove_database)
  88.     {
  89.       ui_action( rem_database );
  90.       remove(seed);
  91.       remove(init);
  92.     }
  93.  
  94.     ui_product(registry_label);
  95.  
  96.     ui_action( unregistering );
  97.     unregister(registry);
  98.  
  99.     ui_action( deinst_doc );
  100.     remove(doc);
  101.  
  102.     ui_action( deinst_demo );
  103.     remove(demo);
  104.  
  105.     ui_action( deinst_plsql );
  106.     remove(plsql);
  107.  
  108.     ui_action( deinst_sql );
  109.     remove(sql);
  110.  
  111.     ui_action( deinst_ncf );
  112.     remove(ncf);
  113.  
  114.     ui_action( deinst_msb );
  115.     remove(msg);
  116.  
  117.     ui_action( deinst_patch );
  118.     remove(novpat);
  119.  
  120.     ui_action( deinst_nlm );
  121.     remove(nlm);
  122.  
  123.     ui_action( modifying_server_config );
  124.     modify("PLSQL20","","%server%/%ora_config%","=");
  125.     if (not(registered("netwareinstall")) && not(registered("nwutil70")))
  126.     {
  127.       modify("RDBMS70","","%server%/%ora_config%","=");
  128.       modify("DBA_AUTHORIZATION","","%server%/%ora_config%","=");
  129.     }
  130.  
  131.     ui_action( deinst_script );
  132.     remove(deinstl);
  133.   }
  134. }
  135.