home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / INSTALL / ORAINST.INS < prev    next >
Encoding:
Text File  |  1995-09-29  |  2.6 KB  |  98 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     orainst.ins - Windows 95 V3 Installation Install Script
  6.  
  7.   DESCRIPTION
  8.     This script installs the NT installer.
  9.  
  10.   MODIFIED   MM/DD/YY REASON
  11.     sagarwal 09/28/95 Added WIN95.SHD to a_list
  12.     sagarwal 09/12/95 Added path.vrf; removed services.vrf
  13.     sagarwal 07/11/95 Created from NT's ORAINST.INS
  14. *****************************************************************************/
  15.  
  16. {
  17.   if (doit)
  18.     {
  19.       overwrite_mode = 'ALWAYS;
  20.       permit_retry_operations = TRUE;
  21.  
  22.       ui_product(product_label);
  23.  
  24.       inst_dir = "%oracle_home%\ORAINST";
  25.       backup_dir = "%inst_dir%\backup";
  26.       backup_marker = "%inst_dir%\backup.mk";
  27.       if (exists(backup_marker))
  28.     {
  29.       /* at this point, backup files are not valid */
  30.       remove_file(backup_marker);
  31.       a_list = list("WIN95.AVF", "WIN95.VRF", "WIN95.PVF",
  32.             "WIN95.INS", "WIN95.DEI", "WIN95.PIN", 
  33.             "WIN95.SHD", "PATH.VRF",  "MAKEDIR.VRF");
  34.       {
  35.         while (not(empty(a_list))) 
  36.           {
  37.         the_file = first(a_list);
  38.         a_list = rest(a_list);
  39.         remove_file("%backup_dir%\%the_file%");
  40.           }
  41.         remove_directory(backup_dir);
  42.       } [ 'default: continue(); ]
  43.     }
  44.  
  45.       /* Remove any resource files from %oracle_home%\DBS */
  46.  
  47.       old_resources = files("%oracle_home%\DBS\OI*.RES");
  48.  
  49.       while (not(empty(old_resources)))
  50.         {
  51.           the_file = first(old_resources);
  52.           remove_file(the_file);
  53.           old_resources = rest(old_resources);
  54.         }
  55.  
  56.  
  57.       ui_action("Installing %product_label% Executables...");
  58.       copy(exec);
  59.  
  60.       ui_action("Installing %product_label% Resources...");
  61.       copy(res);
  62.  
  63.       ui_action("Installing %product_label% Installation Scripts...");
  64.       copy(script);
  65.       copy(deinstl);
  66.  
  67.       ui_action(recording_name);
  68.  
  69.  
  70.       {
  71.         {
  72.       if (exists("%oracle_home%\dbs\oi%nls_abbreviation%.res"))
  73.             save_customer_name(the_customer_name,
  74.                    "%oracle_home%\dbs\oi%nls_abbreviation%.res");
  75.         }
  76.       [ 'WRITE_PROTECTED: signal('WRITE_ERROR); ]
  77.       }
  78.     [ 'WRITE_ERROR: signal('FAILURE,instantiate(recording_name_error1)); ]
  79.  
  80.       {
  81.     {
  82.       if (nls_abbreviation != "us")
  83.         save_customer_name(the_customer_name,
  84.                    "%oracle_home%\dbs\oius.res");
  85.     }
  86.       [ 'WRITE_PROTECTED: signal('WRITE_ERROR); ]
  87.       }
  88.     [ 'WRITE_ERROR: signal('FAILURE,instantiate(recording_name_error2)); ]
  89.  
  90.  
  91.       register(current_product);
  92.       reference(current_product);
  93.       
  94.       permit_retry_operations = FALSE;
  95.  
  96.     }
  97. }
  98.