/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    cgenr61.ins - V3.1.2 installation script for
                   Oracle Designer/2000 Generator for Reports 2.5.0

  DESCRIPTION
    This script installs Oracle Designer/2000 Generator for Reports 2.5.0

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason
    jewillia  03-JUL-95  Different oracle.ini groups for shared oracle
    jewillia  07-NOV-94  Created

*****************************************************************************/
{
  {
  start_ins_list = list(current_script, 'DEBUG_CGENR61, "cgenr61.bmp");
  EXECUTE_SCRIPT = "START.INS";
  execute("%product_home%\des2k_72.ins");

  if (doit)
    {
      ui_product(product_label);
      ui_action(instantiate(installing_product));

      ins_ratchet = "7.2.96.5.6";

      EXECUTE_SCRIPT = "INSTALL_DEPENDENCIES.INS";
      execute("%product_home%\des2k_72.ins");

      case_graphics_file = "cgenr61.bmp";
      EXECUTE_SCRIPT = "DES2_BB.DIS";
      execute("%product_home%\des2k_72.ins");

      EXECUTE_SCRIPT = "DES2_START_COPY.INS";
      execute("%product_home%\des2k_72.ins");

      ui_action(instantiate(removing_old));
      EXECUTE_SCRIPT = "DES2_OLD.INS";
      execute("%product_home%\des2k_72.ins");

      if (case_install_files)
        {
          ui_action(instantiate(installing_deinstl));
          copy(deinstl,nls_abbreviation);
          copy(product);

          ui_action(instantiate(installing_registry));
          copy(regfile);

          if (patch_installation)
            {
              ui_action(instantiate(installing_patchset));
              copy(patchset);
              copy(bin);
              copy(ldll,"%language_subgroup%");
              copy(ldll_ja,"%language_subgroup%");
            }
          else if (not(case_registry_only_install))
            {
              ui_action(instantiate(installing_msb));
              copy(msb);

              ui_action(instantiate(installing_ini));
              copy(ini);

              ui_action(instantiate(installing_bin));
              copy(bin);
              copy(ldll,"%language_subgroup%");
              copy(ldll_ja,"%language_subgroup%");

              ui_action(instantiate(installing_main));
              copy(main);

              ui_action(instantiate(installing_admin));
              copy(admin);
              copy(admin_ja,language_subgroup);
            }
        }

      if (case_install_patch_files)
        {
          EXECUTE_SCRIPT = "INSPATCH.INS";
          execute("%product_home%\des2k_72.ins");
        }

      EXECUTE_SCRIPT = "DES2_END_COPY.INS";
      execute("%product_home%\des2k_72.ins");

      EXECUTE_SCRIPT = "INSTALL_CHILDREN.INS";
      execute("%product_home%\des2k_72.ins");

      ui_action(instantiate(modify_environment));
      ini_section = product_filename(current_product);

      {
        /* simple variable modification */
        case_modify_list = list();

        /* remove old variables */

        /* new variables */

        add(case_modify_list,list("CGENR61",                             "%CGENR61%",                 ora_config, ini_section, 'INI_SECTION, 'TOP_LEVEL));


        /* These are set in the user.avf */
        add(case_modify_list,list("DES2K_R61_BULLETINS",                     "%DES2K_R61_BULLETINS%",         ora_config, ini_section, 'INI_SECTION, 'TOP_LEVEL));

        add(case_modify_list,list("DOM_ORG.GENERATE.FUNCTION",           "_crra_main@24",             ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_ORG.DESIGN_RECOVERY.FUNCTION",    "_crda_main@24",             ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_ORG.SHOW_SQL.FUNCTION",           "_crrc_main@24",             ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_ORG.VALIDATE.FUNCTION",           "_crrd_main@24",             ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_ORG.APP_LOGIC_RECOVERY.FUNCTION", "_crdb_main@24",             ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

        add(case_modify_list,list("CRU_UTILITY_MSG_DATA",               "CDG,CGENR61",                                 ora_config, ini_section, 'REPCOM61_SECTION));

        EXECUTE_SCRIPT = "MODIFY_VARIABLES.CMN";
        execute("%product_home%\des2k_72.ins");
      }

      {
        /* execute_variables */
        case_execute_list = list();

        add(case_execute_list,list("DOM_ORG.GENERATE.DLL",               "rgen",                bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_ORG.DESIGN_RECOVERY.DLL",        "rgenr",               bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_ORG.SHOW_SQL.DLL",               "rgen",                bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_ORG.VALIDATE.DLL",               "rgen",                bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_ORG.APP_LOGIC_RECOVERY.DLL",     "rgenr",               bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

        EXECUTE_SCRIPT = "MODIFY_EXECUTE.INS";
        execute("%product_home%\des2k_72.ins");
      }

      /* path modification */
      case_add_list = list();

      {
        report60_registration = registration(report60_registry_name);
        report60_ini_section = registry_filename(report60_registration);
      }
      ['UNBOUND_VARIABLE, 'UNBOUND_ENVIRONMENT_VARIABLE, 'UNREGISTERED_PRODUCT:
        report60_ini_section = report60_registry_filename;
      ]
      add(case_add_list,list("REPORTS60_PATH", "%CGENR61%\ADMIN", ora_config, report60_ini_section,'TOP_LEVEL));
      add(case_add_list,list("REPORTS60_PATH", "%CGENR61%\ADMIN\CRRETC", ora_config, report60_ini_section,'TOP_LEVEL));

      EXECUTE_SCRIPT = "MODIFY_ADD.INS";
      execute("%product_home%\des2k_72.ins");

      if (not(CGENR61_REGISTRY_FILE == ""))
      {
        /*
        {spawn("%EXECUTE_REGEDIT% %CGENR61_REGISTRY_FILE%");}
        ['NO_RESPONSE: continue();]
        */
        case_regedit_list = list(CGENR61_REGISTRY_FILE);
        EXECUTE_SCRIPT = "DES2_REGEDIT.INS";
        execute("%product_home%\des2k_72.ins");
      }

      case_dependency_msg_list = list(evaluate("case_install_dev2000_dependencies",'GLOBAL), cgenr61_dev2000_builder_dependency_list, case_dependency_msg_message);
      EXECUTE_SCRIPT = "DEPENDENCY_MSG.INS";
      /* execute("%product_home%\des2k_72.ins"); */ /* this message no longer required */

      ui_action(instantiate(registering_product));
      EXECUTE_SCRIPT = "DES2_REF.INS";
      execute("%product_home%\des2k_72.ins");

      case_graphics_file = "cgenr61.bmp";
      EXECUTE_SCRIPT = "DES2_BB.REM";
      execute("%product_home%\des2k_72.ins");

    }

  }
  [
    'UNREGISTERED_PRODUCT: continue();
    'CANCEL: signal('FAILURE, instantiate(halt_installation));
  ]

  EXECUTE_SCRIPT = "END.INS";
  execute("%product_home%\des2k_72.ins");

}