home *** CD-ROM | disk | FTP | other *** search
/ Oracle Video Server 3.0.3.1 / OVS_3031_NT.iso / win32 / sqlnet / net23 / client / netc23.dei < prev    next >
Encoding:
Text File  |  1997-10-23  |  8.7 KB  |  230 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1996.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     netc23.dei
  5.  
  6.   DESCRIPTION
  7.     This script removes the Windows 32 SQL*Net files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Etna Flores
  12.  
  13.   MODIFIED    DD-MMM-YY  Reason
  14.     mhclau    22-SEP-97  Remove NLS resources.
  15.    dstiefel   22-FEB-96  Merge NT/95 for 2.3.2
  16.    ljiang     9/95       Modified for Easy Configuration
  17.    dlau       07-AUG-95  Modified for SQLNET 2.2
  18. *****************************************************************************/
  19. {
  20.   {
  21.   /* OS variables */
  22.    if (platform() == "nt")
  23.          prefix = "nt";
  24.    else
  25.          prefix = "w95";
  26.  
  27.   /* Check Product Dependencies */
  28.   doit = execute("%installer_home%\%operating_system%.dei");
  29.   } [
  30.     '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).")));
  31.    ]
  32.  
  33.  if (doit)
  34.    {
  35.     net2_deinstall_registry = nls("net2_deinstall_registry","Unregistering %%registry_label%%...");
  36.     net2_deinstall_message = nls("net2_deinstall_message","Deinstalling %%registry_label%% Message Files...");
  37.     net2_deinstall_tns = nls("net2_deinstall_tns","Deinstalling %%registry_label%% Executables...");
  38.     net2_deinstall_script = nls("net2_deinstall_script","Deinstalling %%registry_label%% Installation Scripts...");
  39.     net2_deinstall_sample = nls("net2_deinstall_sample","Deinstalling %%registry_label%% Sample Files...");
  40.     net2_deinstall_easycfg = nls("net2_deinstall_easycfg","Deinstalling SQL*Net Easy Configuration Files...");
  41.     net2_deinstall_help = nls("net2_deinstall_help","Deinstalling SQL*Net Help Files...");
  42.  
  43.     app_prompt = instantiate( nls("app_prompt","Stop all Oracle applications that are using %%registry_label%% before continuing with this deinstallation."));
  44.     app_content = nls("app_content","Stop Applications");
  45.     app_help = instantiate( nls("app_help","%%registry_label%% is being used. Stop all Oracle applications that are using %%registry_label%% before continuing with deinstallation."));
  46. /*
  47.     chkdeinst_prompt = nls("chkdeinst_prompt", "You may have Oracle Names Server and/or SQL*Net Server installed. Removing %%registry_label%% Client software will disable those products. If you continue to deinstall %%registry_label%%, you should also deinstall Oracle Names Server and SQL*Net Server.");
  48. */
  49.  
  50.         chkdeinst_prompt = nls("chkdeinst_prompt", "You may have SQL*Net Server installed. Removing %%registry_label%% Client software will disable those products. If you continue to deinstall %%registry_label%%, you should also deinstall SQL*Net Server.");
  51.  
  52.   ezcfg = nls("ezcfg","SQL*Net Easy Configuration");
  53.  
  54.   deinstall_easycfg_prompt = nls("deinstall_easycfg_prompt","%registry_label% will now be deinstalled.
  55.  
  56. Do you also wish to deinstall %ezcfg% and SQL*Net configuration files?
  57. ");
  58.   deinstall_easycfg_label = nls("deinstall_easycfg_label","Deinstall %ezcfg%?");
  59.   deinstall_easycfg_help = nls("deinstall_easycfg_help","The Oracle Installer detects %ezcfg% and SQL*Net configuration files on this machine. Your SQL*Net configuration files will be removed if you deinstall %ezcfg%. Do you still wish to deinstall %ezcfg%?
  60.  
  61. YES deinstalls %registry_label%, %ezcfg%, and SQL*Net configuration files.
  62.  
  63. NO deinstalls %registry_label% but keeps %ezcfg% and SQL*Net configuration files.
  64.  
  65. CANCEL terminates the deinstallation of %registry_label%.");
  66.  
  67.     ui_product(registry_label);
  68.  
  69.     complain = FALSE;
  70.     if (platform() == "nt")
  71.     {
  72. /*
  73.       if (registered("ntnames20"))
  74.         if (not(member(registration("selected_registries"),registration("ntnames20"))))
  75.               information_dialog(instantiate(chkdeinst_prompt));
  76. */
  77.       if (registered("%prefix%netsrv23"))
  78.           complain = TRUE;
  79.     } /* NT */
  80.     else  /* 95 */
  81.     {
  82.       complain = FALSE;  /* Win 95 client doesn't have the other products */
  83.     }
  84.  
  85.     /* remove client only stuff */
  86.  
  87.     ui_action(instantiate(net2_deinstall_easycfg));
  88.     remove(cfg23);
  89.     remove(cfgico);
  90.  
  91.     permit_retry_operations = FALSE;
  92.  
  93. /*
  94.     if (exists("%oracle_home%\network\cfg\sqlnetv2.cfg"))
  95.     {
  96.       remove_file("%oracle_home%\network\admin\tnsnames.ora");
  97.     }
  98.     ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  99. */
  100.     {
  101.     remove_file("%oracle_home%\network\admin\tnsnames.old");
  102.     }
  103.     ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  104. /*
  105.     {
  106.     remove_file("%oracle_home%\network\cfg\sqlnetv2.cfg");
  107.     }
  108.     ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  109. */
  110.     {
  111.     remove_file("%oracle_home%\network\cfg\sqlnetv2.old");
  112.     }
  113.     ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  114. /*
  115.     {
  116.     remove_file("%oracle_home%\network\admin\sqlnetv2.ora");
  117.     }
  118.     ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  119. */
  120.  
  121.  
  122.       ui_action(instantiate(net2_deinstall_tns));
  123.       {
  124.        remove(tns);
  125.       }
  126.        [
  127.         'PERMISSION_DENIED:
  128.           {
  129.            information_dialog(app_prompt, app_content, app_help);
  130.            signal('FAILURE, instantiate( "Deinstallation terminated.  Please stop all Oracle applications that are using %%registry_label%%."));
  131.           }
  132.        ]
  133.  
  134.       {
  135.        remove(bequeth, prefix);
  136.       }
  137.        [
  138.         'PERMISSION_DENIED:
  139.           {
  140.            information_dialog(app_prompt, app_content, app_help);
  141.            signal('FAILURE, instantiate( "Deinstallation terminated.  Please stop all Oracle applications that are using %%registry_label%%."));
  142.           }
  143.        ]
  144.  
  145.       permit_retry_operations = TRUE;
  146.  
  147.       ui_action(instantiate(net2_deinstall_message));
  148.       remove(msb);
  149.  
  150.       ui_action(instantiate(net2_deinstall_sample));
  151.       remove(sample);
  152.  
  153.       if (exists("%oracle_home%\network\admin\sqlnet.ora"))
  154.       {
  155.         remove_file("%oracle_home%\network\admin\sqlnet.ora");
  156.       }
  157.       ['INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue();]
  158.  
  159.  
  160.     /* Deinstall Dependent Products */
  161.     if (registered("w32netclt23"))
  162.     {
  163.       if (registered("w32rsf73"))
  164.       {
  165.          dependent = registration("w32rsf73");
  166.          unreference(dependent, current_registry);
  167.          deinstall(dependent);
  168.       }
  169.  
  170.       if(registered("w32tracesvr"))
  171.       {
  172.          dependent = registration("w32tracesvr");
  173.          unreference(dependent, current_registry);
  174.          deinstall(dependent);
  175.       }
  176.     }
  177.  
  178.     /* Deinstall protocol adapters if net server is not registered.  */
  179.     if (not(registered("ntnetsrv23"))) {
  180.       if (registered("w32tcp23")) {
  181.         prodtoremove = registration("w32tcp23");
  182.         unreference(prodtoremove, current_registry);
  183.         deinstall(prodtoremove);
  184.       }
  185.       if (registered("w32nmp23")) {
  186.         prodtoremove = registration("w32nmp23");
  187.         unreference(prodtoremove, current_registry);
  188.         deinstall(prodtoremove);
  189.       }
  190.       if (registered("w32spx23")) {
  191.         prodtoremove = registration("w32spx23");
  192.         unreference(prodtoremove, current_registry);
  193.         deinstall(prodtoremove);
  194.       }
  195.       if (platform() == "nt") {
  196.         if (registered("w32dnt23")) {
  197.           prodtoremove = registration("w32dnt23");
  198.           unreference(prodtoremove, current_registry);
  199.           deinstall(prodtoremove);
  200.         }
  201.         if (registered("w32appc23")) {
  202.           prodtoremove = registration("w32appc23");
  203.           unreference(prodtoremove, current_registry);
  204.           deinstall(prodtoremove);
  205.         }
  206.       }
  207.     }
  208.  
  209.  
  210.     permit_retry_operations = TRUE;
  211.  
  212.     ui_action(instantiate(net2_deinstall_script));
  213.     remove(deinstl, nls_abbreviation);
  214.  
  215.     /* unregister the client after everything else has been deinstalled */
  216.     /* Note:  In the past this step was occuring before deinstallation of the adapters because
  217.        the adapters were deinstalling the client, and having this code after the adapters
  218.        caused an infinite loop.  However, the adapters no longer deinstall the client (since they
  219.        no longer force install the client), and the client now references the adapters so that the
  220.        correct behaviour is observed during OCSM installs.  Thus, unregistering of the client
  221.        must now be the last step. */
  222.     ui_action(instantiate(net2_deinstall_registry));
  223.     unregister(current_registry);
  224.  
  225.  
  226.     permit_retry_operations = FALSE;
  227.  
  228.   }
  229. }
  230.