/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    ssf20.dei - V3.0.10 deinstall script for the System Support Files

  DESCRIPTION
    This script unregisters the System Support Files (no files are
    removed in this deinstallation. Only the product is Unregistered).

  MODIFIED    MM/DD/YY   Reason
  aharriso    10/02/96   Updated to bring into sync with R1.3.2 scripts
   rbansal    06/22/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)
    {
        /************************************************
        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, version, and OS
        ************************************************/
        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));
        /***********************************************/

        permit_retry_operations = TRUE;

        /***********************************************/
        EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
        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(deinst);
        remove(special);

        permit_retry_operations = FALSE;

    } /*END IF(DOIT)*/

} /*END SSF60.DEI*/