home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 26.ddi / V2BACK.DEI < prev    next >
Encoding:
Text File  |  1993-02-24  |  1.8 KB  |  60 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     v2back.dei - V3.0.9.2 deinstallation script for V2 Backward Compatibility
  5.  
  6.   DESCRIPTION
  7.     This script deinstalls a V2 Product. It is copied to to v2back<n>.dei.
  8.  
  9.   OWNER
  10.     Kush Deepak Jain
  11.  
  12.   MODIFIED    DD-MM-YY    Reason
  13.     kjain     02-03-92    Made NLS Compliant.
  14.     kjain     01-15-92    Created.
  15.  
  16. *****************************************************************************/
  17. {
  18.   registry_label = registry_interface_label(current_registry);
  19.  
  20.   ui_product(registry_label);
  21.  
  22.   doit = FALSE;
  23.  
  24.   if (unreferenced(current_registry))
  25.     doit = TRUE;
  26.   else if (not(internally_called))
  27.     if (uniquely_self_referenced(current_registry))
  28.       doit = TRUE;
  29.     else
  30.       doit = yesno_dialog(instantiate(deinstall_prompt01),
  31.               instantiate(deinstall_content01),
  32.               instantiate(deinstall_help01));
  33.  
  34.   if (doit)
  35.     {
  36.       unregistering_product = nls("unregistering_product","Unregistering %%registry_label%%...");
  37.       ui_action(instantiate(unregistering_product));
  38.  
  39.       unregister(current_registry);
  40.  
  41.       deinstalling_stubs = nls("deinstalling_stubs","Removing %%registry_label%% Executable Stubs...");
  42.  
  43.       ui_action(instantiate(deinstalling_stubs));
  44.  
  45.       {
  46.          { dos_unstubify("",exe,"EXE"); }
  47.        [ 'FILE_NOT_FOUND: signal('INVALID_FILE_NAME); ]
  48.       }
  49.       [ 'INVALID_FILE_NAME: signal('FAILURE,installation_corrupted); ]
  50.  
  51.       deinstalling_product = nls("deinstalling_product","Deinstalling %%registry_label%%...");
  52.       ui_action(instantiate(deinstalling_product));
  53.  
  54.       remove(exe,"other");
  55.       remove(exe,"nostub");
  56.       remove(exe,"exe");
  57.       remove(deinstl);
  58.     }
  59. }
  60.