/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    pbui60.dei - V3 deinstall script for Oracle Procedure Builder
                    User Interface.

  DESCRIPTION
    This script deinstalls Oracle Procedure Builder User Interface.

  MODIFIED    MM/DD/YY   Reason
   pgupta     10/01/97   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");
        /************************************************/

        /****************************
        Set up product name variables
        *****************************/
        PARENT_PRODUCT       = registry_parent(current_registry);
        PARENT_REGISTRY_NAME = registry_name(PARENT_PRODUCT);
     /**   doc60 = translate("doc60",$oracle); **/
        /****************************/

        /***************************
        Validate deinstallation path
        ****************************/
        deinstall_variable = "DOC60";
        section_heading    = registry_filename(PARENT_PRODUCT);
        EXECUTE_SCRIPT     = "GET_DEINSTALLATION_PATH";

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;
	        /****************************************************************
        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.
        *****************************************************************/
        {
            GRAPHICS60 = v7_translate("DOC60");
            if(not(exists(DOC60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR, 'INVALID_FILE_NAME,
                   'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
                  TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        		DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";

        ]

        /***********************
        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 parent if no other child product exists
        *************************************************/
        EXECUTE_SCRIPT = "DEINSTALL_PARENT";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

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

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

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

        permit_retry_operations = FALSE;
    }
}