/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */

/*****************************************************************************
  NAME
    d2tx60.dei - V3 deinstallation script for Tuxedo Interface

  DESCRIPTION
    This script removes Tuxedo Interface.

  MODIFIED      MM/DD/YY    Reason
   pgupta       06/12/98    Created
*****************************************************************************/

{
     /************************************
     Set the directory separator according
     to the current operating system.
     *************************************/
    if (operating_system == "mac")
        dir_separator = ":";
    else
        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");
        /************************************************/

        /**********************************
           Bind variables for Tuxedo Interface
        ***********************************/
           TOOLS_HOME = "%ORACLE_HOME%\TOOLS";
           OPEN60 = "%TOOLS_HOME%\OPEN60";
           D2TX60 = "%OPEN60%\TUXEDO";
        /**********************************/

        /****************************
        Set up product name variables
        *****************************/
        PARENT_PRODUCT       = registry_parent(current_registry);
        PARENT_REGISTRY_NAME = registry_name(PARENT_PRODUCT);
        /****************************/

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;

        /***********************
        Unreference dependencies
        ************************/
        ui_product(instantiate(display_registry_label));
        ui_action(instantiate(unreference_dependencies));

        {unreference(registration(PARENT_REGISTRY_NAME), current_registry);}     /* Unreference the parent */
        ['UNREGISTERED_PRODUCT: continue();]
        /***********************/

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

        /********************
        Deinstall the product
        *********************/
        ui_product(instantiate(display_registry_label));

        ui_action(instantiate(deinstall_files));
        remove(doc);
        remove(demos);
        remove(libs);
        remove(dll);
        remove(deinst);
        /********************/

        /************************************************
        Deinstall parent if no other child product exists
        *************************************************/
        EXECUTE_SCRIPT = "DEINSTALL_PARENT";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

        permit_retry_operations = FALSE;

        /***************************
        Modify environment variables
        ****************************/
        ui_action(instantiate(modify_variables));
        {modify("OPEN60", "", ora_config, registry_filename(current_registry));}         /* remove OPEN60 variable from oracle.ini */
            [ 'UNBOUND_ENVIRONMENT_VARIABLE: continue(); ]

        {modify("D2TX60", "", ora_config, registry_filename(current_registry));}             /* remove D2TX60 variable from oracle.ini */
            [ 'UNBOUND_ENVIRONMENT_VARIABLE: continue(); ]

        {modify("REPLICATE_GROUPS", "", ora_config, registry_filename(current_registry));}
            [ 'UNBOUND_ENVIRONMENT_VARIABLE: continue(); ]

        {modify("REPLICATE_VARIABLES", "", ora_config, registry_filename(current_registry));}
            [ 'UNBOUND_ENVIRONMENT_VARIABLE: continue(); ]
        /************************************************************************************/

        permit_retry_operations = FALSE;
        remove_directory(OPEN60);
        remove_directory(TOOLS_HOME);

        permit_retry_operations = FALSE;

    } /*end if(doit)*/
}