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

/*****************************************************************************
  NAME
    rrun60.dei - V3 deinstallation script for Oracle Report 6.0 Runtime

  DESCRIPTION
    This script removes Oracle Report 6.0 Runtime.

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

          /****************************
          Set up product name variables
          *****************************/
          PARENT_PRODUCT       = registry_parent(current_registry);
          PARENT_REGISTRY_NAME = registry_name(PARENT_PRODUCT);
          /****************************/

          /***********************
          Set up dependencies list
          ************************/
          SQLNET_PRODUCT = "w32netclt80";
          /***********************/

          /***************************
          Validate deinstallation path
          ****************************/
          deinstall_variable = "RW60";
          section_heading    = registry_filename(PARENT_PRODUCT);
          EXECUTE_SCRIPT         = "GET_DEINSTALLATION_PATH";
          RW60                  = execute("%installer_home%%dir_separator%d2kr2dei.usr");
          doc60 = translate("doc60","$oracle");
          /***************************/

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

          /***********************
          Unreference dependencies
          ************************/
          ui_product(instantiate(display_registry_label));
          ui_action(instantiate(unreference_dependencies));

          {unreference(registration(PARENT_REGISTRY_NAME), current_registry);}      /* unreference the parent */
          ['UNREGISTERED_PRODUCT: continue();]

          {unreference(registration(SQLNET_PRODUCT), current_registry);}                /* unreference SQL*Net */
          ['UNREGISTERED_PRODUCT: continue();]
          /***********************/

          /*********************
          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
          *********************/
          ui_product(instantiate(display_registry_label));

          ui_action(instantiate(deinstall_files));
          remove(res);
          remove(jar);

          ui_action(instantiate(deinstall_files));
          remove(msg);

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

          ui_action(instantiate(deinstall_files));
          remove(demo);

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

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

          permit_retry_operations = FALSE;

          /***************************
          Modify environment variables
          ****************************/
        {
              reports60_path_dir = "%RW60%%dir_separator%ADMIN%dir_separator%TEMPLATE";
             reports60_path_variable = translate("REPORTS60_PATH", ora_config, RW60);     /* get REPORTS60_PATH variable from Registry */
             paths_in_reports60_path = explode(reports60_path_variable, ";");
             if(member(paths_in_reports60_path, reports60_path_dir))                            /* REPORTS60_PATH contains %REPORTS60%\ADMIN\TEMPLATE ?? */
             {
                  extract(paths_in_reports60_path, reports60_path_dir);                        /* remove %REPORTS60%\ADMIN\TEMPLATE from REPORTS60_PATH */
                  if(empty(paths_in_reports60_path))
                          modify("REPORTS60_PATH", "", ora_config, RW60);                     /* remove REPORTS60_PATH from Registry */
                  else
                  {
                       reports60_path_variable = implode(paths_in_reports60_path, ";");
                          modify("REPORTS60_PATH", reports60_path_variable, ora_config, RW60); /* re-write the updated REPORTS60_PATH */
                  }
             }
        }
         [                                                                                               /* Registry doesn't have REPORTS60_PATH continue */
              'OS_ERROR,'INVALID_FILE_NAME,'FILE_NOT_FOUND,
             'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE: continue();
         ]

        {
              reports60_tmp_path_dir = "%RW60%%dir_separator%TMP";
             reports60_tmp_path_variable = translate("REPORTS60_TMP", ora_config, RW60); /* get REPORTS60_TMP variable from Registry */
             paths_in_reports60_tmp_path = explode(reports60_tmp_path_variable, ";");
             if(member(paths_in_reports60_tmp_path, reports60_tmp_path_dir))                    /* REPORTS60_TMP contains %REPORTS60%\TMP ?? */
             {
                  extract(paths_in_reports60_tmp_path, reports60_tmp_path_dir);                    /* remove %REPORTS60%\TMP from REPORTS60_TMP */
                  if(empty(paths_in_reports60_tmp_path))
                          modify("REPORTS60_TMP", "", ora_config, RW60); /* remove REPORTS60_TMP from Registry */
                  else
                  {
                       reports60_tmp_path_variable = implode(paths_in_reports60_tmp_path, ";");
                          modify("REPORTS60_TMP", reports60_tmp_path_variable, ora_config, RW60); /* re-write the updated REPORTS60_TMP */
                  }
             }
        }
         [                                                                                               /* Registry doesn't have REPORTS60_TMP continue */
              'OS_ERROR,'INVALID_FILE_NAME,'FILE_NOT_FOUND,
             'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE: continue();
         ]

          /***************************/
     }
}