home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / install / orainst.ins < prev    next >
Text File  |  1995-01-04  |  3KB  |  109 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     orainst.ins - Windows V3 Installer Installation Script
  6.  
  7.   DESCRIPTION
  8.     This script installs the Windows Oracle Installer.
  9.  
  10.   OWNER
  11.     Dan Galatin
  12.  
  13.   MODIFIED   MM/DD/YY REASON
  14.     dgalatin 07/29/94 Blow away all old oi<lang>.res files from DBS.
  15.     dgalatin 07/25/94 Added windows.shd to the backup files list.
  16.     dgalatin 07/22/94 Changed to fix bug #226821.
  17.     jicohen 10/23/92 Created.
  18. *****************************************************************************/
  19.  
  20. {
  21.   if (doit)
  22.     {
  23.       ui_product(product_label);
  24.  
  25.       inst_dir = "%oracle_home%\ORAINST";
  26.       backup_dir = "%inst_dir%\backup";
  27.       backup_marker = "%inst_dir%\backup.mk";
  28.       if (exists(backup_marker))
  29.     {
  30.       /* at this point, backup files are not valid */
  31.       remove_file(backup_marker);
  32.       a_list = list("WINDOWS.AVF", "WINDOWS.VRF", "WINDOWS.PVF",
  33.             "WINDOWS.INS", "WINDOWS.DEI", "WINDOWS.PIN",
  34.             "WINDOWS.SHD","PATH.VRF", "MAKEDIR.VRF");
  35.       {
  36.         while (not(empty(a_list))) 
  37.           {
  38.         the_file = first(a_list);
  39.         a_list = rest(a_list);
  40.         remove_file("%backup_dir%\%the_file%");
  41.           }
  42.         remove_directory(backup_dir);
  43.       } [ 'default: continue(); ]
  44.     }
  45.  
  46.       /* Remove any resource files from %oracle_home%\DBS */
  47.  
  48.       old_resources = files("%oracle_home%\DBS\OI*.RES");
  49.  
  50.       while (not(empty(old_resources)))
  51.         {
  52.           the_file = first(old_resources);
  53.           remove_file(the_file);
  54.           old_resources = rest(old_resources);
  55.         }
  56.  
  57.       ui_action(instantiate(installing_executables));
  58.       copy(exec);
  59.  
  60.       ui_action(instantiate(installing_resources));
  61.       copy(res);
  62.  
  63.       ui_action(instantiate(installing_scripts));
  64.       copy(script);
  65.       copy(deinstl);
  66.  
  67.       { copy(user,user_subgroup); }
  68.       ['FILE_NOT_FOUND: continue();]
  69.  
  70.       ui_action(recording_name);
  71.  
  72.       {
  73.         {
  74.       if (exists("%oracle_home%\dbs\oi%nls_abbreviation%.res"))
  75.             save_customer_name(the_customer_name,
  76.                    "%oracle_home%\dbs\oi%nls_abbreviation%.res");
  77.         }
  78.       [ 'WRITE_PROTECTED: signal('WRITE_ERROR); ]
  79.       }
  80.     [ 'WRITE_ERROR: signal('FAILURE,instantiate(recording_name_error1)); ]
  81.  
  82.       {
  83.     {
  84.       if (nls_abbreviation != "us")
  85.         save_customer_name(the_customer_name,
  86.                    "%oracle_home%\dbs\oius.res");
  87.     }
  88.       [ 'WRITE_PROTECTED: signal('WRITE_ERROR); ]
  89.       }
  90.     [ 'WRITE_ERROR: signal('FAILURE,instantiate(recording_name_error2)); ]
  91.  
  92.  
  93.       register(current_product);
  94.       reference(current_product);
  95.     }
  96.   
  97.   if ((bootstrap) && (product_location(current_product) == ""))
  98.     {
  99.       if (autoexec_modified)
  100.     signal('failure,autoexec_changed_message);
  101.       else if ((doit) || (version_status == 'reinstall))
  102.         {
  103.       information_dialog(success_message,success_content,success_help); 
  104.       modify("BOOT","%oracle_home%\BIN\WINST.EXE",".\BOOT.ORA");
  105.         }
  106.     }
  107.       [ 'CANCEL: continue(); ]
  108. }
  109.