/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    mm60.dei - V3 deinstallation script for GUI Common Files 2.5.

  DESCRIPTION
    This script deinstalls GUI Common Files 6.0.

  MODIFIED   MM/DD/YY   Reason
*****************************************************************************/
{
    /************************************
    Set the directory separator according
    to the current operating system.
    *************************************/
    dir_separator = "\";
    /************************************/

    /**********************************************
    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");
        /************************************************/
                 /*******************************************
         Create a label with the product, and version
         ********************************************/
/*          COMPONENT_PRODUCT = w32mm60;
          current_version = product_version(current_product);
          version_list    = explode(current_version,".");
          msb_version_list= list(first(version_list),
                                   first(rest(version_list)));

          display_version = implode(msb_version_list,"."); */
         /*******************************************/



        /*********************************************************
        If any of the variables written to Registry at the time of
        installation are not there, provide the default value that
        was forced during installation.
        **********************************************************/

        {
            MM60 = v7_translate("MM60");
            if (not(exists(MM60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR,'INVALID_FILE_NAME,'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
            {
                MM60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
                continue();
            }
        ]

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

        permit_retry_operations = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations = TRUE;

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

          {
               default_loc = make_directory("%ORACLE_HOME%%dir_separator%TOOLS");
          }
         [
              'OS_ERROR,'INVALID_FILE_NAME,
                  'PERMISSION_DENIED,'WRITE_ERROR, 'FILE_NOT_FOUND:
                 continue();
         ]
        {
             MM60     = translate("MM60", ora_config, product_filename(current_product));
             set_mm60 = FALSE;
        }
         [
              'OS_ERROR,'INVALID_FILE_NAME,
                  'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                 MM60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
         ]*/

                 MM60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";

        /***********************************
        Unreference & Deinstall Dependencies
        ***********************************/
        EXECUTE_SCRIPT = "UNREFERENCE_DEPENDENCIES";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /**********************************/

        /*********************
        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(msg);
        ui_action(instantiate(deinstall_files));
        remove(res);

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

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

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

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

        permit_retry_operation = FALSE;

        /************************************************
        Modify environment variables in Registry
        ************************************************/
        list_of_variables = list("MM60", "REPLICATE_GROUPS");
        ui_action(instantiate(modify_variables));

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

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

            list_of_variables = rest(list_of_variables);
        }
     /***************************************************/

    }
}