home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / install / orainst.vrf < prev    next >
Encoding:
Text File  |  1995-01-04  |  5.2 KB  |  135 lines

  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     orainst.vrf - Windows V3 Installer Version Analysis/Product
  6.                   Configuration Script
  7.  
  8.   DESCRIPTION
  9.     This script checks dependencies and environment settings for the
  10.     installation of the Windows Oracle Installer.
  11.  
  12.   OWNER
  13.     Dan Galatin
  14.  
  15.   MODIFIED   MM/DD/YY REASON
  16.     zzerhoun 01/04/94 Modified to copy user's release note
  17.     zzerhoun 01/03/94 Modified to reinstall w/o question if verbose
  18.     dgalatin 07/22/94 Changed to fix bug #226821.
  19.     kjain     07-JUL-94  Added verbose mode support.
  20.     jicohen 10/23/92 Created.
  21. *****************************************************************************/
  22.  
  23.   product_label = product_interface_label(current_product);
  24.  
  25.   ui_product(product_label);
  26.  
  27.   analyzing_dependencies = instantiate(nls("analyzing_dependencies",
  28.                        "Analyzing %%product_label%% Dependencies..."));
  29.  
  30.   ui_action(analyzing_dependencies);
  31.   
  32.   cancelling_install = nls("cancelling_install","Cancelling Installation of %%product_label%%...");
  33.  
  34.   {
  35.     if (not(distribution))
  36.       signal('UNBOUND_VARIABLE);
  37.   }
  38.     [ 'UNBOUND_VARIABLE:
  39.     {
  40.       install_from_distribution = nls("install_from_distribution","In order to install the Installer, please run it from a distribution diskette or CD-ROM.");
  41.       signal('FAILURE,install_from_distribution);
  42.     }
  43.     ]
  44.  
  45.   doit = TRUE;
  46.  
  47.   if (registered(product_name(current_product)))
  48.     {
  49.       registry = registration(product_name(current_product));
  50.       current_version = product_version(current_product);
  51.       installed_version = registry_version(registry);
  52.  
  53.       if (earlier_version(registry,current_version))
  54.     {
  55.           version_status = 'upgrade;
  56.       if (verbose)
  57.         doit = yesno_dialog(instantiate(reinstall_prompt01),TRUE,
  58.                 instantiate(reinstall_content01),
  59.                 instantiate(reinstall_help01));
  60.       else
  61.         doit = TRUE;
  62.  
  63.       if (not(doit))
  64.         if ((bootstrap) && (product_location(current_product) == ""))
  65.           information_dialog(instantiate(reinstall_prompt02),
  66.                  instantiate(reinstall_content02),
  67.                  instantiate(reinstall_help02),);
  68.     }
  69.       else if (later_version(registry,current_version))
  70.         {
  71.       version_status = 'downgrade;
  72.       doit = yesno_dialog(instantiate(reinstall_prompt03),FALSE
  73.                   instantiate(reinstall_content03),
  74.                   instantiate(reinstall_help03));
  75.       if (not(doit))              
  76.         if ((bootstrap) && (product_location(current_product) == ""))
  77.           if (autoexec_modified)
  78.             signal('failure,autoexec_changed_message);
  79.           else
  80.                 signal('CANCEL,cancel_prompt01);
  81.         }
  82.       else /* if (not(bootstrap)) */
  83.         {
  84.           version_status = 'reinstall;
  85.           if (verbose)
  86.                doit = yesno_dialog(instantiate(reinstall_prompt04),FALSE,
  87.                       instantiate(reinstall_content04),
  88.                     instantiate(reinstall_help04));
  89.           else
  90.             doit = TRUE;
  91.         }
  92.     }
  93.   else
  94.     version_status = 'new_install;
  95.  
  96.   success_message = nls("success_message","Please remove the Oracle Installer disk from your floppy drive. Insert disk 1 of the product you wish to install and choose the OK button. Choose Help for instructions on installing from CD-ROM.");
  97.   success_content = nls("success_content","Ready to Install");
  98.   success_help = nls("success_help","Floppy Media
  99.  
  100. To install products from floppy media, remove the Oracle Installer disk from your floppy drive and insert disk 1 of the product you wish to install. Then, choose the OK button. 
  101.  
  102. CD-ROM
  103.  
  104. To install products from CD-ROM, remove all disks from your floppy drives and choose the OK button. Then, make the Available Products window the active window and choose the From button. Select the WINDOWS.PRD file on the CD-ROM in the INSTALL subdirectory on the CD-ROM. Follow the instructions on the screen.
  105.  
  106. Installing Later
  107.  
  108. If you do not wish to install Oracle products at this time, choose the Cancel button. You may run the Installer later by choosing its icon in the Program Manager.");
  109.  
  110.   if (doit)
  111.     {
  112.       installing_executables = nls("installing_executables","Installing %%product_label%% Executables...");
  113.       installing_resources = nls("installing_resources",
  114.                  "Installing %%product_label%% Resources...");
  115.       installing_scripts = nls("installing_scripts",
  116.                    "Installing %%product_label%% Scripts...");
  117.       recording_name = nls("recording_name","Recording Customer Name...");
  118.  
  119.       recording_name_error1 = nls("recording_name_error1","There was an error recording your name in '%%oracle_home%%\DBS\OI%%nls_abbreviation%%.RES'. Please correct the problem with this file and reinstall the Installer.");
  120.  
  121.       recording_name_error2 = nls("recording_name_error2","There was an error recording your name in '%%oracle_home%%\DBS\OIUS.RES'. Please correct the problem with this file and reinstall the Installer.");
  122.  
  123.       { user_subgroup = user_release_grp; }
  124.       ['UNBOUND_VARIABLE: user_subgroup = "";]
  125.               
  126.       return(sum(exec,res,script,deinstl,user,user_subgroup));
  127.     }
  128.   else
  129.     {
  130.       ui_action(instantiate(cancelling_install));      
  131.       return(0);
  132.     }
  133. }
  134.