home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 51.ddi / RDBMS70.VRF < prev    next >
Encoding:
Text File  |  1993-03-22  |  8.2 KB  |  182 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     rdbms70.vrf - NetWare V3 installation verification script for the ORACLE
  5.                   version 7 rdbms.
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for installation
  9.     of the ORACLE version 7 rdbms product and prompts the user for the option
  10.     of creating a seed database.
  11.  
  12.   OWNER
  13.     Tony Rodgers
  14.  
  15.   MODIFIED    DD-MMM-YY Reason
  16.     Mpollak   12/03/92 - made change to MSGSZ
  17.     psciarra  03-DEC-92 set install_seed_database to FALSE, default value.
  18.     vokamura  22-NOV-92 update
  19.     trodgers  01-APR-92 Created.
  20.     trodgers  26-JUN-92 Modified for NetWare V7.
  21. *****************************************************************************/
  22. {
  23. /*****************************************************************************
  24.   Bind string constants ...
  25. *****************************************************************************/
  26.   /* Is RDBMS70 is already there and is it pointing to a valid directory? */
  27.   {
  28.     rdbms70 = translate("RDBMS70","%SERVER%\SYS:SYSTEM\CONFIG.ORA");
  29.  
  30.     if (not(exists(rdbms70)))
  31.       signal('UNBOUND_ENVIRONMENT_VARIABLE);
  32.   }
  33.     [ 'UNBOUND_ENVIRONMENT_VARIABLE: rdbms70 = "%oracle_home%\RDBMS70";
  34.       'READ_ERROR                  : rdbms70 = "%oracle_home%\RDBMS70"; ]
  35.  
  36.   /* Is PLSQL20 is already there and is it pointing to a valid directory? */
  37.   {
  38.     plsql20 = translate("PLSQL20","%SERVER%\SYS:SYSTEM\CONFIG.ORA");
  39.  
  40.     if (not(exists(plsql20)))
  41.       signal('UNBOUND_ENVIRONMENT_VARIABLE);
  42.   }
  43.     [ 'UNBOUND_ENVIRONMENT_VARIABLE: plsql20 = "%oracle_home%\PLSQL20";
  44.       'READ_ERROR                  : plsql20 = "%oracle_home%\PLSQL20"; ]
  45.  
  46.   product= nwrdbms70;
  47.   product_label = product_interface_label(product);
  48.  
  49.   seed_prompt   = nls("seed_prompt","Would you like to create a new ORACLE database in %RDBMS70%? This will destroy any existing ORACLE database already there.");
  50.   seed_help     = nls("seed_help","You may create a new database manually by following the instructions in the ORACLE RDBMS Database Administrator's Guide, or you can have the installer create one for you automatically by choosing 'YES'. It is recommended that you choose to automatically create a database now. You may enlarge this database at a later time if you wish.");
  51.   seed_content  = nls("seed_content","Seed Database");
  52.   install_seed_database = FALSE;
  53.  
  54.   dist_prompt1  = nls("dist_prompt1","Are you licensed to use the ORACLE7 Distributed Option on this system?");
  55.   dist_prompt2  = nls("dist_prompt2","Do you want to install the Distributed Option at this time?");
  56.   dist_help     = nls("dist_help","You may install the ORACLE7 Distributed Option on this system only if you have purchased a separate license to do so.");
  57.   dist_content  = nls("dist_content","Distributed Option");
  58.  
  59.   exit7_prompt   = nls("exit7_prompt","Caution: Your file server may require certain patch modules from Novell to be loaded before the ORACLE7 Server NLMs, depending on the version of NetWare you are using. Failure to load these modules may cause the server to fail. These modules are provided for you and have been installed in the ORACLE home directory. Please review chapters 2 and 3 of the Installation and User's Guide for ORACLE7 Server for NetWare before attempting to load the ORACLE7 NLMs.");
  60.  
  61.   grp_msg       = nls("grp_msg","Creating a NetWare Group called ORACLE_DBA...");
  62.   grp_name      = "ORACLE_DBA";
  63.  
  64.   reinstall_warning = nls("reinstall_warning","WARNING: It appears that you already have a database installed in %RDBMS70%. Are you SURE you want to overwrite your existing database?");
  65.  
  66. /*****************************************************************************
  67.    Start processing ...
  68. *****************************************************************************/
  69.   ui_product(product_label);
  70.  
  71.   ui_action( nls("analyze_depend","Analyzing %product_label% Dependencies...") );
  72.  
  73.   doit = true;
  74.  
  75.   mark
  76.   {
  77. /*****************************************************************************
  78.    Check if the product has already been installed ...
  79. *****************************************************************************/
  80.  
  81.     if (registered(product_name(product)))
  82.     {
  83.       registry = registration(product_name(product));
  84.       current_version = product_version(product);
  85.       installed_version = registry_version(registry);
  86.  
  87.       if (earlier_version(registry,current_version))
  88.       {
  89.         doit = yesno_dialog(instantiate(reinstall_prompt01));
  90.  
  91.         if (not(doit))
  92.           if (internally_called)
  93.             information_dialog(instantiate(reinstall_prompt02));
  94.       }
  95.       else if (not(internally_called))
  96.         if (later_version(registry,current_version))
  97.           doit = yesno_dialog(instantiate(reinstall_prompt03));
  98.         else
  99.           doit = yesno_dialog(instantiate(reinstall_prompt04));
  100.       else
  101.         doit = FALSE;
  102.     }
  103.  
  104.     if (doit)
  105.     {
  106.       dist_response = "DSOFF";
  107.       if ( yesno_dialog(dist_prompt1,dist_content,dist_help) )
  108.          if ( yesno_dialog(dist_prompt2,dist_content,dist_help) )
  109.            dist_response = "DSON";
  110.  
  111.       mark
  112.       {
  113.         install_seed_database = yesno_dialog(seed_prompt,seed_content,
  114.                                              seed_help);
  115.  
  116.         mark
  117.         {
  118.           if (install_seed_database)
  119.           {
  120.             mark
  121.             {
  122.               if (exists("%rdbms70%\dbs1.ora"))
  123.               {
  124.                 install_seed_database = yesno_dialog(reinstall_warning);
  125.                 if (install_seed_database)
  126.                   comment = nls("with_initial_db","With Initial Database");
  127.                 else
  128.                   comment = nls("with_old_db","With Old Database");
  129.               }
  130.               else
  131.                 comment = nls("with_initial_db","With Initial Database");
  132.             }
  133.           }
  134.           else
  135.             comment = nls("without_initial_db","Without Initial Database");
  136.         }
  137.       }
  138.     }
  139.   }
  140. /*****************************************************************************
  141.      Return total size of files ...
  142. *****************************************************************************/
  143.  
  144.   if (doit)
  145.     {
  146.       installing_scripts = nls("installing_scripts",
  147.                                "Installing %%product_label%% Scripts...");
  148.       installing_nlms = nls("installing_nlms",
  149.                                "Installing %%product_label%% NLMs...");
  150.       installing_patches = nls("installing_patches","Installing Novell Patches...");
  151.       installing_msbs = nls("installing_msbs",
  152.                                "Installing %%product_label%% Message Files...");
  153.       installing_ncf = nls("installing_ncf",
  154.                                "Installing %%product_label%% NCF Files...");
  155.       installing_sql = nls("installing_sql",
  156.                                "Installing %%product_label%% SQL Scripts...");
  157.       installing_plsql = nls("installing_plsql","Installing PL/SQL Files...");
  158.       installing_demo = nls("installing_demo",
  159.                                "Installing %%product_label%% Demonstration Files...");
  160.       installing_doc = nls("installing_doc",
  161.                                "Installing %%product_label%% Documentation Files...");
  162.       installing_seed = nls("installing_seed",
  163.                                "Installing Initial (Seed) Database...");
  164.       modifying_server_config = nls("modifying_server_config",
  165.                                "Modifying %%server%%/%%ora_config%%...");
  166.       modifying_init_ora = nls("modifying_init_ora",
  167.                                "Modifying %%RDBMS70%%\INIT.ORA");
  168.       registering = nls("registering","Registering %%product_label%%...");
  169.  
  170.       if (install_seed_database)
  171.         return( verify( nwutil70 ) + verify( nwspx11 ) +
  172.                 sum( deinstl, nlm, msg, nls_abbreviation, novpat, ncf, sql,
  173.                      plsql, demo, doc, seed, init ) );
  174.       else
  175.         return( verify( nwutil70 ) + verify( nwspx11 ) +
  176.                 sum( deinstl, nlm, msg, nls_abbreviation, novpat, ncf, sql,
  177.                      plsql, demo, doc, init ) );
  178.     }
  179.   else
  180.     return(0);
  181. }
  182.