/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    cgenv61.ins - V3.1.2 installation script for
                   Oracle Designer/2000 Visual Basic Generator 1.0

  DESCRIPTION
    This script installs Oracle Designer/2000 Visual Basic Generator 1.0

  OWNER
    Jeremy Williams

  MODIFIED    DD-MMM-YY  Reason

*****************************************************************************/
{
  {
  start_ins_list = list(current_script, 'DEBUG_CGENV61, "cgenv61.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 = "cgenv61.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);

          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);
              copy(vbmsb);
              copy(vbmsb_nls,nls_abbreviation);
              copy(vb5msb);
              copy(vb5msb_nls,nls_abbreviation);

              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_etc));
              copy(etc,language_subgroup);
              copy(etc_ja,language_subgroup);

              ui_action(instantiate(installing_tmpt));
              copy(tmpt1,language_subgroup);
              copy(tmpt2,language_subgroup);
              copy(tmptc,language_subgroup);
              copy(vb5tmpt1,language_subgroup);
              copy(vb5tmpt2,language_subgroup);
              copy(vb5tmptc,language_subgroup);
              copy(tmpt1_ja,language_subgroup);
              copy(tmpt2_ja,language_subgroup);
              copy(tmptc_ja,language_subgroup);
              copy(vb5tmpt1_ja,language_subgroup);
              copy(vb5tmpt2_ja,language_subgroup);
              copy(vb5tmptc_ja,language_subgroup);

              ui_action(instantiate(installing_vblib));
              copy(vblib,language_subgroup);
              copy(vb5vblib,language_subgroup);
              copy(vblib_ja,language_subgroup);
              copy(vb5vblib_ja,language_subgroup);

              ui_action(instantiate(installing_tpl));
              copy(tpl,language_subgroup);
              copy(tpl_ja,language_subgroup);
            }

          copy_file(LM_VB5_NLS_FILE, LM_VB5_GENERIC_FILE);
          copy_file(LM_VB_NLS_FILE,  LM_VB_GENERIC_FILE);

        }

      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 */
        add(case_modify_list,list("DES2K_BULLETINS",           "", ora_config, ini_section));

        /* new variables */

        add(case_modify_list,list("CGENV61",                   "%CGENV61%",                     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("SERVER_API_VB_GEN61",       "4.0.12.96.16",                     ora_config, ini_section));

        add(case_modify_list,list("DES2_CGENV61_TRACE_FILE",   "",                              ora_config, ini_section));
        add(case_modify_list,list("DES2_CGENV61_DIAG_LEVEL",   "",                              ora_config, ini_section));

        add(case_modify_list,list("DOM_VBG.GENERATE.FUNCTION",           "cvma_main",           ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_VBG.DESIGN_RECOVERY.FUNCTION",    "cvsma_main",          ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_modify_list,list("DOM_VBG.APP_LOGIC_RECOVERY.FUNCTION", "cvrma_main",          ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

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

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

        add(case_execute_list,list("DOM_VBG.GENERATE.DLL",             "vbgen",                 bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_VBG.DESIGN_RECOVERY.DLL",      "vbs",                   bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));
        add(case_execute_list,list("DOM_VBG.APP_LOGIC_RECOVERY.DLL",   "vbr",                   bin, ora_config, ini_section, 'INI_SECTION, 'DES2_72_SECTION));

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

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

      case_graphics_file = "cgenv61.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");

}