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