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

/************************************************************************
  NAME
    user.stp - user-defined .stp script

  DESCRIPTION
    This script allows users access to their own customizable .stp script.
    It can be used to bypass the installer window and perform a predefined
    installation (e.g. complete, typical, minimal, or custom)
    It initializes boolean 'web_install', string 'install_type', and
    string 'bundle_name' (Personal Oracle7,Personal Oracle7 Entreprise,
    Workgroup Oracle7 NT, Workgroup Oracle7 Netware, Entreprise Oracle7 Nt,
    and Entreprise Oracle7 Netware).

  MODIFIED    MM/DD/YY  Reason
    zzerhoun  12/12/94  Created.
    jmadhavi  07/26/00  modified
    veyunni   12/03/02  Added the global var to check in typical install
**************************************************************************/
{
 
    /***************Global SSI Variables***********************/

                        install_webdb_listner=FALSE;
                        primary_node_install=FALSE;

    /***************END Global SSI Variables*******************/
  install_option_title = nls("install_option_title", "Installation Type");
  install_option_prompt = nls("install_option_prompt","What type of installation would you like to perform?");

  install_option_content = nls("install_option_content", "Installation Options");

  install_option_st1 = nls("install_option_st1", "Typical");   

  install_option_st2 = nls("install_option_st2", "Custom");   
				install_option_help = nls("install_option_help",
								"'Typical' gives you an automatic installation of an appropriate, workable set of the product's components -- it installs the patch for only those components that are already installed.

'Custom' is a more complex installation process, and requires some product knowledge.  Choose this option only if you require a higher level of control and you have a good understanding of the product components.");

				install_option_choices = list(install_option_st1,install_option_st2);
	
				install_option_default = install_option_st1;
				mark	
      	install_option_type = single_selection_dialog(install_option_prompt, 
                        install_option_choices,
      			install_option_default, 
				install_option_content, 
		       	install_option_help);
if(install_option_type == install_option_st1)
{

      spawn("parse %os_name%.prd %ORACLE_HOME%\orainst\av_products.txt");  /*generating av_products.txt using Parse.exe*/


    icount=1;
    empty_list=FALSE;
    av_list=list();
    while(not(empty_list))
    {
      {av_list_temp=explode(translate("products%icount%","%ORACLE_HOME%\orainst\av_products.txt"," ")," "); /*list of all NT.PRD components*/ }
      ['UNBOUND_ENVIRONMENT_VARIABLE: 
         {
           av_list_temp=list(); 
           continue();
         }
      ]

      if(empty(av_list_temp))
      {
         empty_list=TRUE;
      }
      else
      {
         union(av_list,av_list_temp);
         icount=icount+1;
      }
    }
      /*information_dialog(implode(av_list," "));*/

      spawn("parse %oracle_home%\orainst\%os_name%.rgs %ORACLE_HOME%\orainst\reg_products.txt"); /*generating reg_products.txt using Parse.exe*/

    icount=1;
    empty_list=FALSE;
    selected_products=list();


    while(not(empty_list))
    {
      {
	reg_list=explode(translate("products%icount%","%ORACLE_HOME%\orainst\reg_products.txt"," ")," "); /*list of all registered components*/
      }
      ['UNBOUND_ENVIRONMENT_VARIABLE: 
         {
           reg_list=list(); 
           continue();
         }
      ]
      if(empty(reg_list))
      {
         empty_list=TRUE;
      }
      else
      {
         union(selected_products,intersect(av_list,reg_list,'NOMUTATE));
         icount=icount+1;
      /*information_dialog(implode(selected_products," "));*/
      }
    }

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

toplevel_exception=list("w32forms60","w32graph60", "w32report60","w32pb60" );
subtract(selected_products,toplevel_exception);
  
nls_lang = translate("nls_lang",ora_config);
if(nls_lang ==  "AMERICAN_AMERICA.WE8ISO8859P1")
{
 lang_list = list("w32formsl60", "w32repl60", "w32guil60","w32tul60","w32graphl60","w32pbl60","w32otl60");

while(not(empty(lang_list)))
 {
lang_comp =first(lang_list);
  {
  selected_products = subtract(selected_products,lang_list);
  }
  lang_list = rest(lang_list);
 }
}
  add(selected_products,"w32jdkav");
   if(OPERATING_SYSTEM == "nt")
  {
    add(selected_products,"jinit");
  }
  
  set("CHECK_RSF_NETCLT", TRUE, 'GLOBAL);

bootstrap=TRUE;
}
else
  	{
        bootstrap = FALSE;
  	}

}