/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    ot60.dei - V3 deinstall script for Oracle Terminal

  DESCRIPTION
    This script deinstalls Oracle Terminal.

  MODIFIED    MM/DD/YY  Reason
   rbansal    07/22/96  Created
*****************************************************************************/
{
    /*****************************************
    Set necessary variables for deinstallation
    ******************************************/
    EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
    execute("%installer_home%\d2kr2dei.usr");
    /*****************************************/

    { 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)
    {
        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

        /***********************
        Unreference Dependencies
        ************************/
        ui_product(instantiate(display_registry_label));
        ui_action(instantiate(unreference_dependencies));
        TUTIL_PRODUCT_STRING = "w32tutil60";
	  OTL_PRODUCT_STRING = "W32OTL60";
        if(registered(TUTIL_PRODUCT_STRING))
        {
            dependent = registration(TUTIL_PRODUCT_STRING);
            unreference(dependent, current_registry);
            unreference(dependent);
            deinstall(dependent);
        }
	        if(registered(OTL_PRODUCT_STRING))
        {
            dependent = registration(OTL_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(res);

        ui_action(instantiate(deinstall_exe));
        remove(exe);

        ui_action(instantiate(deinstall_files));
        remove(deinst);
        /********************/

        permit_retry_operations = FALSE;
    }
}