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