home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 44.ddi / SPXC11.VRF < prev    next >
Encoding:
Text File  |  1993-03-17  |  4.4 KB  |  93 lines
  1. /* Copyright (c) Oracle Corporation 1992, 1993.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     spxc11.vrf - OS/2 V3 installation verification script for SQL*Net SPX.
  5.  
  6.   DESCRIPTION
  7.     This script checks dependencies and environment settings for installation
  8.     of the OS/2 SQL*Net SPX product (client version).
  9.  
  10.   VERSION
  11.     1.1.1.6
  12.  
  13.   OWNER
  14.     Tony Rodgers
  15.  
  16.   MODIFIED    DD-MMM-YY Reason
  17.     trodgers  10-APR-92 Created.
  18.     Calvin    02-FEB-93 Modified for standalone install.
  19. *****************************************************************************/
  20. {
  21. /*****************************************************************************
  22.    Set up strings for NLS ...
  23. *****************************************************************************/
  24.   net1_analyze_comment = nls("net1 analyze comment","Analyzing %%product_label%% Dependencies...");    
  25.   net1_install_scripts = nls("net1 install scripts","Installing %%product_label%% Installation Scripts...");
  26.   net1_install_dlls = nls("net1 install dlls","Installing %%product_label%% DLLs...");
  27.   net1_register_label = nls("net1 register label","Registering %%product_label%%...");
  28.   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%%?");
  29.   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.");
  30.   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.");
  31.   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?");
  32.   net1_reinstall_prompt05 = nls("net1 reinstall prompt05","WARNING: %%product_label%% will replace %%alt_registry_label%%.  Are you sure you want to do this?");
  33.   net1_reinstall_prompt06 = nls("net1 reinstall prompt06","Removing %%alt_registry_label%%...");
  34.  
  35. /*****************************************************************************
  36.    Bind string constants ...
  37. *****************************************************************************/
  38.   product = os2spxc11;
  39.   product_label = product_interface_label(product);
  40.   alt_product_name = "os2spxs11";
  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.   alt_remove = FALSE;
  78.   if (doit)
  79.       if (registered(alt_product_name))
  80.         {
  81.             alt_registry = registration(alt_product_name);
  82.             alt_registry_label = registry_interface_label(alt_registry);
  83.             doit = yesno_dialog(instantiate(net1_reinstall_prompt05));
  84.             if (doit)
  85.             alt_remove = TRUE;
  86.         }
  87.  
  88.   if (doit)
  89.     return(sum(dll,deinstl));
  90.   else
  91.     return(0);                      /* return 0 if doit not TRUE */
  92. }                                   /* end .VRF   */
  93.