/* Copyright (c) Oracle Corporation 1997.  All Rights Reserved */
/*****************************************************************************
  NAME
    ott80.dei - de-installation script for OTT 8.0.4.0.0 for NT.

  DESCRIPTION
    This script removes and un-registers OTT 8.0.4.0.0 for NT.

  OWNER
    Kiminari Akiyama

  MODIFIED      MM/DD/YY   Reason
    kakiyama    05/13/97   Added Intype File Assistant
    kakiyama    04/12/97   Created.     
*****************************************************************************/
{

  registry = registration("w32ott80");
  registry_label = registry_interface_label(registry);

  ui_product(registry_label);

/*****************************************************************************
   Bind all nls strings here...
*****************************************************************************/
  unregistering    = nls("unregistering",   "Unregistering %%registry_label%%...");
  modifying_config = nls("modifying_config","Modifying %%ora_config%%...");
  deinst_samples   = nls("deinst_samples",  "Deinstalling %%registry_label%% Sample Files..."); 
  deinst_config    = nls("deinst_config",   "Deinstalling %%registry_label%% Configuration Files...");  
  deinst_msg       = nls("deinst_msg",      "Deinstalling %%registry_label%% Message Files...");
  deinst_exec      = nls("deinst_exec",     "Deinstalling %%registry_label%% Executables...");
  deinst_ifa       = nls("removing_ifa",    "Deinstalling Intype File Assistant Files...");
  deinst_help      = nls("removing_help",   "Deinstalling Intype File Assistant Help Files...");
  deinst_scripts   = nls("deinst_scripts",  "Deinstalling %%registry_label%% Installation Scripts...");

  unknown_ott_prompt  = nls("unknown_ott_prompt","It is not possible to remove %%registry_label%% because of a problem with the OTT80 variable in your '%%ora_config%%' file.");
  unknown_ott_content = nls("unknown_ott_content","Configuration Problem");
  unknown_ott_help    = nls("unknown_ott_help","In order to remove %%registry_label%%, it is necessary to have a correct value for the OTT80 variable in your '%%ora_config%%' file. 
	The OTT80 variable should point to the directory to which Pro*C was installed.");

/*****************************************************************************
   Continue with deinstall operations
*****************************************************************************/
  if (operating_system == "win95")
	doit = execute("%installer_home%\win95.dei");
  else if (operating_system == "nt")
	doit = execute("%installer_home%\nt.dei");
 
  if (doit)
  {
  /* bind map file variables */
    {
    make_directory("%oracle_home%\OTT80"); /* make sure ott80 directory exists to avoid error */ 
    ott80 = translate("OTT80", ora_config, registry_filename(current_registry));

      {
	if (not(exists(ott80)))
	  signal('UNBOUND_ENVIRONMENT_VARIABLE);
      }
	[ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
	  'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
	  'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
    }
    [
      'UNBOUND_ENVIRONMENT_VARIABLE:
	{                          
	  variable = "OTT80";
	  information_dialog(instantiate( unknown_ott_prompt ),
			     instantiate( unknown_ott_content),
			     instantiate( unknown_ott_help ) ); 
	  doit=FALSE;
	  
	}
    ]
  } /* end if (doit) */
 
  if (doit)
  {
  /* bind map file variables */
    {
    make_directory("%oracle_home%\ott80"); /* make sure ott80 directory exists to avoid error */ 
    ott80 = translate("OTT80", ora_config, registry_filename(current_registry));

      {
	if (not(exists(ott80)))
	  signal('UNBOUND_ENVIRONMENT_VARIABLE);
      }
	[ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
	  'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
	  'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
    }
    [
      'UNBOUND_ENVIRONMENT_VARIABLE:
	{                          
	  variable = "OTT80";
	  information_dialog(instantiate( unknown_ott_prompt ),
			     instantiate( unknown_ott_content),
			     instantiate( unknown_ott_help ) ); 
	  doit=FALSE;
	  
	}
    ]
  } /* end if (doit) */

  if (doit)
  {
    /* deinstall dependent products */
    if (registered("w32rsf80"))
    {
      dependent = registration("w32rsf80");
      unreference(dependent,registry);
      deinstall(dependent); 
    }                 

    if(registered("w32jre11"))
    {
      dependent = registration("w32jre11");
      unreference(dependent, current_registry);
      deinstall(dependent);
    }

    if(registered("jsf803"))
    {
      dependent = registration("jsf803");
      unreference(dependent, current_registry);
      deinstall(dependent);
    }
           
    if(registered("jdbc"))
    {
      dependent = registration("jdbc");
      unreference(dependent, current_registry);
      deinstall(dependent);
    }

    /* unregister product */
    ui_product(registry_label);

    ui_action(instantiate(unregistering));
    unregister(registry);


    ui_action(instantiate(deinst_help));
    remove(help);
			    
    ui_action(instantiate(deinst_ifa));
    remove(ifaw);

    ui_action(instantiate(deinst_config));
    remove(config);

    ui_action(instantiate(deinst_exec));
    remove(exec);


    if (not(registered("w32ott80")))
      modify("OTT80", "", ora_config);

    if (not(registered("w32ott80")) && not(registered("w32proc80")))
    {
      ui_action(instantiate(deinst_msg));
      remove(msg);
    }

    if (not(registered("w32proc80")) && not(registered("w32procob80")) && not(registered("w32ott80")))
    {
      remove(msgpgo);
    }

    ui_action(instantiate(deinst_scripts));
    remove(deinstl);
  }
}