home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 27.ddi / ORAINST2.DEI < prev    next >
Encoding:
Text File  |  1993-02-19  |  1.4 KB  |  49 lines
  1. /* Copyright (c) Oracle Corporation 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     orainst2.dei - V3.0.9.2 deinstallation script for V2 Installer
  5.  
  6.   DESCRIPTION
  7.     This script deinstalls the V2 Installer.
  8.  
  9.   OWNER
  10.     Kush Deepak Jain
  11.  
  12.   MODIFIED    DD-MM-YY    Reason
  13.     kjain     02-03-93    Created.
  14.  
  15. *****************************************************************************/
  16. {
  17.   registry_label = registry_interface_label(current_registry);
  18.  
  19.   ui_product(registry_label);
  20.  
  21.   doit = FALSE;
  22.  
  23.   if (unreferenced(current_registry))
  24.     doit = TRUE;
  25.   else if (not(internally_called))
  26.     if (uniquely_self_referenced(current_registry))
  27.       doit = TRUE;
  28.     else
  29.       doit = yesno_dialog(instantiate(deinstall_prompt01),
  30.               instantiate(deinstall_content01),
  31.               instantiate(deinstall_help01));
  32.  
  33.   if (doit)
  34.     {
  35.       unregistering_product = nls("unregistering_product","Unregistering %%registry_label%%...");
  36.       ui_action(instantiate(unregistering_product));
  37.  
  38.       unregister(current_registry);
  39.  
  40.       deinstalling_product = nls("deinstalling_product","Deinstalling %%registry_label%%...");
  41.       ui_action(instantiate(deinstalling_product));
  42.       remove(old);
  43.       remove(exe);
  44.       remove(deinstl);
  45.     }
  46.   else if (not(internally_called))
  47.     unreference(current_registry);
  48.  
  49. }