home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 45.ddi / ORAINST.VRF < prev    next >
Encoding:
Text File  |  1992-12-08  |  2.9 KB  |  66 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     orainst.ins - Windows V3 Installation Verify Script
  6.  
  7.   DESCRIPTION
  8.     This script verifies the Windows installer.
  9.  
  10.   MODIFIED   MM/DD/YY REASON
  11.     jicohen 10/23/92 Created.
  12. *****************************************************************************/
  13.  
  14. { product = wininstall;
  15.  
  16.   product_label = product_interface_label(product);
  17.  
  18.   ui_product(product_label);
  19.   ui_action("Analyzing %product_label% Dependencies...");
  20.  
  21.   if (not(distribution))
  22.     signal('failure,"In order to install the installer, please run it from a distribution diskette or CD-ROM.");
  23.  
  24.   doit = FALSE;
  25.  
  26.   if (internally_called)
  27.     if (bootstrap)
  28.       { if (registered(product_name(product)))
  29.           { registry = registration(product_name(product));
  30.  
  31.             if (earlier_version(registry,installer_version))
  32.               { installed_version = registry_version(registry);
  33.  
  34.                 doit = yesno_dialog("The currently installed version of %product_label%, %installed_version%, is out date.  The most current version is %installer_version%.  Do you wish to reinstall %product_label%?"); } } }
  35.     else
  36.       { if (registered(product_name(product)))
  37.           { registry = registration(product_name(product));
  38.  
  39.             if (not(same_version(registry,installer_version)))
  40.               { installed_version = registry_version(registry);
  41.  
  42.                 if (not(yesno_dialog("WARNING: You are executing %installer_version% of the installer.  The registered version of %product_label%, %installed_version%, is different. It is recommended that you reinstall the installer from CD-ROM.  Do you wish to continue?")))
  43.                   signal('failure,"Installation terminated at user request."); } }
  44.         else
  45.           if (not(yesno_dialog("WARNING: The installer is not registered.  It is recommended that you reinstall the installer from CD-ROM.  Do you wish to continue?")))
  46.             signal('failure,"Installation terminated at user request."); }
  47.   else if (bootstrap)
  48.     doit = TRUE;
  49.   else if (registered(product_name(product)))
  50.     { registry = registration(product_name(product));
  51.       current_version = product_version(product);
  52.  
  53.       if (earlier_version(registry,current_version))
  54.         { installed_version = registry_version(registry);
  55.  
  56.           doit = yesno_dialog("The currently installed version of %product_label%, %installed_version%, is out date.  The most current version is %current_version%.  Do you wish to reinstall %product_label%?"); }
  57.       else
  58.         doit = yesno_dialog("%product_label% has already been installed and is up to date.  Would you like to reinstall it?"); }
  59.   else
  60.     doit = TRUE;
  61.  
  62.   if (doit)
  63.     return(sum(exec,res,script,deinstl));
  64.   else
  65.     return(0); }
  66.