/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    update61.dei - V3.1.2 de-installation script for Update product

  DESCRIPTION
    This script deinstalls the update product

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    jewillia  10-NOV-94  Created

*****************************************************************************/

{
  { doit = execute("%installer_home%\%operating_system%.dei"); }
  [
    'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please
use a later version of the Installer to deinstall these product(s).")));
  ]

  /* unreference self so that product can be de-installed when last depending
     product is removed. Probably should be in de-installation script.
  */
  if (member(registration("selected_registries"),current_registry))
    {
    unreference(current_registry);
    }

  if (doit)
    {
      dei_ratchet = "7.2.96.5.6";

      /**********************************************************************
         Bind all NLS deinstall strings here...
       **********************************************************************/

      unregistering             = nls("unregistering","Unregistering %%registry_label%%...");
      modify_config             = nls("modify_config","Modifying %%registry_label%% Environment Variables...");

      deinstalling_deinstl      = nls("deinstalling_deinstl","Deinstalling %%registry_label%% Deinstallation scripts...");
      deinstalling_main         = nls("deinstalling_main","Deinstalling %%registry_label%% Product files...");

      /**********************************************************************
         Continue with the deinstallation of dependent products
       **********************************************************************/

      EXECUTE_SCRIPT = "DES2_PRODUCT_NAMES.DEI";
      execute("%installer_home%\des2k_72.dei");

      /* now stored in registry
      deinstall_list = list();
      */

      /**********************************************************************
         Check to make sure all children have gone
       **********************************************************************/

      /* if children are explicitly referencecd by other products than they
         will not have removed themselves. So do not remove parent either.
         if children have gone then their registries will have gone as well.
      */
      doit = empty(all_child_registrations(current_registry));

    }

  if (doit)
    {

      /**********************************************************************
         Continue with the deinstallation of this product
       **********************************************************************/


      permit_retry_operations = TRUE;

      ui_action(instantiate(unregistering));
      unregister(current_registry);

      ui_action(instantiate(deinstalling_deinstl));
      remove(deinstl);

      permit_retry_operations = FALSE;

      ini_section = registry_filename(current_registry);

    }
}