PC World Komputer 1996 February/PCWK0296.iso/gc25ptch/gui25.vrf

Text File | 1995-05-02 | 7.2 KB | 173 lines

/* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
/*****************************************************************************
  NAME
    gui25.vrf - V3 version analysis/product configuration script for
                GUI Common Files 2.5.

  DESCRIPTION
    This script checks dependencies and environment settings for the GUI
    Common Files.

  OWNER
    Rajesh Bansal

  MODIFIED   MM/DD/YY   Reason
   bsabol    07/01/94   Modified for CDE2 release.
   rbansal   13-MAY-94  Modified
  dgalatin   22-DEC-93  Made 3.0.10.1 compliant.
   akelley   22-OCT-93  Created.
*****************************************************************************/
{
    reinstall_group            = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date.  Do you want to reinstall it?");
    reinstall_group_help    = nls("reinstall_group_help","You selected to install %%product_label%%, which is up to date.  Unless a problem has occurred with %%product_label%%, there is no need to reinstall.  Choose 'No' to skip the reinstallation, or choose 'Yes' if you want to reinstall %%product_label%%.");
    reinstall_group_content   = nls("reinstall_group_content","Up To Date");

    { doit = execute("%product_home%\par_vrf.usr"); }
    [
        'UNBOUND_VARIABLE:
        {
    information_dialog("inside vrf");
                required_version = product_version(windowsinstver);
                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.9.x installer to exit gracefully. */

    if (doit)
    {
        /*************************
           Set Product Name variables
        **************************/
        RSF_PRODUCT = winrsf71;

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

        if(member(products_for_installation,current_product))         /* This cancels the Required Products DLOG */
            extract(products_for_installation,current_product);

        /************************************************
        Create a label with the product, version, and OS
        ************************************************/
        current_version = product_version(current_product);
        version_list    = explode(current_version,".");
        msb_version_list= list(first(version_list),
                               first(rest(version_list)));

        display_version = implode(msb_version_list,".");

/* LMurphy - 04/12/95 - taken from user.avf for Tools products */

        display_product_label   = "%%product_label%% %%display_version%%";

    install_dei               = nls("install_dei", "Installing %%product_label%% Installation Scripts...");
    install_exe               = nls("install_exe", "Installing %%product_label%% Executables...");
    install_res               = nls("install_res", "Installing %%product_label%% Resource Files...");
    install_msb               = nls("install_msb", "Installing %%product_label%% Message Files...");
    install_dll               = nls("install_dll", "Installing %%product_label%% Dynamic Link Libraries...");
    modify_variables          = nls("modify_variables", "Modifying %%product_label%% Environment Variables...");
    install_dependencies      = nls("install_dependencies", "Installing %%product_label%% Dependencies...");
    install_register          = nls("install_register", "Registering %%product_label%%...");
    reference_dependencies    = nls("reference_dependencies","Referencing %%product_label%% Dependencies...");
    halt_installation         = nls("halt_installation", "Cancelled installation at user's request...");
    rsf_version_msg           = nls("rsf_version_msg","This product requires the installation of Required Support Files 7.1.4.0.1 or later.  The Required Support Files that you have installed is earlier than this.  Please install Required Support Files 7.1.4.0.1 or later and then proceed with the installation of %%product_label%%.");


        /**********************************************************************
        Bind path variables...
        ***********************************************************************/
        {
            set_tk21 = false;
            tk21     = v7_translate("tk21");

            if (not(exists(tk21)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
        'OS_ERROR,'INVALID_FILE_NAME,
            'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
            {
                tk21 = "%ORACLE_HOME%\CDE2";
                set_tk21 = true;
            }
        ]

        /***************************************************
        Set tk21_icon variable in oracle.ini for extra icons
        ****************************************************/
        {
            tk21_icon     = "%ORACLE_HOME%\CDE2\ICONS";
            set_tk21_icon = true;
        }

        {
            set_mm20 = false;
            mm20 = v7_translate("mm20");

            if (not(exists(mm20)))
                signal('UNBOUND_ENVIRONMENT_VARIABLE);
        }
        [
        'OS_ERROR,'INVALID_FILE_NAME,
            'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
            {
                mm20 = "%ORACLE_HOME%\CDE2";
                set_mm20 = true;
            }
        ]

        sys_loc   = windows_system_directory();
        prod_loc  = product_location(current_product);
        media_loc = "%product_home%\%prod_loc%";

        /* Check CTL3D.DLL */
          ctl3d_file = 0;

        new_file = "%media_loc%\ctl3d.dll";
        installed_file = "%sys_loc%\ctl3d.dll";
        install_ctl3d = FALSE;

        {
            installed_file_version = windows_file_version(instantiate(installed_file));

            if(not(windows_earlier_version(new_file, installed_file_version)))
            {
                install_ctl3d = TRUE;
                ctl3d_file = ctl3d_file + sum(ctl3d);
            }
        }
        ['OS_ERROR: install_ctl3d = TRUE;]

        /* Check CTL3DV2.DLL */
        ctl3dv2_file = 0;

         new_file = "%media_loc%\ctl3dv2.dll";
        installed_file = "%sys_loc%\ctl3dv2.dll";
        install_ctl3dv2 = FALSE;

        {
            installed_file_version = windows_file_version(instantiate(installed_file));

            if(not(windows_earlier_version(new_file, installed_file_version)))
            {
                install_ctl3dv2 = TRUE;
                ctl3dv2_file = ctl3dv2_file + sum(ctl3dv2);
            }
        }
        ['OS_ERROR: install_ctl3dv2 = TRUE;]

        return(sum(deinst, exe, dll, res, msg) + ctl3d_file + ctl3dv2_file + verify(RSF_PRODUCT));
    }
    else
    {
        refresh_map_file = FALSE;
        return(0);
    }
}