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

/*****************************************************************************
  NAME
    rmts60.vrf - Reports Server Verification Script

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Windows Oracle Reports Server.

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

{
    {doit = execute("%installer_home%%dir_separator%%operating_system%.vrf");}
    [
        'UNBOUND_VARIABLE:
        {
            required_version = product_version(instver_product);
            temp             = explode(required_version, ".");
            required_version = implode(list(first(temp),first(rest(temp)),
                                            first(rest(rest(temp))),
                                            first(rest(rest(rest(temp))))), ".");
            signal('FAILURE, instantiate(nls("instver_too_early1",
                                                 "The version of the Installer currently running is %%installer_version%%. The installation you have chosen requires version %%required_version%% or later. Please run version %%required_version%% or later in order to perform this installation.")));
        }
    ]                                                                   /* This FAILURE will cause 3.0.x.x installer to exit gracefully. */

    /***************
    START MAIN LOGIC
    ****************/
    if (doit)
    {
        /****************************************************************
        Display the generic "Welcome to Oracle Developer"
        billboard if not already displayed, and if Developer release
        *****************************************************************/
        if(exists("%installer_home%%dir_separator%d2bb_01.bmp"))
        {
            if(DEVELOPER2000_RELEASE)
            {
                if(not(DEV2K_BB01))
                {
                    DEV2K_BB01 = TRUE;
                    ui_graphics("%installer_home%%dir_separator%d2bb_01.bmp");
                }
            }
        }
        /****************************************************************/

        /*****************************
        Set the VRF-INS script ratchet
        ******************************/
        vrf_ratchet = "6.0.8.10.0";

         main_product_version = "6.0.8.8.3";
         /***************************
         Check Installed Version
         ***************************/
         if(registered(product_name(current_product)))
         {
              check_installed_version = registry_version(registration(product_name(current_product)));
              if(earlier_version(check_installed_version, main_product_version))
              {
                   information_dialog(instantiate(product_upgrade_required),
                                      instantiate(product_upgrade_contents),
                                      instantiate(product_upgrade_help));
                   refresh_map_file = FALSE;
                   doit = FALSE;
                   return(0);
              }
          }
          else
          {
                information_dialog(instantiate(main_product_required),
                                   instantiate(main_product_contents),
                                   instantiate(main_product_help));
                 refresh_map_file = FALSE;
                 doit = FALSE;
                 signal('FAILURE, instantiate(halt_installation));
          }
        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%installer_home%%dir_separator%d2kr2vrf.usr");
        /************************************************/

        /******************************************************************
        child_in_control = TRUE ==> component product called explicitly
        child_in_control = FALSE ==> component product called by the PARENT
        *******************************************************************/
        child_in_control = TRUE;
        if( member(products_for_installation, product_parent(current_product) ))
            child_in_control = FALSE;
        /**********************************************************************/

        /*************************
        Set Product Name variables
        **************************/
        PARENT_PRODUCT    = w32report60;
        COMPONENT_PRODUCT = w32rrun60;
        /*************************/

        /********************************************************************
        Initialize total size of files
        *********************************************************************/
        total_sum = 0;

        /**************************
        Determine installation path
        ***************************/
        install_variable = "RW60";
        default_home     = "%oracle_home%%dir_separator%REPORT60";
        RW60             = execute("%installer_home%%dir_separator%instloc.usr");
        TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";
        /**************************/

        /**********************************************************************
        Set REPORTS60_JNI_DLL variable in oracle.ini, if not already set
        ***********************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_jni_dll = TRUE;
        reports60_jni_dll_var= "%ORACLE_HOME%%dir_separator%jdk%dir_separator%bin%dir_separator%javai.dll";
        {
            REPORTS60_JNI_DLL = translate("REPORTS60_JNI_DLL", ora_config, section_heading);
            modify_reports60_jni_dll = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]

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


        /**********************************************************************
        Set REPORTS60_CLASSPATH variable in oracle.ini, if not already set
        ***********************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_classpath = TRUE;
        reports60_classpath_var = "%ORACLE_HOME%%dir_separator%jdk%dir_separator%lib%dir_separator%classes.zip;%RW60%%dir_separator%java%dir_separator%jars%dir_separator%myreports60.jar;%RW60%%dir_separator%java%dir_separator%jars%dir_separator%xmlparser.jar";
        {
            REPORTS60_CLASSPATH = translate("REPORTS60_CLASSPATH", ora_config, section_heading);
            modify_reports60_classpath = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]
        /********************************************************************/

        /*************************************************************************
        Set REPORTS60_DB_AUTH variable in oracle.ini 
        **************************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_db_auth = TRUE;
        reports60_db_auth_var = "dbauth.htm";
        {
            REPORTS60_DB_AUTH = translate("REPORTS60_DB_AUTH", ora_config, section_heading);
            modify_reports60_db_auth = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]

        /*************************************************************************
        Set REPORTS60_SYS_AUTH variable in oracle.ini 
        **************************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_sys_auth = TRUE;
        reports60_sys_auth_var = "sysauth.htm";
        {
            REPORTS60_SYS_AUTH = translate("REPORTS60_SYS_AUTH", ora_config, section_heading);
            modify_reports60_sys_auth = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]

        /*********************************************
        Check if Reports Runtime needs to be installed
        (no need to verify the PARENT because Runtime
        will be doing that anyway)
        ********************************************/
        if(child_in_control)
        {
            EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT";
            execute("%installer_home%%dir_separator%d2kr2vrf.usr");

            if(install_component)
                total_sum = total_sum  + verify(COMPONENT_PRODUCT);
        }
        /*******************************************/
      hostname = win32_get_computer_name();
      set("reports__server_name","Rep60_%hostname%%oracle_home_group1%",'GLOBAL);
      set("reports__server_name","Rep60_%hostname%%oracle_home_group1%",'LOCAL);
	set("port_number", "1949",'LOCAL); 
	set("port_number", "1049",'GLOBAL); 
 
      values_proper = FALSE;
      while(not(values_proper))
      {
	rmts_prompt = nls("rmts_prompt","Enter details to identify the Reports Server on this machine.");
	reports_server_string = nls("reports_server_string", "Reports Server TNS Name:");
	port_string = nls("port_string", "Port:");
#IDs
    IDTIT = 1;
    IDCLB = 3;
    IDHLB = 4;
    IDCEN = 5;
    IDHPD = 6;
    IDHVL = 7;

    ITEMTIT1 = list(IDTIT, list('UI_LABEL, list(5, 5, 450, 40), rmts_prompt, 'MULTILINE));
    ITEMCLB  = list(IDCLB, list('UI_LABEL, list(20, 60, 130, 40), reports_server_string));
    ITEMHLB  = list(IDHLB, list('UI_LABEL, list(20, 110, 130, 40), port_string));
    ITEMCEN = list(IDCEN, list('UI_ENTRY, list(160, 60, 300, 20), reports__server_name));
    ITEMHPD = list(IDHPD, list('UI_ENTRY, list(160, 110, 50, 20), port_number));
    spec = list(ITEMTIT1, ITEMCLB, ITEMHLB, ITEMCEN);

    add(spec, ITEMHPD);

    rmts_server_content = nls("rmts_server_content",
                                   "Reports Server parameters");
    rmts_server_help = nls("rmts_server_help",
                                   "Reports Server parameters

When the Oracle Reports Server is started up, it must be given a name to identify it. This is the 'Reports Server TNS Name', and it must be defined as an Oracle Net8 TNS name. The installation process will define such a name for you in the Net8 tnsnames.ora file. 

Reports Server TNS Name: Enter the name by which the Reports Server process will be known on this machine. 

Port: Enter the TCP/IP port number which the server will use.  The displayed value need only be changed if it is already being used by another program.");

    report_server_choices = custom_dialog(spec, list(), 
					rmts_server_content,
                                        rmts_server_help);
	
	reports__server_name = get_UI_value(report_server_choices,IDCEN, 'UI_ENTRY);


	set("reports__server_name", reports__server_name,'LOCAL); 
	set("reports__server_name", reports__server_name,'GLOBAL); 

	if(reports__server_name == "0")
	   values_proper = TRUE;
	port_number = get_UI_value(report_server_choices,IDHPD, 'UI_ENTRY);
	{
	  numerify(port_number);
	  values_proper = TRUE;
	}
	['LEXICAL_ERROR: {values_proper = FALSE; continue();} ]

	set("port_number", port_number,'LOCAL); 
	set("port_number", port_number,'GLOBAL); 
	
	if(not(values_proper))
	{
	   not_correct_values = nls("not_correct_values","Reports Server TNS Name and Port must be entered. 

Port must be numeric.");
	   information_dialog(not_correct_values);
	}
    }


        /*****************************************************************************
        Register the Reports Server Name in a file called %INSTALLER_HOME%\repname.cfg
	It will also try to remove possible reports server started.
        ******************************************************************************/
        reports_server_name_file = "%INSTALLER_HOME%\repname.cfg";
	if(exists(reports_server_name_file))
	{
	  if(exists("%ORACLE_HOME%\bin\rwmts60.EXE"))
          {
	    reports_server = translate("reports_server_name", reports_server_name_file);
	    temp_var=current_directory();
	    change_directory("%ORACLE_HOME%\bin");
            spawnerror = spawn("rwmts60 -uninstall %reports_server% batch=yes");
            spawnerror = spawn("rwmts60 -uninstall %reports__server_name% batch=yes ");
	    change_directory("%temp_var%");
	  }
	}
	else
	{
          create_file(reports_server_name_file);
	  if(exists("%ORACLE_HOME%\bin\rwmts60.EXE"))
          {
	    temp_var=current_directory();
	    change_directory("%ORACLE_HOME%\bin");
            spawnerror = spawn("rwmts60 -uninstall %reports__server_name% batch=yes ");

	    change_directory("%temp_var%");
	  }
	}
        modify("reports_server_name", "%reports__server_name%",reports_server_name_file); 
        

        /*************************************************/
        total_sum = total_sum + sum(deinst, exe,dll,user,java);

        return(total_sum);
        /**************************************************/
    }
    else
    {
        refresh_map_file = FALSE;
        return(0);
    }
}