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

/*****************************************************************************
  NAME
    rdb60.dei - De-installation script for Oracle ODBC Driver for Rdb

  DESCRIPTION
    This script removes the Oracle ODBC Driver for Rdb product.

  MODIFIED    MM/DD/YY    Reason
   pgupta     09/29/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");
        /************************************************/

        /***************************
        Validate deinstallation path
        ****************************/
        OCA60           = "%oracle_home%%dir_separator%OCA60";
        deinstall_variable = "RDB60";
        section_heading    = registry_filename(current_registry);
        EXECUTE_SCRIPT = "GET_DEINSTALLATION_PATH";
        RDB60 = execute("%installer_home%%dir_separator%d2kr2dei.usr");
        windows_sys_dir = windows_system_directory();                 /*needed in .map file*/
        windows_dir     = windows_directory();
        /***************************/


        /*******************************
        Continue with the deinstallation
        ********************************/
        SSF_PRODUCT = "w32ssf60";

        if (registered(SSF_PRODUCT))
        {
            dependent = registration(SSF_PRODUCT);
            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 the product
        *********************/
        ui_action(instantiate(deinstall_files));
        remove(kanji);
        remove(rdbfiles);
        remove(dll);
        remove(exe);
        remove(deinst);
        /********************/

        /**************************
        Remove ORACLE.INI variables
        ***************************/
        {modify(deinstall_variable, "", ora_config);}
        [ 'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: continue(); ]

        permit_retry_operations = FALSE;
    }
}