diff options
Diffstat (limited to 'solenv/bin/modules/installer/environment.pm')
| -rw-r--r-- | solenv/bin/modules/installer/environment.pm | 136 |
1 files changed, 0 insertions, 136 deletions
diff --git a/solenv/bin/modules/installer/environment.pm b/solenv/bin/modules/installer/environment.pm deleted file mode 100644 index d9ddc51a4..000000000 --- a/solenv/bin/modules/installer/environment.pm +++ /dev/null @@ -1,136 +0,0 @@ -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 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; - $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 pathes, 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/; - my $infoline = "Info: Changing LOCALINSTALLDIR to $installer::globals::localinstalldir\n"; - push(@installer::globals::logfileinfo, $infoline); - } - else - { - # exit, because "~" is not allowed, if HOME is not set - my $infoline = "ERROR: If \"~\" is used in \"LOCALINSTALLDIR\", environment variable \"HOME\" needs to be defined!\n"; - push(@installer::globals::logfileinfo, $infoline); - 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::compiler = $environment->{'OUTPATH'}; - - 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; |