home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 44.ddi / SPXC11.DEI < prev    next >
Encoding:
Text File  |  1993-03-17  |  2.2 KB  |  64 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     spxs11.dei - OS/2 V3 de-installation script for SQL*Net SPX.
  5.  
  6.   DESCRIPTION
  7.     This script removes the OS/2 SQL*Net SPX files and un-registers the
  8.     product (client version).
  9.  
  10.   VERSION
  11.     1.1.1.6
  12.  
  13.   OWNER
  14.     Tony Rodgers
  15.  
  16.   MODIFIED    DD-MMM-YY Reason
  17.     trodgers  10-APR-92 Created.
  18.     Calvin    21-FEB-92 Modify for standalone install.
  19. *****************************************************************************/
  20. {
  21. /*****************************************************************************
  22.    Set up strings for NLS ...
  23. *****************************************************************************/
  24.   net1_deinstall_prompt01 = nls("net1 deinstall prompt01","WARNING: Other products are dependent on %%registry_label%%. Are you sure you want to deinstall it?");
  25.   net1_deregister = nls("net1 deregister","Unregistering %%registry_label%%...");
  26.   net1_deinstall_dlls = nls("net1 deinstall dlls","Deinstalling %%registry_label%% DLLs...");
  27.   net1_deinstall_scripts = nls("net1 deinstall scripts","Deinstalling %%registry_label%% Installation Scripts...");
  28.  
  29. /*****************************************************************************
  30.    Bind string constants ...
  31. *****************************************************************************/
  32.   registry = registration("os2spxc11");
  33.   registry_label = registry_interface_label(registry);
  34.  
  35. /*****************************************************************************
  36.    Start main logic ...
  37. *****************************************************************************/
  38.   ui_product(registry_label);
  39.  
  40.   doit = FALSE;
  41.  
  42.   if (unreferenced(registry))
  43.     doit = TRUE;
  44.   else if (not(internally_called))
  45.     if (uniquely_self_referenced(registry))
  46.       doit = TRUE;
  47.     else
  48.       doit = yesno_dialog(instantiate(net1_deinstall_prompt01));
  49.  
  50.   if (doit)
  51.   {
  52.     ui_product(registry_label);
  53.  
  54.     ui_action(instantiate(net1_deregister));
  55.     unregister(registry);
  56.  
  57.     ui_action(instantiate(net1_deinstall_dlls));
  58.     remove(dll);
  59.  
  60.     ui_action(instantiate(net1_deinstall_scripts));
  61.     remove(deinstl);
  62.   }
  63. }
  64.