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