1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#
# This file is part of the LibreOffice project.
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This file incorporates work covered by the following license notice:
#
# 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 .
#
package installer::environment;
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, 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 $shlxthdlpath = $ENV{'INSTDIR'} . $installer::globals::separator . "program" . $installer::globals::separator . "shlxthdl";
$variables{'shlxthdlpath'} = $shlxthdlpath;
$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;
my $filelistpath = $environment->{'WORKDIR'};
$variables{'filelistpath'} = $filelistpath;
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/;
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);
die 'If "~" is used in "LOCALINSTALLDIR", environment variable "HOME" needs to be defined!';
}
}
##################################################
# 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{'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;
|
