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

  DESCRIPTION
    This script deinstalls Oracle Generators

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    jewillia  03-JUL-95  Different oracle.ini groups for shared oracle
    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";

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

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

      /**********************************************************************
         Bind all deinstall variables and de-reference dependents
       **********************************************************************/

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

      case_registration_product = registry_name(current_registry);
      EXECUTE_SCRIPT = "DES2_REG.DEI";
      CGEN72 =  execute("%installer_home%\des2k_72.dei");

      case_map_variables = list('DES2K_R61_BULLETINS);
      EXECUTE_SCRIPT = "DES2_MAP.DEI";
      execute("%installer_home%\des2k_72.dei");

      /**********************************************************************
         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_msb          = nls("deinstalling_msb","Deinstalling %%registry_label%% Message files...");
      deinstalling_bin          = nls("deinstalling_bin","Deinstalling %%registry_label%% Executable files...");
      deinstalling_main         = nls("deinstalling_main","Deinstalling %%registry_label%% Product files...");

      deinstalling_registry     = nls("deinstalling_registry","Deinstalling %%registry_label%% Registry files...");
    }

  if (doit)
    {
      /**********************************************************************
         Deinstall children (the code tests to see if self is selected)
       **********************************************************************/

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

  if (doit)
    {
      /**********************************************************************
         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.
      */

      if (empty(all_child_registrations(current_registry)))
        {

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

          permit_retry_operations = TRUE;

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

          ui_action(instantiate(deinstalling_msb));
          remove(msb);

          ui_action(instantiate(deinstalling_registry));
          remove(regfile);

          ui_action(instantiate(deinstalling_main));
          remove(main);

          ui_action(instantiate(deinstalling_bin));
          remove(bin);
          remove(ldll);
          remove(ldll_ja);

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

          permit_retry_operations = FALSE;

          ini_section = registry_filename(current_registry);
          case_modify_list = list();

          add(case_modify_list,list("CGEN72",                    "", ora_config, ini_section, 'INI_SECTION, 'TOP_LEVEL));

          add(case_modify_list,list("DES2K_R61_BULLETINS",           "", ora_config, ini_section));

          add(case_modify_list,list("DOM_OFG.HELP.FUNCTION",             "", ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
          add(case_modify_list,list("DOM_OFG.HELP.DLL",                  "", ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

          add(case_modify_list,list("CVU_UTILITY_MSG_DATA",               "", ora_config, ini_section, 'REPCOM61_SECTION));
          add(case_modify_list,list("CFU_UTILITY_MSG_DATA",               "", ora_config, ini_section, 'REPCOM61_SECTION));
          add(case_modify_list,list("OLG_UTILITY_MSG_DATA",               "", ora_config, ini_section, 'REPCOM61_SECTION));
          add(case_modify_list,list("CVX_UTILITY_MSG_DATA",               "", ora_config, ini_section, 'REPCOM61_SECTION));

          add(case_modify_list,list("",                            "", ora_config, ini_section));

          EXECUTE_SCRIPT = "MODIFY_VARIABLES.CMN";
          execute("%installer_home%\des2k_72.dei");

          /* path modification */
          case_remove_list = list();

          {
            forms60_registration = registration(forms60_product);
            forms60_ini_section = registry_filename(forms60_registration);
          }
          ['UNBOUND_VARIABLE, 'UNBOUND_ENVIRONMENT_VARIABLE, 'UNREGISTERED_PRODUCT:
            forms60_ini_section = forms60_registry_filename;
          ]
          add(case_remove_list,list("GRAPHICS60_PATH",  "%CGEN72%", ora_config, forms60_ini_section,'TOP_LEVEL));
          add(case_remove_list,list("ORAPLSQLLOADPATH", "%CGEN72%", ora_config, forms60_ini_section,'TOP_LEVEL));

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

        }
    }

  if (doit)
    {
      /**********************************************************************
         Continue with the deinstallation of dependent products
       **********************************************************************/

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

    }

}