/* Copyright (c) Oracle Corporation 1992, 1996.  All Rights Reserved */
/***************************************************************************
  NAME
    Dbase.ins - Installation script for Intersolv Datadirect Drivers

  DESCRIPTION
    This script installs the Dbase Datadirect Drivers package.

  MODIFIED    MM/DD/YY    Reason
  pgupta      11/18/97    Created
 **************************************************************************/
{
    if(doit)
    {
        /*****************************
        Set the VRF-INS script ratchet
        ******************************/
        ins_ratchet = "2.0.0.0.0";

        execute("%installer_home%%dir_separator%%operating_system%.ins");

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;

        win32_register_OCSM_product();

        /****************************************
        Set Installer to only copy files that
        are newer than those previously installed
        *****************************************/

        permit_invisible_registrations = FALSE;
        overwrite_mode = 'UPDATE;

                copy(deinst);


        /************************************************************
        Delete the Old Program Group if present and Install the new
        Program Group
        *************************************************************/

        if(exists("%WINDOWS_SYS_DIR%\D2DBF09.DLL"))
        {
          D2K60_DRIVERS = D2K60_DRIVERS_OLD;
          windows_delete_icons(dbase);
          windows_delete_icons(shrdll);
          D2K60_DRIVERS = D2K60_DRIVERS_NEW;
        }
        /************************************************************/
                copy(dbase);
                copy(shrdll,"dbase");
                win32_register_OCSM_group(shrdll,"dbase",'MEDMODE);
                register(dbase_prod);
                reference(dbase_prod);
                {win32_asynchronous_spawn("%installer_home%%dir_separator%d2drvins.exe dBase");}
                ['NO_RESPONSE: continue();]
        permit_retry_operations = FALSE;
        permit_invisible_registrations = TRUE;

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

}