home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a525 / 51.ddi / NETWARE.STP < prev    next >
Encoding:
Text File  |  1993-03-08  |  32.9 KB  |  798 lines
  1. /* Copyright (c) Oracle Corporation 1992. All Rights Reserved */
  2.  
  3. /*****************************************************************************
  4.   NAME
  5.     netware.stp - NetWare V3 Installation Environment Initialization File
  6.  
  7.   DESCRIPTION
  8.     This script bootstraps the NetWare environment for the installation
  9.     process.  It is always read first by ORAINST for NetWare.
  10.  
  11.   OWNER
  12.     Dan Galatin
  13.  
  14.   MODIFIED   MM/DD/YY Reason
  15.     dgalatin 02/01/93 Made nls compliant.
  16.     kjain    11/17/92 Ported os2.stp to netware.stp
  17.     tkelley  03/18/92 Created.
  18. *****************************************************************************/
  19.  
  20.  
  21. /****************************************************************************
  22.   Bind variables.
  23.  
  24.     'bootstrap' tells the installer whether or not it should install itself
  25.         by default.
  26.  
  27.     'required_version' is the earliest version of NetWare that ORACLE can
  28.                run with.
  29.  
  30.     'oracle_directory' is the default oracle_home.
  31.  
  32.     'ora_config' is the name and location of CONFIG.ORA.
  33.  
  34. *****************************************************************************/
  35. {
  36.   product_label = nls("product_label","Oracle Installer");
  37.  
  38.   ui_product(product_label);
  39.  
  40.   check_environment = nls("check_environment","Checking the Environment...");
  41.   ui_action(check_environment);
  42.   
  43.   /* Let the installer know if this is a bootstrapping sequence. */
  44.  
  45.   bootstrap = FALSE;
  46.  
  47.   /* Let the installer know that it is being run from distribution media. */
  48.  
  49.   distribution = TRUE;
  50.  
  51.   /* Be friendly. */
  52.  
  53.   welcome = TRUE;
  54.  
  55.   required_version = "3.11";
  56.   oracle_directory = "ORANW";
  57.   ora_config = "SYS:SYSTEM\CONFIG.ORA";
  58.  
  59.   welcome_prompt = nls("welcome_prompt","Welcome to the Oracle Installer.");
  60.   language_label1 = nls("default_language",
  61.             "Looking for a Default Language...");
  62.   language_label2 = nls("language_label2",
  63.             "Looking for a Default Language on %%server%%...");
  64.   free = nls("free","free");
  65.   connect_err = nls("connect_err","It appears that you are not connected to any Netware file servers. Make sure your network card is properly installed, your device drivers are loaded, and you are running a recent version of the Requester. Contact your network administrator for further assistance.");
  66.   get_ser_help = nls("get_ser_help","To install Oracle products on a Netware file server, you must be connected to the file server through an account with supervisor privileges. From the list of eligible servers, select the server to which you want your Oracle products installed.");
  67.   get_ser_prompt1 = nls("get_ser_prompt1","Select the server to which you wish to install Oracle products:");
  68.   get_ser_prompt2 = nls("get_ser_prompt2","Select the server to which you wish to install Oracle products. Servers to which you are already connected as supervisor are listed first:");
  69.   get_ser_content = nls("get_ser_content","Server");
  70.   get_usr_help = nls("get_usr_help","You are being asked to enter the username of your supervisor account on %%server%%.");
  71.   get_usr_content = nls("get_usr_content","Username");
  72.   get_usr_prompt = nls("get_usr_prompt","Please type in your username on %%server%%:");
  73.       
  74.   get_pwd_help = nls("get_pwd_help","You are being asked to enter the password of your supervisor account as user %%user%% on %%server%%.");
  75.   get_pwd_content = nls("get_pwd_content","Password");
  76.   get_pwd_prompt = nls("get_pwd_prompt","Please type in your password as user %%user%%:");
  77.       
  78.   reenter_usr_prompt1 = nls("reenter_usr_prompt1","Sorry, you are not logged into this server as a supervisor. Please retype your username as a supervisor or choose the Backup button to select a different server:");
  79.   reenter_usr_prompt2 = nls("reenter_usr_prompt2","Sorry, the login was incorrect. Please retype your username or choose the Backup button to select a different server:");
  80.  
  81.   reenter_pwd_prompt = nls("reenter_pwd_prompt","Please retype your password:");
  82.  
  83.   bad_nw_version_msg = nls("bad_nw_version_msg","%%server%% is running a version of Netware earlier than %%required_version%%. It is not possible to install Oracle products on it.
  84.  
  85. Choose the OK button to select another file server, or choose Cancel to exit the Installer.");
  86.   bad_nw_version_content = nls("bad_nw_version_content","Netware Version");
  87.   bad_nw_version_help = nls("bad_nw_version_help","It is not possible to install Oracle products on a server running a version of Netware earlier than %%required_version%%.");
  88.  
  89.   empty_vols_msg = nls("empty_vols_msg","%%server%% is not identifying any volumes. It is not possible to install Oracle products to a server unless it has an available volume.
  90.  
  91. Choose the OK button to select another file server, or choose Cancel to exit the Installer.");
  92.   empty_vols_content = nls("empty_vols_content","No Available Volumes");
  93.   empty_vols_help = nls("empty_vols_help","It is not possible to install Oracle products to a server unless it has an available volume.");
  94.  
  95.   get_vol_prompt1 = nls("get_vol_prompt1","Oracle products have been previously installed in the %%home_dir%% directory of the %%home_vol%% volume. Select the volume to which you wish to install Oracle products:");
  96.   get_vol_prompt2 = nls("get_vol_prompt2","Select the volume to which you wish to install Oracle products:");
  97.   get_vol_content = nls("get_vol_content","Volume");
  98.   get_vol_help1 = nls("get_vol_help1","Oracle products have been previously installed in the %%home_dir%% directory of the %%home_vol%% volume on %%server%%. If you choose to install products to a new location, the products installed in the old location may become temporarily unusable. If you wish to install products to the same location, choose the Select button. If you wish to install products to a different location, highlight a different volume and choose the Select button.");
  99.   get_vol_help2 = nls("get_vol_help2","The Oracle products can be installed on any of the listed volumes. For best performance, it is recommended that you reserve a volume for exclusive use by Oracle products. From the list of possible volumes, select the volume to which you want your Oracle products installed. The free space on each volume follows the volume name.");
  100.  
  101.   get_dir_help1 = nls("get_dir_help1","Oracle products have been previously installed in the %%home_dir%% directory of the %%home_vol%% volume. If you choose to install products to a new location, the products installed in the old location may become temporarily unusable. Choose the OK button to keep the current Oracle home or enter another path to which you want your Oracle products to be installed.");
  102.   get_dir_help2 = nls("get_dir_help2","Enter the path to which you want your Oracle products to be installed. The default value is %%oracle_directory%%; however, any valid path is acceptable.");
  103.   get_dir_prompt1 = nls("get_dir_prompt1","Oracle products have been previously installed in the %%home_dir%% directory of the %%home_vol%% volume. Choose the OK button to keep this Oracle home or enter another path to which you want your Oracle products to be installed.");
  104.   get_dir_prompt2 = nls("get_dir_prompt2","To which subdirectory do you wish to install Oracle products:");
  105.   get_dir_content = nls("get_dir_content","Directory");
  106.  
  107.   make_home_err_msg1 = nls("make_home_err_msg1","It was not possible to create the directory '%%oracle_home%%'.
  108.  
  109. Choose the OK button to select another volume, choose Backup to select another file server, or choose Cancel to exit the Installer.");
  110.   make_home_err_msg2 = nls("make_home_err_msg2","The directory you specified, '%oracle_home%', is not valid.
  111.  
  112. Choose the OK button to specify another directory, choose Backup to select another volume, or choose Cancel to exit the Installer.");
  113.   make_home_err_msg3 = nls("make_home_err_msg3","It was not possible to create a subdirectory of '%%oracle_home%%'.
  114.  
  115. Choose the OK button to select another volume, choose Backup to select another file server, or choose Cancel to exit the Installer.");
  116.   make_home_err_content = nls("make_home_err_content",
  117.                   "Error Creating Oracle Home");
  118.   make_home_err_help = nls("make_home_err_help","There was an error creating the directory '%%current_dir%%'. You may need to choose another volume or server on which you have write privileges.");
  119.  
  120.   language_prompt = nls("language_prompt","It was not possible to determine which language you normally run Oracle products in. Please select the language you would like to use:");
  121.   language_content = nls("language_content","Language");
  122.   language_help = nls("language_help","You are being asked to select the language you would like to use. The Oracle Installer will run in that language. English text may appear if the installer cannot locate a message it needs. By default, the Oracle products you install will use the language you select as well.");
  123.  
  124.   changes_needed_prompt = nls("changes_needed_prompt","Changes to the file %%server%%\SYS:SYSTEM\AUTOEXEC.NCF are needed. Would you like the changes to be made automatically?");
  125.   changes_needed_content = nls("changes_needed_content","Configuration");
  126.   changes_needed_help = nls("changes_needed_help","The needed changes to your %%server%%\SYS:SYSTEM\AUTOEXEC.NCF file are as follows:");
  127.  
  128.   autoexec_needed_prompt = nls("autoexec_needed_prompt","You have no %%server%%\SYS:SYSTEM\AUTOEXEC.NCF file. Would you like this file created automatically?");
  129.   autoexec_needed_help = nls("autoexec_needed_help","You have no file %%server%%\SYS:SYSTEM\AUTOEXEC.NCF. This file needs to be created and the line 'SEARCH ADD %%oracle_home%%\NLM'needs to be added.");
  130.   autoexec_create_error_message = nls("autoexec_create_error_message","There was an error creating %%server%%\SYS:SYSTEM\AUTOEXEC.NCF. Please contact your network administrator.");
  131.  
  132.   search_add = nls("search_add","
  133.  
  134. The line 'SEARCH ADD %%oracle_home%%\NLM' needs to be added.");
  135.   search_delete = nls("search_delete","
  136.  
  137. The line 'SEARCH ADD %%old_oracle_home%%\NLM' needs to be deleted.");
  138.   backup_error_message = nls("backup_error_message","There was an error backing up %%server%%\SYS:SYSTEM\%%file%%. Please contact your network administrator.");
  139.  
  140.   migration_prompt = nls("migration_prompt","%%server%%\%%oracle_home%% is an old Oracle Home. Old database files will not be compatible with the ORACLE7 server unless the database migration utility is installed and executed. Do you wish to install the database migration utility at this time?");
  141.   migration_content = nls("migration_content","Old Oracle Home");
  142.   migration_help = nls("migration_help","The Oracle Installer has detected that %%server%%\%%oracle_home%% is an old Oracle Home, since no Oracle product registry file was found. In order for old database files to be made compatible with ORACLE7, a migration utility must be executed on this Netware server. Answer Yes if you wish to install this utility at this time. If you do, the installer will exit and you may run the utility on your Netware server. Answer No to skip the installation of the migration utility. You may install the utility later if you wish.");
  143.   {
  144.       ui_action(language_label1);
  145.       { nls_language = default_language(); }
  146.         [ 'UNBOUND_ENVIRONMENT_VARIABLE: continue(); ]
  147.  
  148.       mark
  149.     {
  150.       ui_action(check_environment);
  151.  
  152.       { the_customer_name = customer_name(); }
  153.         [ 'UNKNOWN_CUSTOMER:
  154.           {
  155.         customer_prompt = nls("customer_prompt","Please enter the name of the company to which this Oracle product has been licensed:");
  156.  
  157.         if (welcome)
  158.           {
  159.             customer_prompt = "%welcome_prompt% %customer_prompt%";
  160.           }
  161.  
  162.         welcome = FALSE;
  163.         
  164.         customer_content = nls("customer_content","Customer Name");
  165.         customer_help = nls("customer_help","You are being asked to enter the name of the company to which this copy of Oracle has been licensed. This information will be internally recorded for licensing purposes.");
  166.  
  167.         the_customer_name = "";
  168.  
  169.         while (the_customer_name == "")
  170.           the_customer_name = text_dialog(customer_prompt,"",
  171.                           customer_content,
  172.                           customer_help);
  173.  
  174.         { save_customer_name(the_customer_name); }
  175.           [ 'WRITE_PROTECTED: continue();
  176.             'WRITE_ERROR: continue();      ]
  177.           }
  178.         ]
  179.  
  180.       server_ok = false;
  181.  
  182.       while(not(server_ok))
  183.         {
  184.           mark
  185.         {
  186.             server_list = nw_get_servers('SUPERVISOR);
  187.             sup_servers = nw_get_servers('SUPERVISOR);
  188.             log_servers = nw_get_servers('LOGGED);
  189.             all_servers = nw_get_servers('ALL);
  190.             if (empty(all_servers))
  191.               signal('FAILURE,connect_err);
  192.  
  193.             sort(all_servers,true);
  194.             sort(server_list,true);
  195.             if (not(empty(server_list)))
  196.               add(server_list,"");
  197.             union(server_list,all_servers);
  198.             server = "";
  199.             if (empty(sup_servers))
  200.               get_ser_prompt = get_ser_prompt1;
  201.             else
  202.               get_ser_prompt = get_ser_prompt2;
  203.  
  204.             if (welcome)
  205.               get_ser_prompt = "%welcome_prompt% %get_ser_prompt%";
  206.  
  207.             welcome = false;
  208.  
  209.             while(server == "")
  210.               server = single_selection_dialog(get_ser_prompt,
  211.                                server_list,
  212.                                get_ser_content,
  213.                                get_ser_help);
  214.  
  215.             if (not(member(sup_servers,server)))
  216.               {
  217.             mark
  218.               {              
  219.                 user = text_dialog(instantiate(get_usr_prompt),"",
  220.                            get_usr_content,
  221.                            instantiate(get_usr_help));
  222.                 mark
  223.                   passwd = password_dialog(instantiate(get_pwd_prompt),
  224.                                get_pwd_content,
  225.                                instantiate(get_pwd_help));
  226.               }
  227.     /*
  228.        We trap possible errors from the login attempt, since under certain 
  229.        conditions, it just doesn't work the first time.
  230.     */    
  231.             { nw_login(server,user,passwd); }
  232.               [
  233.                 'NOT_POSSIBLE_SERVER: { }
  234.                 'NETWARE_OS_ERROR: { }
  235.               ]
  236.  
  237.             sup_servers = nw_get_servers('SUPERVISOR);
  238.             log_servers = nw_get_servers('LOGGED);
  239.  
  240.             mark
  241.               while (not(member(sup_servers,server)))
  242.                 {
  243.                   if (member(log_servers,server))
  244.                 user = text_dialog(reenter_usr_prompt1,"",
  245.                            get_usr_content,
  246.                            instantiate(get_usr_help));
  247.                   else
  248.                 user = text_dialog(reenter_usr_prompt2,"",
  249.                            get_usr_content,
  250.                            instantiate(get_usr_help));
  251.                   mark
  252.                 passwd = password_dialog(reenter_pwd_prompt,
  253.                              get_pwd_content,
  254.                              instantiate(get_pwd_help));
  255.  
  256.                   { nw_login(server,user,passwd); }
  257.                 [
  258.                   'NOT_POSSIBLE_SERVER: continue();
  259.                   'NETWARE_OS_ERROR: continue();
  260.                 ]
  261.  
  262.                   sup_servers = nw_get_servers('SUPERVISOR);
  263.                   log_servers = nw_get_servers('LOGGED);
  264.                   server_list = nw_get_servers('SUPERVISOR);
  265.                   all_servers = nw_get_servers('ALL); 
  266.                   sort(all_servers,true);
  267.                   sort(server_list,true);
  268.                   if (not(empty(server_list)))
  269.                 add(server_list,"");
  270.                   union(server_list,all_servers);
  271.                 }     
  272.               }
  273.  
  274.           if (nw_earlier_server_version(server,required_version))
  275.             {
  276.               information_dialog(instantiate(bad_nw_version_msg),
  277.                      bad_nw_version_content,
  278.                      instantiate(bad_nw_version_help));
  279.               continue();
  280.             }
  281.  
  282.           vols = nw_get_volumes(server);
  283.  
  284.           if (empty(vols))
  285.             {
  286.               information_dialog(instantiate(empty_vols_msg),
  287.                      empty_vols_content,
  288.                      empty_vols_help);
  289.               continue();
  290.             }
  291.  
  292.           ui_action(nls("locate_home","Locating Oracle Home..."));
  293.  
  294.           home_found = true;
  295.  
  296.           { oracle_home = translate("ORACLE_HOME",
  297.                         "%server%\%ora_config%"); }
  298.             [
  299.               'FILE_NOT_FOUND:
  300.               home_found = false;
  301.               'READ_ERROR:
  302.               home_found = false;
  303.               'UNBOUND_ENVIRONMENT_VARIABLE:
  304.               home_found = false;
  305.             ]
  306.  
  307.           if (home_found)            
  308.             if (length(oracle_home) == 0)
  309.               home_found = false;
  310.             else
  311.               old_oracle_home = oracle_home;
  312.  
  313.           if (home_found)
  314.             v6_home_found = not(exists("%server%\%old_oracle_home%\orainst\netware.rgs"));
  315.           else
  316.             v6_home_found = false;
  317.  
  318.           ui_action(instantiate(language_label2));
  319.           
  320.                   { { nls_language = translate("NLS_LANG",
  321.                          "%server%\%ora_config%"); }
  322.                       ['INVALID_FILE_NAME:
  323.              signal('UNBOUND_ENVIRONMENT_VARIABLE,"");
  324.                'READ_ERROR:
  325.              signal('UNBOUND_ENVIRONMENT_VARIABLE,"");
  326.               ]
  327.             nls_lang_found = true;
  328.           }
  329.                   [ 'UNBOUND_ENVIRONMENT_VARIABLE:
  330.                 {
  331.               nls_lang_found = false;
  332.                   english = list("English","AMERICAN_AMERICA.US7ASCII");
  333.               brazilian_portuguese = list("Brazilian Portuguese",
  334.                           "BRAZILIAN PORTUGUESE_BRAZIL.WE8PC850");
  335.               czech = list("Czech","CZECH_CZECHOSLOVAKIA.EE8PC852");
  336.               danish = list("Danish","DANISH_DENMARK.DK8PC850");
  337.               dutch = list("Dutch","DUTCH_THE NETHERLANDS.WE8PC850");
  338.               finnish = list("Finnish","FINNISH_FINLAND.SF8PC850");
  339.               french = list("French","FRENCH_FRANCE.WE8PC850");
  340.               german = list("German","GERMAN_GERMANY.WE8PC850");
  341.               greek = list("Greek","GREEK_GREECE.EL8PC437S");
  342.               hungarian = list("Hungarian","HUNGARIAN_HUNGARY.EE8PC852");
  343.               italian = list("Italian","ITALIAN_ITALY.WE8PC850");
  344.               norwegian = list("Norwegian","NORWEGIAN_NORWAY.N8PC850");
  345.               polish = list("Polish","POLISH_POLAND.EE8PC852");
  346.               portuguese = list("Portuguese","PORTUGUESE_PORTUGAL.WE8PC850");
  347.               russian = list("Russian","RUSSIAN_CIS.RU8PC866");
  348.               slovak = list("Slovak","SLOVAK_CZECHOSLOVAKIA.EE8PC852");
  349.               spanish = list("Spanish","SPANISH_SPAIN.WE8PC850");
  350.               swedish = list("Swedish","SWEDISH_SWEDEN.S8PC850");
  351.               turkish = list("Turkish","TURKISH_TURKEY.TR8PC857");
  352.  
  353.               if (welcome)
  354.                 {
  355.               welcome_prompt = nls("welcome_prompt","Welcome to the Oracle Installer.");
  356.               language_prompt = "%welcome_prompt% %language_prompt%";
  357.             }
  358.  
  359.               welcome = FALSE;
  360.  
  361.               lang_list = list(english,brazilian_portuguese,
  362.                        czech,danish,dutch,
  363.                        finnish,french,german,
  364.                        greek,hungarian,italian,
  365.                        norwegian,polish,
  366.                        portuguese,russian,slovak,spanish,
  367.                        swedish,turkish);
  368.  
  369.               language_list = list(first(english),
  370.                        first(brazilian_portuguese),
  371.                        first(czech),
  372.                        first(danish),first(dutch),
  373.                        first(finnish),first(french),
  374.                        first(german),first(greek),
  375.                        first(hungarian),
  376.                        first(italian),
  377.                        first(norwegian),first(polish),
  378.                        first(portuguese),first(russian),
  379.                        first(slovak),first(spanish),
  380.                        first(swedish),first(turkish));
  381.  
  382.               nls_language = single_selection_dialog(language_prompt,
  383.                                  language_list,
  384.                                  first(english),
  385.                                  language_content,
  386.                                  language_help);
  387.  
  388.               while(not(nls_language == first(first(lang_list))))
  389.             lang_list = rest(lang_list);
  390.  
  391.               nls_language = first(rest(first(lang_list)));
  392.         
  393.               set_default_language(nls_language);
  394.  
  395.               reopen_resource_file();
  396.             }
  397.           ]
  398.  
  399.           if (v6_home_found)
  400.             if (not(exists("%server%\%oracle_home%\nlm\oramig.nlm")) ||
  401.             not(exists("%server%\%oracle_home%\dbs\migrate.bsq")))
  402.               {
  403.                 migrate = yesno_dialog(instantiate(migration_prompt),
  404.                            migration_content,
  405.                            instantiate(migration_help));
  406.             if (migrate)
  407.               signal('BOOTSTRAP);
  408.                       }
  409.                 
  410.           temp = vols;
  411.           
  412.           max_vol_name = 0;
  413.  
  414.           while(not(empty(temp)))  
  415.             {
  416.               a = length(first(temp));      
  417.               if (a > max_vol_name)
  418.             max_vol_name = a;
  419.               temp = rest(temp);
  420.             }
  421.             
  422.           volumes = list();
  423.           
  424.           while(not(empty(vols)))
  425.             {
  426.               volume = first(vols);
  427.  
  428.               len = stringify(free_space("%server%\%volume%:"),true);
  429.  
  430.               extract(vols,volume);
  431.  
  432.               line = volume;
  433.               
  434.               temp = length(volume);
  435.  
  436.               while(temp < max_vol_name)
  437.             {
  438.               line = "%line% ";
  439.               temp = temp + 1;
  440.             }
  441.  
  442.  
  443.               temp = length(len);
  444.  
  445.               while(temp < 6)
  446.             {
  447.               line = "%line% ";
  448.               temp = temp + 1;
  449.             }
  450.  
  451.               line = "%line%                    %len% %free%";
  452.               
  453.               if (home_found)
  454.             if (first(explode(line," ")) ==
  455.                 first(explode(oracle_home,":")))
  456.               {
  457.                 default_vol = line;
  458.                 home_vol = first(explode(line," "));
  459.                 home_dir = first(rest(explode(oracle_home,":")));
  460.               }
  461.               
  462.               add(volumes,line);
  463.             }
  464.           volume_ok = false;
  465.               
  466.           mark
  467.             while(not(volume_ok))
  468.               {
  469.             oracle_home_changed = false;
  470.  
  471.             if (home_found)
  472.               volume = single_selection_dialog(instantiate(get_vol_prompt1),
  473.                                volumes,
  474.                                default_vol,
  475.                                get_vol_content,
  476.                                instantiate(get_vol_help1));
  477.             else
  478.               volume = single_selection_dialog(get_vol_prompt2,
  479.                                volumes,
  480.                                get_vol_content,
  481.                                get_vol_help2);
  482.             if (home_found)
  483.               if (volume != default_vol)
  484.                 oracle_home_changed = true;
  485.                 
  486.             volume = first(explode(volume," "));
  487.  
  488.             home_ok = false;
  489.             {    
  490.             mark
  491.               while(not(home_ok))
  492.                 {
  493.                   if (home_found && not(oracle_home_changed))
  494.                 subdirectory = text_dialog(instantiate(get_dir_prompt1),
  495.                                home_dir,
  496.                                get_dir_content,
  497.                                instantiate(get_dir_help1));
  498.                   else
  499.                 subdirectory = text_dialog(get_dir_prompt2,
  500.                                oracle_directory,
  501.                                get_dir_content,
  502.                                instantiate(get_dir_help2));
  503.  
  504.                   oracle_home="%volume%:%subdirectory%";
  505.  
  506.                   if (home_found)
  507.                 {
  508.                   if (oracle_home == old_oracle_home)
  509.                     oracle_home_changed = false;
  510.                   else
  511.                     oracle_home_changed = true;
  512.                 }
  513.  
  514.                 mark
  515.                   {
  516.                         change_autoexec = false;
  517.  
  518.                         if (not(exists("%server%\sys:system\autoexec.ncf")))
  519.                           {
  520.                             need_create = true;
  521.                     need_add = true;
  522.                     need_delete = false;
  523.  
  524.                             change_autoexec = yesno_dialog(instantiate(autoexec_needed_prompt),
  525.                                    changes_needed_content,
  526.                                    instantiate(autoexec_needed_help));
  527.                   }
  528.                 else
  529.                   {
  530.                     need_create = false;
  531.               
  532.                     if (home_found && oracle_home_changed)
  533.                       need_delete = true;
  534.                     else
  535.                           need_delete = false;
  536.  
  537.                             need_add = false;
  538.           
  539.                             { test = translate("SEARCH ADD %oracle_home%\NLM",
  540.                                "%server%\sys:system\autoexec.ncf",
  541.                                ""); }
  542.                               [
  543.                                 'READ_ERROR:
  544.                                need_add = true;
  545.  
  546.                                 'UNBOUND_ENVIRONMENT_VARIABLE:
  547.                                need_add = true;
  548.                               ]
  549.  
  550.                     changes_help = changes_needed_help;
  551.                       
  552.                             if (need_add || need_delete)
  553.                           {
  554.                                 if (need_delete)
  555.                                   changes_help = "%changes_help% %search_delete%";
  556.                             if (need_add)
  557.                               changes_help = "%changes_help% %search_add%";
  558.                                 change_autoexec = yesno_dialog(instantiate(changes_needed_prompt),
  559.                                        changes_needed_content,
  560.                                        instantiate(changes_help));
  561.                       }
  562.                               }
  563.                               }
  564.  
  565.                   {
  566.                 /* Have Oracle Home Set */
  567.                 if (exists("%server%\%oracle_home%"))
  568.                   ui_action(nls("verify_home",
  569.                         "Verifying Oracle Home..."));
  570.                 else
  571.                   ui_action(nls("create_home",
  572.                         "Creating Oracle Home..."));
  573.                 current_dir = oracle_home;
  574.                 make_home_err_msg = make_home_err_msg1;
  575.                 make_directory("%server%\%oracle_home%");
  576.                 make_home_err_msg = make_home_err_msg3;
  577.                 current_dir = "%oracle_home%\NLM";
  578.                 make_directory("%server%\%oracle_home%\NLM");
  579.                 current_dir = "%oracle_home%\ORAINST";
  580.                 make_directory("%server%\%oracle_home%\ORAINST");
  581.                 signal('SHINY_HAPPY_PEOPLE);
  582.                   }
  583.                 [
  584.                   'FILE_NOT_FOUND:
  585.                   {
  586.                     information_dialog(instantiate(make_home_err_msg2),
  587.                                make_home_err_content,
  588.                                instantiate(make_home_err_help));
  589.                     home_ok = false;
  590.                   }
  591.                   
  592.                   'SHINY_HAPPY_PEOPLE:
  593.                   {
  594.                     home_ok = true;
  595.                     volume_ok = true;
  596.                   }
  597.                 ]
  598.                             }
  599.                 }
  600.               [
  601.                 'WRITE_ERROR:
  602.                 {
  603.                   information_dialog(instantiate(make_home_err_msg),
  604.                          make_home_err_content,
  605.                          instantiate(make_home_err_help));
  606.                    home_ok = false;
  607.                    volume_ok = false;
  608.                 }
  609.               ]
  610.                       }
  611.  
  612.           /* Modify AUTOEXEC.NCF, if necessary and given permission */
  613.  
  614.           if (change_autoexec)
  615.             {
  616.               {
  617.                 if (need_create)
  618.               create_file("%server%\sys:system\autoexec.ncf");
  619.                 else
  620.               copy_file("%server%\sys:system\autoexec.ncf",
  621.                     "%server%\sys:system\autoexec.bak");
  622.               }
  623.                 [
  624.               'READ_ERROR:
  625.               {
  626.                 file = "AUTOEXEC.NCF";
  627.                 information_dialog(instantiate(backup_error_message));
  628.               }
  629.               'WRITE_ERROR:
  630.               {
  631.                 if (need_create)
  632.                   information_dialog(instantiate(autoexec_create_error_message));
  633.                 else
  634.                   information_dialog(instantiate(backup_error_message));
  635.               }
  636.             ]
  637.  
  638.               if (need_delete)
  639.                 modify("SEARCH ADD %old_oracle_home%\NLM","",
  640.                    "%server%\sys:system\autoexec.ncf","");
  641.               if (need_add)
  642.                 modify("","SEARCH ADD %oracle_home%\NLM",
  643.                    "%server%\sys:system\autoexec.ncf","");
  644.             }
  645.  
  646.                   {
  647.             if (home_found && oracle_home_changed)
  648.               {
  649.             file = "ORALOAD.NCF";
  650.                 if (exists("%server%\sys:system\%file%"))
  651.               copy_file("%server%\sys:system\%file%",
  652.                     "%server%\sys:system\oraload.bak");
  653.             file = "ORAUNLD.NCF";
  654.                 if (exists("%server%\sys:system\%file%"))
  655.               copy_file("%server%\sys:system\%file%",
  656.                     "%server%\sys:system\oraunld.bak");
  657.               }
  658.           }
  659.           [
  660.             'READ_ERROR: information_dialog(instantiate(backup_error_message));
  661.             'WRITE_ERROR: information_dialog(instantiate(backup_error_message));
  662.           ]
  663.  
  664.           /* Write CONFIG.ORA */
  665.           if ((home_found && oracle_home_changed) || v6_home_found)
  666.             {
  667.               file = "CONFIG.ORA";
  668.               
  669.                       { move_file("%server%\%ora_config%",
  670.                   "%server%\sys:system\config.bak"); }
  671.               [
  672.             'WRITE_ERROR: information_dialog(instantiate(backup_error_message));
  673.                 'OS_ERROR: information_dialog(instantiate(backup_error_message));
  674.               ]
  675.  
  676.               if (nls_lang_found)
  677.                     {
  678.                       english = list("English","AMERICAN_AMERICA.US7ASCII");
  679.                   brazilian_portuguese = list("Brazilian Portuguese",
  680.                               "BRAZILIAN PORTUGUESE_BRAZIL.WE8PC850");
  681.                   czech = list("Czech","CZECH_CZECHOSLOVAKIA.EE8PC852");
  682.                   danish = list("Danish","DANISH_DENMARK.DK8PC850");
  683.                   dutch = list("Dutch","DUTCH_THE NETHERLANDS.WE8PC850");
  684.                   finnish = list("Finnish","FINNISH_FINLAND.SF8PC850");
  685.                   french = list("French","FRENCH_FRANCE.WE8PC850");
  686.                   german = list("German","GERMAN_GERMANY.WE8PC850");
  687.                   greek = list("Greek","GREEK_GREECE.EL8PC437S");
  688.                   hungarian = list("Hungarian","HUNGARIAN_HUNGARY.EE8PC852");
  689.                   italian = list("Italian","ITALIAN_ITALY.WE8PC850");
  690.                   norwegian = list("Norwegian","NORWEGIAN_NORWAY.N8PC850");
  691.                   polish = list("Polish","POLISH_POLAND.EE8PC852");
  692.                   portuguese = list("Portuguese","PORTUGUESE_PORTUGAL.WE8PC850");
  693.                   russian = list("Russian","RUSSIAN_CIS.RU8PC866");
  694.                   slovak = list("Slovak","SLOVAK_CZECHOSLOVAKIA.EE8PC852");
  695.                   spanish = list("Spanish","SPANISH_SPAIN.WE8PC850");
  696.                   swedish = list("Swedish","SWEDISH_SWEDEN.S8PC850");
  697.                   turkish = list("Turkish","TURKISH_TURKEY.TR8PC857");
  698.  
  699.               lang_list = list(english,brazilian_portuguese,
  700.                        czech,danish,dutch,
  701.                        finnish,french,german,
  702.                        greek,hungarian,italian,
  703.                        norwegian,polish,
  704.                        portuguese,russian,slovak,spanish,
  705.                        swedish,turkish);
  706.  
  707.               language_list = list(first(english),
  708.                            first(brazilian_portuguese),
  709.                            first(czech),
  710.                            first(danish),first(dutch),
  711.                            first(finnish),first(french),
  712.                            first(german),first(greek),
  713.                            first(hungarian),
  714.                            first(italian),
  715.                            first(norwegian),first(polish),
  716.                            first(portuguese),first(russian),
  717.                            first(slovak),first(spanish),
  718.                            first(swedish),first(turkish));
  719.  
  720.               nls_language = single_selection_dialog(language_prompt,
  721.                                  language_list,
  722.                                  first(english),
  723.                                  language_content,
  724.                                  language_help);
  725.  
  726.               while(not(nls_language == first(first(lang_list))))
  727.                     lang_list = rest(lang_list);
  728.  
  729.               nls_language = first(rest(first(lang_list)));
  730.         
  731.               set_default_language(nls_language);
  732.  
  733.               reopen_resource_file();
  734.             }
  735.             }
  736.  
  737.           if (not(exists("%server%\%ora_config%"))) 
  738.               create_file("%server%\%ora_config%");
  739.  
  740.           /* If there is no registry file, then make one. */
  741.               
  742.           if (not(exists("%server%\%oracle_home%\orainst\netware.rgs")))
  743.             create_file("%server%\%oracle_home%\orainst\netware.rgs");
  744.  
  745.           modify("ORACLE_HOME",oracle_home,
  746.              "%server%\%ora_config%");
  747.  
  748.           modify("NLS_LANG",nls_language,
  749.              "%server%\%ora_config%");
  750.  
  751.           server_ok = true;
  752.                 }
  753.           server_ok = true;
  754.             }
  755.         }
  756.   }
  757.   [
  758.     'BOOTSTRAP:
  759.     {
  760.       bootstrap = true;
  761.       make_directory("%server%\%oracle_home%\orainst");
  762.       if (not(exists("%server%\%oracle_home%\orainst\netware.rgs")))
  763.     create_file("%server%\%oracle_home%\orainst\netware.rgs");
  764.     }
  765.   ]
  766.  
  767.   ui_action(nls("prepare_to_install","Preparing to Install..."));
  768.  
  769.   reinstall_prompt01 = nls("reinstall_prompt01","The currently installed version of %%product_label%%, %%installed_version%%, is out of date. The most current version is %%current_version%%. Do you wish to update %%product_label%%?");
  770.  
  771.   reinstall_content01 = nls("reinstall_content01","Update");
  772.  
  773.   reinstall_help01 = nls("reinstall_help01","The currently installed version of %%product_label%%, %%installed_version%%, is out of date. The most current version is %%current_version%%. It is recommended that you update %%product_label%% to the newer version, %%current_version%%. Choose 'Yes' to update %%product_label%% to %%current_version%%. Choose 'No' if you are sure you want to keep the installed version, %%installed_version%%, intact.");
  774.  
  775.   reinstall_prompt02 = nls("reinstall_prompt02","WARNING: Not installing the latest version of %%product_label%%, %%current_version%%, may cause other Oracle products to work improperly.");
  776.  
  777.   reinstall_content02 = nls("reinstall_content02","Necessary Update");
  778.  
  779.   reinstall_help02 = nls("reinstall_help02","You are in the process of installing Oracle products which depend on version %%current_version%% of %%product_label%%. It is therefore recommended that you update %%product_label%% to %%current_version%%. You have chosen not to do so so, which may cause certain Oracle products to work improperly.");
  780.  
  781.   reinstall_prompt03 = nls("reinstall_prompt03","WARNING: The currently installed version of %%product_label%%, %%installed_version%%, is up to date. Are you sure you want to install the old version, %%current_version%%?  Doing so may cause other Oracle products to work improperly.");
  782.  
  783.   reinstall_content03 = nls("reinstall_content03","Old Version");
  784.  
  785.   reinstall_help03 = nls("reinstall_help03","You are attempting to install an older version of %%product_label%%, %%current_version%%, although version %%installed_version%% is already installed. Installing an older version of %%product_label%% may cause other Oracle products to work improperly. Choose 'No' to leave the current version of %%product_label%%, %%installed_version%%, intact. Choose 'Yes' if you are sure you want to replace it with version %%current_version%%.");
  786.  
  787.   reinstall_prompt04 = nls("reinstall_prompt04","Version %%installed_version%% of %%product_label%% has already been installed and is up to date. Would you like to reinstall it?");
  788.  
  789.   reinstall_content04 = nls("reinstall_content04","Up To Date");
  790.  
  791.   reinstall_help04 = nls("reinstall_help04","Version %%installed_version%% of %%product_label%% has already been installed and is up to date. There is no need to reinstall %%product_label%% unless the installation has somehow become damaged. Choose 'No' to skip the reinstallation of %%product_label%%. Choose 'Yes' if you are sure you want to reinstall it.");
  792.  
  793.   deinstall_prompt01 = nls("deinstall_prompt01","WARNING: Other products are dependent on %%registry_label%%. Removing it may cause other products to work improperly. Are you sure you want to deinstall it?");
  794.  
  795.   deinstall_content01 = nls("deinstall_content01","Dependencies");
  796.  
  797.   deinstall_help01 = nls("deinstall_help01","Other products are dependent on %%registry_label%%. Removing it may cause them to work improperly. It is therefore recommended that you do not remove %%registry_label%%. Choose 'No' to leave %%registry_label%% intact. Choose 'Yes' if you are sure you want to remove it.");
  798. }