home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / RSF72 / RSF72.DEI < prev    next >
Encoding:
Text File  |  1995-10-05  |  7.4 KB  |  191 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     rsf72.dei - Win95 V3 de-installation script for ORACLE Required Support Files.
  5.  
  6.   DESCRIPTION
  7.     This script removes the Windows 95 ORACLE RSF files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.  
  12.   MODIFIED    DD-MMM-YY Reason
  13.  
  14. *****************************************************************************/
  15. {
  16.   
  17.   { doit = execute("%installer_home%\win95.dei"); }
  18.   [
  19.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).")));
  20.   ]
  21.  
  22.   if (doit)
  23.     {
  24.       /**********************************************************************
  25.          Ensure that the necessary environment variables are bound
  26.        **********************************************************************/
  27.  
  28.       {
  29.         rdbms72 = v7_translate("RDBMS72");
  30.         {
  31.           if (not(exists(rdbms72)))
  32.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  33.         }
  34.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  35.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  36.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  37.       }
  38.         [
  39.           'UNBOUND_ENVIRONMENT_VARIABLE:
  40.           {
  41.             variable = "rdbms72";
  42.             information_dialog(instantiate(deinstall_prompt02),
  43.                                instantiate(deinstall_content02),
  44.                                instantiate(deinstall_help02));
  45.             doit = FALSE;
  46.           }
  47.         ]
  48.  
  49.       {
  50.         plsql22 = v7_translate("PLSQL22");
  51.         {
  52.           if (not(exists(plsql22)))
  53.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  54.         }
  55.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  56.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  57.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  58.       }
  59.         [
  60.           'UNBOUND_ENVIRONMENT_VARIABLE:
  61.           {
  62.             variable = "plsql22";
  63.             information_dialog(instantiate(deinstall_prompt02),
  64.                                instantiate(deinstall_content02),
  65.                                instantiate(deinstall_help02));
  66.             doit = FALSE;
  67.           }
  68.         ]
  69.  
  70.  
  71.       {
  72.         pro17 = v7_translate("PRO17");
  73.         {
  74.           if (not(exists(pro17)))
  75.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  76.         }
  77.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  78.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  79.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  80.       }
  81.         [
  82.           'UNBOUND_ENVIRONMENT_VARIABLE:
  83.           {
  84.             variable = "pro17";
  85.             information_dialog(instantiate(deinstall_prompt02),
  86.                                instantiate(deinstall_content02),
  87.                                instantiate(deinstall_help02));
  88.             doit = FALSE;
  89.           }
  90.         ]
  91.  
  92.  
  93.       {
  94.         nlsrtl31 = v7_translate("NLSRTL31");
  95.         {
  96.           if (not(exists(nlsrtl31)))
  97.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  98.         }
  99.           [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  100.             'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  101.             'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  102.       }
  103.         [
  104.           'UNBOUND_ENVIRONMENT_VARIABLE:
  105.           {
  106.             variable = "nlsrtl31";
  107.             information_dialog(instantiate(deinstall_prompt02),
  108.                                instantiate(deinstall_content02),
  109.                                instantiate(deinstall_help02));
  110.             doit = FALSE;
  111.           }
  112.         ]
  113.     }
  114.  
  115.   if (doit)
  116.     {
  117.       /**********************************************************************
  118.          Bind all NLS deinstall strings here...
  119.        **********************************************************************/
  120.  
  121.       unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  122.       deinst_sql = nls("deinst_sql","Deinstalling %%registry_label%% SQL Scripts...");
  123.       deinst_msb = nls("deinst_msb","Deinstalling %%registry_label%% Message Files...");
  124.       deinst_dll = nls("deinst_dll","Deinstalling %%registry_label%% Dynamic Link Libraries...");
  125.       deinst_script = nls("deinst_script","Deinstalling %%registry_label%% Installation Scripts...");
  126.       deinst_nls = nls("deinst_nls","Removing %%registry_label%% NLS Files...");
  127.       rsf72_deinst = nls("rsf72_deinst",
  128.                        "A Required Support Files DLL (%%chkdll%%) is being used. Please stop all Oracle applications and services before deinstalling %%registry_label%%.");
  129.       rsf72_deinst_content = nls("rsf72_deinst_content","%%registry_label%% DLL Used");
  130.       rsf72_deinst_help = nls("rsf72_deinst_help",
  131.                        "The Oracle Installer has detected that a Required Support Files DLL (%%chkdll%%) is being used. Please stop all Oracle applications and services before deinstalling %%registry_label%%.");
  132.       rsf72_deinst_term = nls("rsf72_deinst_term","%%registry_label%% deinstallation terminated.");
  133.  
  134.       /**********************************************************************
  135.          Check whether we should proceed with installation or not
  136.       ***********************************************************************/
  137.  
  138.       chkdll_list = list("ORA72.DLL","ORASPAWN.DLL","KG72.DLL","SQLLIB17.DLL");
  139.       while(not(empty(chkdll_list)))
  140.       {
  141.           chkdll = first(chkdll_list);
  142.           chkdll_list = rest(chkdll_list);
  143.         { move_file("%ORACLE_HOME%\bin\%chkdll%", "%ORACLE_HOME%\bin\%chkdll%"); }
  144.     [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  145.     {
  146.                 information_dialog(instantiate(rsf72_deinst), instantiate(rsf72_deinst_content), instantiate(rsf72_deinst_help));
  147.                 signal('FAILURE, instantiate(rsf72_deinst_term));
  148.     }
  149.       'FILE_NOT_FOUND:
  150.         continue();
  151.     ]
  152.       }
  153.  
  154.  
  155.       /**********************************************************************
  156.          Continue with the deinstallation
  157.        **********************************************************************/
  158.      
  159.       ui_product(registry_label);
  160.  
  161.       /* check to see if all of the oracle services are shutdown */
  162.       
  163.       
  164.       ui_action(instantiate(deinst_sql));
  165.       remove(sql);
  166.  
  167.       ui_action(instantiate(deinst_msb));
  168.       remove(msg,nls_abbreviation);
  169.  
  170.       ui_action(instantiate(deinst_nls));
  171.       remove(nlsfiles);
  172.  
  173.       ui_action(instantiate(deinst_dll));
  174.       remove(dll);
  175.  
  176.       ui_action(instantiate(deinst_script));
  177.       remove(deinstl);
  178.  
  179.       ui_action(instantiate(unregistering));
  180.       unregister(current_registry);
  181.  
  182.       modify("RDBMS72","",ora_config,registry_filename(current_registry));
  183.       modify("PLSQL22","",ora_config,registry_filename(current_registry));
  184.       modify("PRO17","",ora_config,registry_filename(current_registry));
  185.       modify("ORA_NLS","",ora_config,registry_filename(current_registry));
  186.       modify("NLSRTL31","",ora_config,registry_filename(current_registry));
  187.  
  188.       permit_retry_operations = FALSE;
  189.     }
  190. }
  191.