home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 46.ddi / RSF70.VRF < prev    next >
Encoding:
Text File  |  1993-03-10  |  4.5 KB  |  127 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     winrsf70.vrf - V3.0.8.0 version analysis/product configuration script
  5.                    for Windows Required Support Files 7.0.
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for the
  9.     installation of Windows Required Support Files.
  10.  
  11.   OWNER
  12.     Edan Kabatchnik
  13.  
  14.   MODIFIED    DD-MMM-YY  Reason
  15.     akelley   26-OCT-92  Added RDBMS70.
  16.     handrus   16-SEP-92  Fixed.
  17.     ekabatch  07-MAR-92  Normalized.
  18.     ekabatch  28-JAN-92  Created.
  19. *****************************************************************************/
  20. /*****************************************************************************
  21.    Bind string variables & prompt strings...
  22. *****************************************************************************/
  23. {
  24.   product = winrsf70;
  25.   product_label = product_interface_label(product);
  26.  
  27.   {
  28.     set_rdbms70 = false;
  29.     rdbms70 = v7_translate("rdbms70");
  30.  
  31.     {
  32.       if (not(exists(rdbms70)))
  33.         signal('UNBOUND_ENVIRONMENT_VARIABLE);
  34.     }
  35.       [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  36.         'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  37.         'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  38.   }
  39.     [
  40.       'UNBOUND_ENVIRONMENT_VARIABLE:
  41.         {
  42.           rdbms70 = "%oracle_home%\rdbms70";
  43.           set_rdbms70 = true;
  44.         }
  45.     ]
  46.  
  47.   {
  48.     set_pro15 = false;
  49.     pro15 = v7_translate("pro15");
  50.  
  51.     {
  52.       if (not(exists(pro15)))
  53.         signal('UNBOUND_ENVIRONMENT_VARIABLE);
  54.     }
  55.       [ 'OS_ERROR: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  56.         'INVALID_FILE_NAME: signal('UNBOUND_ENVIRONMENT_VARIABLE);
  57.         'PERMISSION_DENIED: signal('UNBOUND_ENVIRONMENT_VARIABLE); ]
  58.   }
  59.     [
  60.       'UNBOUND_ENVIRONMENT_VARIABLE:
  61.         {
  62.           pro15 = "%oracle_home%\pro15";
  63.           set_pro15 = true;
  64.         }
  65.     ]
  66.  
  67. /*****************************************************************************
  68.    Start main logic...
  69. *****************************************************************************/
  70.   ui_product(product_label);
  71.   ui_action( instantiate( nls("analyze_depend","Analyzing %%product_label%% Dependencies...") ) );
  72.  
  73.   doit = TRUE;
  74.  
  75. /*****************************************************************************
  76.    Check if the product has already been installed...
  77. *****************************************************************************/
  78. mark
  79.   if (registered(product_name(product)))
  80.     {
  81.       registry = registration(product_name(product));
  82.       current_version = product_version(product);
  83.       installed_version = registry_version(registry);
  84.  
  85.       if (earlier_version(registry,current_version))
  86.         {
  87.           doit = yesno_dialog(instantiate(reinstall_prompt01));
  88.  
  89.           if (not(doit))
  90.             if (internally_called)
  91.               information_dialog(instantiate(reinstall_prompt02));
  92.         }
  93.       else if (not(internally_called))
  94.         if (later_version(registry,current_version))
  95.           doit = yesno_dialog(instantiate(reinstall_prompt03));
  96.         else
  97.           doit = yesno_dialog(instantiate(reinstall_prompt04));
  98.       else
  99.         doit = FALSE;
  100.     }
  101. /*****************************************************************************
  102.      Return total size of files depending upon which options were selected
  103.      for installation ...
  104. *****************************************************************************/
  105.  
  106.   if (doit)
  107.     {
  108.       installing_scripts = nls("installing_scripts",
  109.                                "Installing %%product_label%% Scripts...");
  110.       installing_dlls = nls("installing_dlls",
  111.                                "Installing %%product_label%% Dynamic Link Libraries...");
  112.       installing_executables = nls("install_executables",
  113.                                "Installing %%product_label%% Executables...");
  114.       installing_sql = nls("installing_sql",
  115.                                "Installing %%product_label%% SQL Scripts...");
  116.       installing_msbs = nls("installing_msbs",
  117.                                "Installing %%product_label%% Message Files...");
  118.       modifying_config = nls("modifying_config",
  119.                                "Modifying %%ora_config%%...");
  120.       registering = nls("registering","Registering %%product_label%%...");
  121.  
  122.       return( sum( deinstl, dll, exe, msg, sql ) );
  123.     }
  124.   else
  125.     return(0);
  126. }
  127.