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