home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 30.ddi / SPXC11.VRF < prev    next >
Encoding:
Text File  |  1993-03-17  |  4.0 KB  |  82 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     spxc11.vrf - DOS V3 installation verification script for SQL*Net SPX.
  5.  
  6.   DESCRIPTION
  7.     This script checks dependencies and environment settings for installation
  8.     of the DOS SQL*Net SPX product.
  9.  
  10.   VERSION
  11.     1.1.1.0A
  12.  
  13.   OWNER
  14.     Tony Rodgers
  15.  
  16.   MODIFIED    DD-MMM-YY Reason
  17.     trodgers  10-APR-92 Created.
  18.     Calvin    21-FEB-93 Modified for standalone install.
  19.     Calvin    22-FEB-93 Port to Windows
  20.     Calvin    23-FEB-93 Port to DOS
  21. *****************************************************************************/
  22. {
  23. /*****************************************************************************
  24.    Set up strings for NLS ...
  25. *****************************************************************************/
  26.   net1_analyze_comment = nls("net1 analyze comment","Analyzing %%product_label%% Dependencies...");    
  27.   net1_install_scripts = nls("net1 install scripts","Installing %%product_label%% Installation Scripts...");
  28.   net1_install_exes = nls("net1 install exes","Installing %%product_label%% real-mode executable...");
  29.   net1_install_pxes = nls("net1 install pxes","Installing %%product_label%% protected-mode executable...");
  30.   net1_register_label = nls("net1 register label","Registering %%product_label%%...");
  31.   net1_reinstall_prompt01 = nls("net1 reinstall prompt01","The currently installed version of %%product_label%%, %%installed_version%%, is out of date. The most current version is %%current_version%%. Do you wish to update %%product_label%%?");
  32.   net1_reinstall_prompt02 = nls("net1 reinstall prompt02","WARNING: Not installing the latest version of %%product_label%%, %%current_version%%, may cause other Oracle products to work improperly.");
  33.   net1_reinstall_prompt03 = nls("net1 reinstall prompt03","WARNING: The currently installed version of %%product_label%%, %%installed_version%%, is up to date. Are you sure you want to install the old version, %%current_version%%?  Doing so may cause other Oracle products to work improperly.");
  34.   net1_reinstall_prompt04 = nls("net1 reinstall prompt04","Version %%installed_version%% of %%product_label%% has already been installed and is up to date. Would you like to reinstall it?");
  35.  
  36. /*****************************************************************************
  37.    Bind string constants ...
  38. *****************************************************************************/
  39.   product = dosspx11;
  40.   product_label = product_interface_label(product);
  41.  
  42. /*****************************************************************************
  43.    Start main logic ...
  44. *****************************************************************************/
  45.   ui_product(product_label);
  46.   ui_action(instantiate(net1_analyze_comment));
  47.  
  48.   doit = TRUE;
  49.  
  50. /*****************************************************************************
  51.    Check if the product has already been installed ...
  52. *****************************************************************************/
  53.  
  54.   if (registered(product_name(product)))
  55.     {
  56.       registry = registration(product_name(product));
  57.       current_version = product_version(product);
  58.       installed_version = registry_version(registry);
  59.  
  60.       if (earlier_version(registry,current_version))
  61.         {
  62.           doit = yesno_dialog(instantiate(net1_reinstall_prompt01));
  63.  
  64.           if (not(doit))
  65.             if (internally_called)
  66.               information_dialog(instantiate(net1_reinstall_prompt02));
  67.         }
  68.       else if (not(internally_called))
  69.         if (later_version(registry,current_version))
  70.           doit = yesno_dialog(instantiate(net1_reinstall_prompt03));
  71.         else
  72.       doit = yesno_dialog(instantiate(net1_reinstall_prompt04));
  73.       else
  74.         doit = FALSE;
  75.     }
  76.  
  77.   if (doit)
  78.     return(sum(exe,pxe,deinstl));
  79.   else
  80.     return(0);                      /* return 0 if doit not TRUE */
  81. }                                   /* end .VRF   */
  82.