/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    ocx60.dei - V3 deinstallation script for Oracle OCX Pack 6.0.

  DESCRIPTION
    This script deinstalls Oracle OCX Pack 6.0.

  MODIFIED   MM/DD/YY   Reason
   pgupta    12/12/97   Created.
*****************************************************************************/
{
    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).")));
    ]

    installed_version = registry_version(current_registry);

    /***************************************
    Create a label with the product, version
    ****************************************/
    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));

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

    permit_retry_operations = TRUE;
    /*************************
     Deinstall the dependencies
    **************************/
    SSF_PRODUCT_STRING = "w32ssf60";
    if (registered(SSF_PRODUCT_STRING))
    {
         dependent = registration(SSF_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);

    permit_retry_operations = FALSE;
    /*********************
     Unregister the MM OCXs
    **********************/
    mm_ocx_files_list = files("%oracle_home%\bin\mm*.ocx");

    sort(mm_ocx_files_list);

    while(not(empty(mm_ocx_files_list)))
    {
        current_mm_ocx_file = first(mm_ocx_files_list);
        mm_ocx_files_list = rest(mm_ocx_files_list);
        {win32_asynchronous_spawn("%ORACLE_HOME%%dir_separator%BIN%dir_separator%REGSVR32.EXE /u /s %current_mm_ocx_file%");}
        ['NO_RESPONSE, 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'MEMORY_ERROR: continue();]
    }
    /*********************/
    permit_retry_operations = TRUE;

    /********************
     Deinstall the product
    *********************/
    ui_action(instantiate(deinstall_files));
    remove(hlp);
    remove(lic);
    ui_action(instantiate(deinstall_dll));
    remove(dll);
    remove(ocx);

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

    permit_retry_operations = FALSE;
    }
}