home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 35.ddi / V2BACK.INS < prev    next >
Encoding:
Text File  |  1993-03-01  |  5.0 KB  |  187 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     v2back.ins - V3.0.9.2 installation script for V2 Backward Compatibility
  5.  
  6.   DESCRIPTION
  7.     This script installs a V2 Product.
  8.  
  9.   OWNER
  10.     Kush Deepak Jain
  11.  
  12.   MODIFIED    DD-MM-YY    Reason
  13.     ekabatch  01-30-92    Made NLS Compliant.
  14.     kjain     01-15-92    Created.
  15. *****************************************************************************/
  16. {
  17.   if (doit)
  18.     {
  19.       ui_product(product_label);
  20.  
  21.       ui_action(instantiate(installing_product));
  22.  
  23.       /* Make REGISTER.ORA and FILELIST.ORA files */
  24.       create_file("%oracle_home%\DBS\FILELIST.ORA");
  25.       all_registries = all_registrations();
  26.       final_registries = list();
  27.       while(not(empty(all_registries)))
  28.         { 
  29.       regis = first(all_registries);
  30.       if(contains(registry_name(regis),"v2"))
  31.          add(final_registries,regis);
  32.       all_registries = rest(all_registries);
  33.     }
  34.       
  35.       
  36.       dos_write_v2_registry(final_registries,
  37.                 "%oracle_home%\DBS\REGISTER.ORA");
  38.  
  39.       /* Make the Backward Compatibility BIN directori(es) */
  40.       copy(bin);
  41.  
  42.       /* Spawn V2 Installer */
  43.       return_code = dos_v2_spawn("%oracle_home%\XBIN\ORAINST2.EXE",
  44.                  "%oracle_home%");
  45.  
  46.       if (return_code == 0)
  47.     {
  48.       v2_number = product_number(child); 
  49.  
  50.       ui_action(instantiate(migrating_product_with_name));
  51.  
  52.       if (exists("%oracle_home%\CONFIG.ORA"))
  53.         {
  54.           append_file("%oracle_home%\CONFIG.ORA",ora_config);
  55.           remove_file("%oracle_home%\CONFIG.ORA");
  56.         }
  57.  
  58.       { files = translate("%v2_number%","%oracle_home%\DBS\FILELIST.ORA",
  59.                   " ",TRUE);}
  60.        [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  61.            {
  62.          remove_file("%oracle_home%\DBS\FILELIST.ORA");
  63.          remove_file("%oracle_home%\DBS\REGISTER.ORA");
  64.          signal('FAILURE,installation_terminated);
  65.            }
  66.        ]
  67.  
  68.       pre_file_list = explode(files," ");
  69.       file_list = list();
  70.       while(not(empty(pre_file_list)))
  71.         {
  72.           the_file = first(pre_file_list);
  73.           if(exists(the_file))
  74.           add(file_list,the_file);
  75.           pre_file_list = rest(pre_file_list);
  76.             }
  77.  
  78.       if (v2_number == 1)
  79.         {
  80.           s_product = "%ORACLE_HOME%\BIN\ORACLE6.EXE";
  81.           d_product = "%ORACLE_HOME%\XBIN\ORACLE6.EXE";
  82.           if(exists(s_product))
  83.         {
  84.           copy_file(s_product,d_product);
  85.           extract(file_list,s_product);
  86.           add(file_list,d_product);
  87.         }
  88.         }
  89.  
  90.       created_directories = list("%oracle_home%","%oracle_home%\XBIN",
  91.                      "%oracle_home%\DBS","%oracle_home%\BIN",
  92.                      "%oracle_home%\DLL",
  93.                      "%oracle_home%\ORAINST");
  94.  
  95.       exe = make_group("exe",child);
  96.  
  97.       while (not(empty(file_list)))
  98.         {
  99.           file = first(file_list);
  100.  
  101.           { file_size = size(file); }
  102.         [ 'FILE_NOT_FOUND: file_size = 0; ]
  103.  
  104.           the_file_name = file_name(file);
  105.  
  106.           the_directory_name = directory_name(file);
  107.  
  108.           new_directories = list();
  109.  
  110.           {
  111.         while (contains(the_directory_name,oracle_home))
  112.           {
  113.             if (member(created_directories,the_directory_name))
  114.               signal('ENOUGH_ALREADY);
  115.  
  116.             new_directories = cons(the_directory_name,new_directories);
  117.  
  118.             the_directory_name = directory_name(the_directory_name);
  119.           }
  120.           }
  121.         [ 'ENOUGH_ALREADY: continue(); ]
  122.  
  123.           union(created_directories,new_directories);
  124.  
  125.           while (not(empty(new_directories)))
  126.         {
  127.           add_component(exe,"DIRECTORY","",first(new_directories),0);
  128.  
  129.           new_directories = rest(new_directories);
  130.         }
  131.  
  132.           the_directory_name = directory_name(file);
  133.  
  134.           if(( the_directory_name == "%ORACLE_HOME%\XBIN") ||
  135.          (not(contains(the_directory_name,"%ORACLE_HOME%\BIN"))))
  136.         subgroup = "OTHER";
  137.           else if (contains(the_file_name,".EXE") ||
  138.           contains(the_file_name,".CMD"))
  139.         {
  140.           subgroup = "EXE";
  141.  
  142.           add_component(exe,"STUB",the_file_name,"%oracle_home%\XBIN\",
  143.                 dos_stub_size);
  144.         }
  145.           else
  146.         subgroup = "OTHER";
  147.  
  148.           add_component(exe,subgroup,the_file_name,"%the_directory_name%\",
  149.                 file_size);
  150.  
  151.           file_list = rest(file_list);
  152.         }
  153.  
  154.       copy(deinstl);
  155.  
  156.       v2_deinstl = make_group("deinstl",child);
  157.  
  158.       { file_size = size("%installer_home%\%v2_filename%.DEI"); }
  159.         [ 'FILE_NOT_FOUND: file_size = 0; ]
  160.  
  161.       add_component(v2_deinstl,"","%v2_filename%.MAP",
  162.             "%%installer_home%%\",0);
  163.       add_component(v2_deinstl,"","%v2_filename%.DEI",
  164.             "%%installer_home%%\",file_size);
  165.  
  166.       ui_action(instantiate(creating_stubs));
  167.  
  168.       /* Create the stubs */
  169.       {
  170.         { dos_stubify("",exe,"EXE"); }
  171.           [ 'FILE_NOT_FOUND: signal('INVALID_FILE_NAME); ]
  172.       }
  173.         [ 'INVALID_FILE_NAME: signal('FAILURE,installation_corrupted); ]
  174.  
  175.       /* Write .map file */
  176.       write_map(list(exe,v2_deinstl),"%installer_home%\%v2_filename%.MAP");
  177.  
  178.       register(child);
  179.       reference(child);
  180.  
  181.       remove_file("%oracle_home%\DBS\FILELIST.ORA");
  182.       remove_file("%oracle_home%\DBS\REGISTER.ORA");
  183.     }
  184.       else if (return_code == 1)
  185.     signal('FAILURE,installation_terminated);
  186.     }
  187. }x