/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    tutil60.dei - V3 deinstall script for the Tools Utilities

  DESCRIPTION
    This script deinstalls the Tools Utilities

  MODIFIED    MM/DD/YY   Reason
*****************************************************************************/
{
     /************************************
     Set the directory separator according
     to the current operating system.
     *************************************/
    dir_separator = "\";
    /************************************/


    { doit = execute("%installer_home%%dir_separator%%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).")));
    ]

    if (doit)
    {

        /************************
         Setup the nls() stuff for deinstall scripts
        *************************/

        EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");

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

        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

        /************************************************
        Create a label with the product name, and version
        *************************************************/
        installed_version = registry_version(current_registry);
        version_list      = explode(installed_version,".");
        msb_version_list  = list(first(version_list),
                             first(rest(version_list)));
        display_version   = implode(msb_version_list,".");

        display_registry_label = "%registry_label% %display_version%";

                ui_product(instantiate(display_registry_label));
        /************************************************/

        /***********************************************************************************
              For some reason, if any of the variables written to REGISTRY at the time
              of installation is not there, set the variables to the default value
        ************************************************************************************/
  /*     {
            VGS60 = v7_translate("VGS60");
            if (not(exists(VGS60)))
               signal('UNBOUND_ENVIRONMENT_VARIABLE);
           }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
                VGS60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
        ]

        {
            DE60 = v7_translate("DE60");
            if (not(exists(DE60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
                DE60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
        ]

        {
            CA_UPREFS = v7_translate("CA_UPREFS");
            if (not(exists(CA_UPREFS)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
                CA_UPREFS = "%ORACLE_HOME%";
        ]

        {
            CA_GPREFS = v7_translate("CA_GPREFS");
            if (not(exists(CA_GPREFS)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
                CA_GPREFS = "%ORACLE_HOME%";
        ] */
        /***********************************************************************************/

        /*********************
        Deinstall dependencies
        **********************/
        GUI60_PRODUCT_STRING = "w32gui60";
        TUTIL60_PRODUCT_STRING = "w32ca60,w32de60,w32d2sc60,w32nn60,w32sqlmgr60,w32vgs60,w32zrc60";

        /***********************
        Set up dependencies list
        ************************/
        dependency_list = list("w32ca60","w32de60","w32d2sc60","w32nn60","w32qmg60","w32vgs60","w32zrc60");
        /***********************/


       /**************************************************************
        Unreference & Deinstall Component Products if explicitly called
        ***************************************************************/
        EXECUTE_SCRIPT = "DEINSTALL_COMPONENTS";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /**********************************************************/

        /***********************************
        Unreference & Deinstall Dependencies
        ************************************/
        EXECUTE_SCRIPT = "UNREFERENCE_DEPENDENCIES";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /***********************************/

/*
        if (registered(GUI60_PRODUCT_STRING))
        {
            dependent = registration(GUI60_PRODUCT_STRING);
            unreference(dependent, current_registry);
            unreference(dependent);
            deinstall(dependent);
        }

        if (registered(TUTIL60_PRODUCT_STRING))
        {
            dependent = registration(TUTIL60_PRODUCT_STRING);
            unreference(dependent, current_registry);
            unreference(dependent);
            deinstall(dependent);
        }
*/
        /*********************/

        permit_retry_operations = TRUE;

        /*********************
        Unregister the product
        **********************/
        ui_product(instantiate(display_registry_label));
        ui_action(instantiate(deinstall_unregister));
        unregister(current_registry);
        /*********************/

        /*********************************************************************
        Deinstall the product
        **********************************************************************/
        ui_action(instantiate(deinstall_files));
        remove(deinst);
        /*********************************************************************/

        permit_retry_operations = FALSE;

        {remove_directory("%ORACLE_HOME%%dir_separator%DOC60");}
           [ 'INVALID_FILE_NAME, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: continue(); ]

        permit_retry_operations = FALSE;
    }
}