home *** CD-ROM | disk | FTP | other *** search
/ Oracle Video Server 3.0.3.1 / OVS_3031_NT.iso / win32 / install / orainst.vrf < prev    next >
Encoding:
Text File  |  1997-08-19  |  5.0 KB  |  127 lines
  1. /* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     orainst.vrf - Windows 32-bit V3 Installation Verify Script
  6.  
  7.   DESCRIPTION
  8.     This script verifies the Windows 32-bit installer.
  9.  
  10.   CREATED
  11.     Siddhartha Agarwal, July 11, 1996
  12.  
  13.   MODIFIED   MM/DD/YY REASON
  14.   vrajkuma   12/27/96 Made OCSM compliant.
  15. *****************************************************************************/
  16. { 
  17.   product_label = product_interface_label(current_product);
  18.  
  19.   ui_product(product_label);
  20.  
  21.   analyzing_dependencies = instantiate(nls("analyzing_dependencies",
  22.                        "Analyzing %%product_label%% Dependencies..."));
  23.  
  24.   ui_action(analyzing_dependencies);
  25.  
  26.    cancelling_install = nls("cancelling_install","Cancelling Installation of %%product_label%%...");
  27.  
  28.   {
  29.     if (not(distribution))
  30.       signal('UNBOUND_VARIABLE);
  31.   }
  32.     [ 'UNBOUND_VARIABLE:
  33.     {
  34.       install_from_distribution = nls("install_from_distribution","In order to install the Installer, please run it from distribution media.");
  35.       signal('FAILURE,install_from_distribution);
  36.     }
  37.     ]
  38.  
  39.  
  40.   doit = TRUE;
  41.  
  42.   if (registered(product_name(current_product)))
  43.     {
  44.       registry = registration(product_name(current_product));
  45.       current_version = product_version(current_product);
  46.       installed_version = registry_version(registry);
  47.  
  48.       if (earlier_version(registry,current_version))
  49.     {
  50.           version_status = 'upgrade;
  51.       if (verbose)
  52.         doit = yesno_dialog(instantiate(reinstall_prompt01),TRUE,
  53.                 instantiate(reinstall_content01),
  54.                 instantiate(reinstall_help01));
  55.       else
  56.         doit = TRUE;
  57.  
  58.       if (not(doit))
  59.         if ((bootstrap) && (product_location(current_product) == ""))
  60.           information_dialog(instantiate(reinstall_prompt02),
  61.                  instantiate(reinstall_content02),
  62.                  instantiate(reinstall_help02),);
  63.     }
  64.       else if (later_version(registry,current_version))
  65.         {
  66.       version_status = 'downgrade;      
  67.       doit = yesno_dialog(instantiate(reinstall_prompt03),FALSE
  68.                   instantiate(reinstall_content03),
  69.                   instantiate(reinstall_help03));
  70.       if (not(doit))              
  71.         if ((bootstrap) && (product_location(current_product) == ""))
  72.               signal('CANCEL,cancel_prompt01);
  73.         }
  74.       else /* if (not(bootstrap)) */
  75.         {
  76.       version_status = 'reinstall;
  77.       if (verbose)
  78.         doit = yesno_dialog(instantiate(reinstall_prompt04),FALSE,
  79.                 instantiate(reinstall_content04),
  80.                 instantiate(reinstall_help04));
  81.       else
  82.         doit = TRUE;
  83.         }
  84.     }
  85.   else
  86.     version_status = 'new_install;
  87.  
  88.   installer_ocsa_in_use = nls("installer_ocsa_in_use", "Installing the Installer is not possible while its executables are in use. %carriage_return%Please make sure that the installed Installer and any Oracle Client Software Agents connected to this machine are shut down, and retry this installation.");
  89.   installer_insufficient_space = nls("installer_insufficient_space", "An error occurred during the copying of the Installer binaries due to an unavailability of sufficient space at the destination location : %ORACLE_HOME%\bin. %carriage_return%Please make sure that there is adequate space available at this location, and retry this installation.");
  90.   if (doit)
  91.     {
  92.       installing_executables = nls("installing_executables","Installing %%product_label%% Executables...");
  93.       installing_resources = nls("installing_resources",
  94.                  "Installing %%product_label%% Resources...");
  95.       installing_scripts = nls("installing_scripts",
  96.                    "Installing %%product_label%% Scripts...");
  97.       recording_name = nls("recording_name","Recording Company Name...");
  98.  
  99.       recording_name_error1 = nls("recording_name_error1","There was a write error recording your name in '%%oracle_home%%\DBS\OI%%nls_abbreviation%%.RES'. Please correct the problem with this file and reinstall the Installer.");
  100.  
  101.       recording_name_error2 = nls("recording_name_error2","There was a write error recording your name in '%%oracle_home%%\DBS\OIUS.RES'. Please correct the problem with this file and reinstall the Installer.");
  102.  
  103.       group_sum = sum(exec, nlb, res, nls_abbreviation, dll, nls_abbreviation,
  104.                       script, nls_abbreviation, deinstl, nls_abbreviation, prodmsg, nls_abbreviation);
  105.       if (platform() == "nt")
  106.         compat_scripts = ntcompat;
  107.       else
  108.         compat_scripts = win95compat;
  109.  
  110.       group_sum = group_sum + sum(compat_scripts);
  111.  
  112.       /* MOH and OCSM related specifications */
  113.       moh_icon_groups = list(list(exec)); /* TODO: switch homes icon missing */
  114.  
  115.       min_ocsm_groups = list(list(res, nls_abbreviation), list(prodmsg, nls_abbreviation), 
  116.                              list(script, nls_abbreviation), list(dll, nls_abbreviation) );
  117.       max_ocsm_groups = list(list(compat_scripts), list(exec), list(deinstl));
  118.  
  119.       return(group_sum);
  120.     }
  121.   else
  122.     {
  123.       ui_action(instantiate(cancelling_install));
  124.       return(0);
  125.     }
  126. }
  127.