/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    oin100.dei - V3 deinstall script for the Information Navigator

  DESCRIPTION
    This script deinstalls the Information Navigator

  MODIFIED    MM/DD/YY   Reason
  aharriso    11/20/96   Created
*****************************************************************************/
{
     /************************************
     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
    *************************************************/
    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
    ************************************************************************************/
        {
            OIN60 = v7_translate("OIN60");
            if (not(exists(OIN60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,
                'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
                OIN60 = "%ORACLE_HOME%%dir_separator%OIN";
        ]

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

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


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

        /*********************
        Deinstall dependencies
        **********************/
        GUI60_PRODUCT_STRING = "w32gui60";

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

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

        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_dll));
        remove(dll);

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

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

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

        permit_retry_operations = FALSE;

        /*****************************************
        Modify environment variables from Registry
        ******************************************/
        list_of_variables = list("OIN60", "ORAINFONAV_CDPATH",
                                 "REPLICATE_GROUPS", "REPLICATE_VARIABLES");    /* Add Installer 3.1 specific REPLICATE_GROUPS, REPLICATE_VARIABLES to the list of variables to be modified */

        ui_action(instantiate(modify_variables));

        while(not(empty(list_of_variables)))
        {
            next_variable = first(list_of_variables);

            {modify(next_variable, "", ora_config, "OIN60");}
            [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: continue(); ]

            list_of_variables = rest(list_of_variables);
        }

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


        permit_retry_operations = FALSE;
    }
}