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

/*****************************************************************************
  NAME
    formsl60.dei - V3 deinstallation script for Oracle
                 Forms Language Supplement

  DESCRIPTION
    This script removes Forms Language Supplement

  MODIFIED  MM/DD/YY        Reason
  pgupta    09/04/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).")));
    ]
    doit = TRUE;
    if (doit)
    {
          /************************************************
          Create a label with the product name, and version
          *************************************************/
          EXECUTE_SCRIPT = "CREATE_LABEL";
          execute("%installer_home%%dir_separator%d2kr2dei.usr");
          /************************************************/

         /****************************
          Set up product name variables
          *****************************/
          PARENT_PRODUCT       = registry_parent(current_registry);
          PARENT_REGISTRY_NAME = registry_name(PARENT_PRODUCT);
          COMPONENT_PRODUCT_STRING        = "w32formsl60";
         /****************************/
         /***************************
          Validate deinstallation path
         ****************************/
         deinstall_variable = "formsl60";
         section_heading    = registry_filename(PARENT_PRODUCT);
         EXECUTE_SCRIPT         = "GET_DEINSTALLATION_PATH";
         FORMSL60                  = execute("%installer_home%%dir_separator%d2kr2dei.usr");

                     /***************************************************************
         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.
        ****************************************************************/
        {
           FORMS60 = v7_translate("FORMS60");
           if(not(exists(FORMS60)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
            'OS_ERROR, 'INVALID_FILE_NAME,
                'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
        default_home = "%oracle_home%%dir_separator%FORMS60";
        FORMS60= execute("%product_home%%dir_separator%instloc.usr");
        ]

         /********************************************
          Validate Reports Runtime deinstallation path
         ********************************************/
         deinstall_fdesres       = TRUE;
         deinstall_frunres       = TRUE;
         deinstall_fhelp      = TRUE;
         deinstall_frunweb      = TRUE;
         deinstall_fcuesnd    = TRUE;
         deinstall_deinst     = TRUE;
	    deinstall_fmsg      = TRUE;

         /********************************************
          remove only if the product is selected to be
          remove AND if it already registered.
         **********************************************/

         forms_flag = FALSE;
         if (member(registration("selected_registries"),"w32forms60"))
         {
                forms_flag = TRUE;
         }

         selection_list = registration("selected_registries");
         productname = "string";
         if (not(forms_flag))
         {
           /* if not, the user has selected any of the individual sub
              components under reports. like, runtime, mts etc
              In this case we need to find out what was the product
              selected and remove the appropriate language files.
              If some product was not selected set it to FALSE.
            */
                if (not(empty(selection_list)))
                {
                        deinstall_fdesres       = FALSE;
                        deinstall_frunres       = FALSE;
                        deinstall_frunweb      = FALSE;
                        deinstall_fcuesnd    = FALSE;
                        deinstall_deinst     = FALSE;
				deinstall_fmsg      = TRUE;

                }
                while(not(empty(selection_list)))
                {
                   productname = (registry_name(first(selection_list)));

                   if (productname == "w32frun60")
                        deinstall_frun = TRUE;
                   if (productname == "w32fdes60")
                        deinstall_fdes = TRUE;
                   if (productname == "w32formsl60")
                        deinstall_deinst = TRUE;
                   if (productname == "w32forms60")
                   {
                        deinstall_fdesres       = TRUE;
                        deinstall_frunres       = TRUE;
                        deinstall_frunweb      = TRUE;
                        deinstall_fmsg      = TRUE;
                        deinstall_fcuesnd    = TRUE;
                        deinstall_deinst     = TRUE;
                    }
                    selection_list= rest(selection_list);
                }
         }


         /***************************
          Validate deinstallation path
         ****************************/
         deinstall_variable = "FORMS60";
         section_heading    = registry_filename(PARENT_PRODUCT);
         EXECUTE_SCRIPT         = "GET_DEINSTALLATION_PATH";
         FORMS60                  = execute("%installer_home%%dir_separator%d2kr2dei.usr");

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

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

          /************************************************
            Deinstall parent if no other child product exists
            *************************************************/
            EXECUTE_SCRIPT = "DEINSTALL_PARENT";
            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 parent if no other child product exists
            *************************************************/
            EXECUTE_SCRIPT = "DEINSTALL_PARENT";
            execute("%installer_home%%dir_separator%d2kr2dei.usr");
            /************************************************/
          /********************
          Deinstall the product
          *********************/
        if(deinstall_frunres)

         {
            ui_action(instantiate(deinstall_files));
            remove(frunres);
        }

          if(deinstall_fdesres)

          {
            ui_action(instantiate(deinstall_files));
            remove(fdesres);
        }

            if (deinstall_deinst)
            {
            ui_action(instantiate(deinstall_files));
            remove(deinst);

            }


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

          permit_retry_operations = FALSE;



     }
}