home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 50.ddi / SPX11.DEI < prev    next >
Encoding:
Text File  |  1993-02-25  |  2.2 KB  |  63 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     spx11.dei - NetWare V3 de-installation script for SQL*Net SPX.
  5.  
  6.   DESCRIPTION
  7.     This script removes the NetWare SQL*Net SPX files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Tim Kelley
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     Okamura   19-NOV-92 update
  15.     trodgers  31-JAN-92 Created.
  16.     trodgers  27-FEB-92 Split client/server.
  17.     tkelley   06-MAR-92 Copied from OS/2 spxs.dei
  18.     vokamura  24-JUL-92 Modified for NetWare installation
  19. *****************************************************************************/
  20. {
  21. /*****************************************************************************
  22.    Set up strings for NLS ...
  23. *****************************************************************************/
  24.   net1_deregister = nls("net1 deregister","Unregistering %%registry_label%%...");
  25.   net1_deinstall_nlms = nls("net1 deinstall nlms","Deinstalling %%registry_label%% NLMs...");
  26.   net1_deinstall_scripts = nls("net1 deinstall scripts","Deinstalling %%registry_label%% Installation Scripts...");
  27.  
  28. /*****************************************************************************
  29.    Bind string constants ...
  30. *****************************************************************************/
  31.   registry = registration("nwspx11");
  32.   registry_label = registry_interface_label(registry);
  33.  
  34.   ui_product(registry_label);
  35.  
  36. /*****************************************************************************
  37.    Un-register the product ...
  38. *****************************************************************************/
  39.   doit = FALSE;
  40.  
  41.   if (unreferenced(registry))
  42.     doit = TRUE;
  43.   else if (not(internally_called))
  44.     if (uniquely_self_referenced(registry))
  45.       doit = TRUE;
  46.     else
  47.       doit = yesno_dialog(instantiate(deinstall_prompt01));
  48.  
  49.   if (doit)
  50.   {
  51.     ui_product(registry_label);
  52.  
  53.     ui_action(instantiate(net1_deregister));
  54.     unregister(registry);
  55.  
  56.     ui_action(instantiate(net1_deinstall_nlms));
  57.     remove(nlm);
  58.  
  59.     ui_action(instantiate(net1_deinstall_scripts));
  60.     remove(deinstl);
  61.   }
  62. }
  63.