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

/*****************************************************************************
  NAME
    d2scp60.dei - V3 deinstallation script for PVCS Interface

  DESCRIPTION
    This script removes Windows PVCS Interface.

  MODIFIED      MM/DD/YY    Reason
   pgupta       10/01/97    Created.
*****************************************************************************/

{
      set("unreg_d2scp", TRUE, 'GLOBAL);

    /************************************************
    Set necessary variables for deinstallation
    *************************************************/
    EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
    execute("%installer_home%\d2kr2dei.usr");
    /************************************************/

    deinstall_d2scp01 = nls("deinstall_d2scp01","It was not possible to find a value for the variable, '%%variable%%', in the Registry. It is therefore not possible to remove %%registry_label%%. Please restore the binding for '%%variable%%' in the Registry in order to remove %%registry_label%%.");
    deinstall_content02 = nls("deinstall_content02","Variables");
    deinstall_d2help02 = nls("deinstall_d2help02","The variable, '%%variable%%', is used in the Registry Editor to determine where %%registry_label%% was installed.  You can restore the binding for '%%variable%%' by setting '%%variable%%' to the relevant path in the Registry Editor.");


    {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");
        /************************************************/


        /********************************
           Bind variables for PVCS Interface
        *********************************/
           OPEN2K60 = "%TOOLS_HOME%%dir_separator%OPEN2K60";
           D2SCP = "%OPEN2K60%%dir_separator%PVCS";
        /**********************************/

        /****************************
        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;


        /******************
        Bind variable VGS60
        *******************/
        {
            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";
                continue();
            }
        ]

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

        /*{unreference(registration(PARENT_REGISTRY_NAME), current_registry);}*/     /* Unreference Parent */
        /*['UNREGISTERED_PRODUCT: continue();]*/
        /********************************/
 /*********************
        Deinstall dependencies
        **********************/
        SCPL60_PRODUCT_STRING = "w32SCPL60";

        if (registered(SCPL60_PRODUCT_STRING))
        {
            dependent = registration(SCPL60_PRODUCT_STRING);
            unreference(dependent, current_registry);
            unreference(dependent);
            deinstall(dependent);
        }

        /*********************
        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_product(instantiate(display_registry_label));

        ui_action(instantiate(deinstall_files));
        remove(doc);

        ui_action(instantiate(deinstall_files));
        remove(res);

        ui_action(instantiate(deinstall_dll));
        remove(dll);

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


        permit_retry_operations = FALSE;

        /***********************************************************************************
                      Modify environment variables in Registry Editor
                      - change back to initial values set by TUTIL.
        ************************************************************************************/

        ui_action(instantiate(modify_variables));
        {
            DEV2000_SOURCECONTROL= v7_translate("DEV2000_SOURCECONTROL");
            modify("DEV2000_SOURCECONTROL", "None", ora_config);
        }
        [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: continue(); ]

        {
            DEV2000_PROJECT= v7_translate("DEV2000_PROJECT");
            modify("DEV2000_PROJECT", "None", ora_config);
        }
        [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: continue(); ]

        {
            DEV2000_SCVIEWER= v7_translate("DEV2000_SCVIEWER");
            modify("DEV2000_SCVIEWER", "Notepad.exe", ora_config);
        }
        [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: continue(); ]
        /***********************************************************************************/

        remove_directory(OPEN2K60);
        remove_directory(TOOLS_HOME);

    } /*end if(doit)*/
} /*end d2scp60.dei*/