home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 51.ddi / UTIL70.VRF < prev   
Encoding:
Text File  |  1993-03-22  |  3.8 KB  |  100 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     util70.vrf - NetWare V3 installation verification script for the ORACLE
  5.                  version 7 utils.
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for installation
  9.     of the ORACLE version 7 utilities.
  10.  
  11.   OWNER
  12.     Tony Rodgers
  13.  
  14.   MODIFIED    DD-MMM-YY Reason
  15.      kschrait   02/26/93 - Created
  16. *****************************************************************************/
  17. {
  18. /*****************************************************************************
  19.   Bind string constants ...
  20. *****************************************************************************/
  21.   /* Is RDBMS70 is already there and is it pointing to a valid directory? */
  22.   {
  23.     rdbms70 = translate("RDBMS70","%SERVER%\SYS:SYSTEM\CONFIG.ORA");
  24.  
  25.     if (not(exists(rdbms70)))
  26.       signal('UNBOUND_ENVIRONMENT_VARIABLE);
  27.   }
  28.     [ 'UNBOUND_ENVIRONMENT_VARIABLE: rdbms70 = "%oracle_home%\RDBMS70";
  29.       'READ_ERROR                  : rdbms70 = "%oracle_home%\RDBMS70"; ]
  30.  
  31.   product = nwutil70;
  32.   product_label = product_interface_label(product);
  33.  
  34. /*****************************************************************************
  35.    Start processing ...
  36. *****************************************************************************/
  37.   ui_product(product_label);
  38.  
  39.   ui_action( instantiate( nls("analyze_depend","Analyzing %product_label% Dependencies...") ) );
  40.  
  41.   doit = true;
  42.  
  43.   mark
  44.   {
  45. /*****************************************************************************
  46.    Check if the product has already been installed ...
  47. *****************************************************************************/
  48.  
  49.     if (registered(product_name(product)))
  50.     {
  51.       registry = registration(product_name(product));
  52.       current_version = product_version(product);
  53.       installed_version = registry_version(registry);
  54.  
  55.       if (earlier_version(registry,current_version))
  56.       {
  57.         doit = yesno_dialog(instantiate(reinstall_prompt01));
  58.  
  59.         if (not(doit))
  60.           if (internally_called)
  61.             information_dialog(instantiate(reinstall_prompt02));
  62.       }
  63.       else if (not(internally_called))
  64.          if (later_version(registry,current_version))
  65.            doit = yesno_dialog(instantiate(reinstall_prompt03));
  66.          else
  67.            doit = yesno_dialog(instantiate(reinstall_prompt04));
  68.       else
  69.         doit = FALSE;
  70.     }
  71.   }
  72. /*****************************************************************************
  73.      Return total size of files ...
  74. *****************************************************************************/
  75.  
  76.   if (doit)
  77.     {
  78.       installing_scripts = nls("installing_scripts",
  79.                                "Installing %%product_label%% Scripts...");
  80.       installing_nlms = nls("installing_nlms",
  81.                                "Installing %%product_label%% NLMs...");
  82.       installing_msbs = nls("installing_msbs",
  83.                                "Installing %%product_label%% Message Files...");
  84.       installing_res = nls("installing_res",
  85.                                "Installing %%product_label%% Resource Files...");
  86.       installing_demo = nls("installing_demo",
  87.                                "Installing %%product_label%% Demonstration Files...");
  88.       modifying_server_config = nls("modifying_server_config",
  89.                                "Modifying %%server%%/%%ora_config%%...");
  90.       modifying_init_ora = nls("modifying_init_ora",
  91.                                "Modifying %%RDBMS70%%\INIT.ORA");
  92.       registering = nls("registering","Registering %%product_label%%...");
  93.  
  94.  
  95.       return( sum( deinstl, nlm, msg, nls_abbreviation, res, demo ) );
  96.     }
  97.   else
  98.     return(0);
  99. }
  100.