| #************************************************************** |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (the |
| # "License"); you may not use this file except in compliance |
| # with the License. You may obtain a copy of the License at |
| # |
| # http://www.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| #************************************************************** |
| |
| |
| |
| package installer::environment; |
| |
| use installer::exiter; |
| use installer::globals; |
| |
| ###################################################### |
| # Create path variables from environment variables |
| ###################################################### |
| |
| sub create_pathvariables |
| { |
| my ($environment) = @_; |
| |
| my %variables = (); |
| |
| # The following variables are needed in the path file list |
| # solarpath, solarenvpath, solarcommonpath, os, osdef, pmiscpath |
| |
| my $solarpath = $environment->{'SOLARVERSION'} . $installer::globals::separator . $installer::globals::compiler . $installer::globals::productextension; |
| $variables{'solarpath'} = $solarpath; |
| |
| my $solarcommonpath = $environment->{'SOLARVERSION'} . $installer::globals::separator . "common" . $installer::globals::productextension; |
| # my $solarcommonpath = $environment->{'SOLARVERSION'} . $installer::globals::separator . $environment->{'COMMON_OUTDIR'} . $installer::globals::productextension; |
| $variables{'solarcommonpath'} = $solarcommonpath; |
| |
| my $osdef = lc($environment->{'GUI'}); |
| $variables{'osdef'} = $osdef; |
| |
| $variables{'os'} = $installer::globals::compiler; |
| |
| my $solarenvpath = ""; |
| |
| if ( $ENV{'SO_PACK'} ) { $solarenvpath = $ENV{'SO_PACK'}; } |
| # overriding with STAR_INSTPATH, if set |
| if ( $ENV{'STAR_INSTPATH'} ) { $solarenvpath = $ENV{'STAR_INSTPATH'}; } |
| |
| $variables{'solarenvpath'} = $solarenvpath; |
| |
| my $localpath = $environment->{'LOCAL_OUT'}; |
| $variables{'localpath'} = $localpath; |
| |
| my $localcommonpath = $environment->{'LOCAL_COMMON_OUT'}; |
| $variables{'localcommonpath'} = $localcommonpath; |
| |
| my $platformname = $environment->{'OUTPATH'}; |
| $variables{'platformname'} = $platformname; |
| |
| return \%variables; |
| } |
| |
| ################################################## |
| # Replacing tilde in paths, because of |
| # problem with deep recursion (task 104830) |
| ################################################## |
| |
| sub check_tilde_in_directory |
| { |
| if ( $ENV{'HOME'} ) |
| { |
| my $home = $ENV{'HOME'}; |
| $home =~ s/\Q$installer::globals::separator\E\s*$//; |
| $installer::globals::localinstalldir =~ s/~/$home/; |
| $installer::logger::Lang->printf("Info: Changing LOCALINSTALLDIR to %s\n", $installer::globals::localinstalldir); |
| } |
| else |
| { |
| # exit, because "~" is not allowed, if HOME is not set |
| $installer::logger::Lang->printf("ERROR: If \"~\" is used in \"LOCALINSTALLDIR\", environment variable \"HOME\" needs to be defined!\n"); |
| installer::exiter::exit_program("ERROR: If \"~\" is used in \"LOCALINSTALLDIR\", environment variable \"HOME\" needs to be defined!", "check_tilde_in_directory"); |
| } |
| } |
| |
| ################################################## |
| # Setting some fundamental global variables. |
| # All these variables can be overwritten |
| # by parameters. |
| ################################################## |
| |
| sub set_global_environment_variables |
| { |
| my ( $environment ) = @_; |
| |
| $installer::globals::build = $environment->{'WORK_STAMP'}; |
| # $installer::globals::minor = $environment->{'UPDMINOR'}; |
| $installer::globals::compiler = $environment->{'OUTPATH'}; |
| |
| if ( $ENV{'UPDMINOR'} ) { $installer::globals::minor = $ENV{'UPDMINOR'}; } |
| if ( $ENV{'LAST_MINOR'} ) { $installer::globals::lastminor = $ENV{'LAST_MINOR'}; } |
| |
| if ( $ENV{'PROEXT'} ) { $installer::globals::pro = 1; } |
| |
| if ( $ENV{'VERBOSE'} && ( (lc $ENV{'VERBOSE'}) eq "false" ) ) { $installer::globals::quiet = 1; } |
| if ( $ENV{'PREPARE_WINPATCH'} ) { $installer::globals::prepare_winpatch = 1; } |
| if ( $ENV{'PREVIOUS_IDT_DIR'} ) { $installer::globals::previous_idt_dir = $ENV{'PREVIOUS_IDT_DIR'}; } |
| if ( $ENV{'LOCALINSTALLDIR'} ) { $installer::globals::localinstalldir = $ENV{'LOCALINSTALLDIR'}; } |
| if ( $ENV{'LOCALUNPACKDIR'} ) { $installer::globals::localunpackdir = $ENV{'LOCALUNPACKDIR'}; } |
| if ( $ENV{'MAX_LANG_LENGTH'} ) { $installer::globals::max_lang_length = $ENV{'MAX_LANG_LENGTH'}; } |
| |
| if ( $ENV{'SOLAR_JAVA'} ) { $installer::globals::solarjavaset = 1; } |
| if ( $ENV{'RPM'} ) { $installer::globals::rpm = $ENV{'RPM'}; } |
| if ( $ENV{'DONTCOMPRESS'} ) { $installer::globals::solarisdontcompress = 1; } |
| if ( $ENV{'IGNORE_ERROR_IN_LOGFILE'} ) { $installer::globals::ignore_error_in_logfile = 1; } |
| if (( $ENV{'DISABLE_STRIP'} ) && ( $ENV{'DISABLE_STRIP'} ne '' )) { $installer::globals::strip = 0; } |
| |
| if ( $installer::globals::localinstalldir ) { $installer::globals::localinstalldirset = 1; } |
| # Special handling, if LOCALINSTALLDIR contains "~" in the path |
| if ( $installer::globals::localinstalldir =~ /^\s*\~/ ) { check_tilde_in_directory(); } |
| } |
| |
| 1; |