19780544fSAndrew Rist#**************************************************************
29780544fSAndrew Rist#
39780544fSAndrew Rist#  Licensed to the Apache Software Foundation (ASF) under one
49780544fSAndrew Rist#  or more contributor license agreements.  See the NOTICE file
59780544fSAndrew Rist#  distributed with this work for additional information
69780544fSAndrew Rist#  regarding copyright ownership.  The ASF licenses this file
79780544fSAndrew Rist#  to you under the Apache License, Version 2.0 (the
89780544fSAndrew Rist#  "License"); you may not use this file except in compliance
99780544fSAndrew Rist#  with the License.  You may obtain a copy of the License at
109780544fSAndrew Rist#
119780544fSAndrew Rist#    http://www.apache.org/licenses/LICENSE-2.0
129780544fSAndrew Rist#
139780544fSAndrew Rist#  Unless required by applicable law or agreed to in writing,
149780544fSAndrew Rist#  software distributed under the License is distributed on an
159780544fSAndrew Rist#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
169780544fSAndrew Rist#  KIND, either express or implied.  See the License for the
179780544fSAndrew Rist#  specific language governing permissions and limitations
189780544fSAndrew Rist#  under the License.
199780544fSAndrew Rist#
209780544fSAndrew Rist#**************************************************************
219780544fSAndrew Rist
229780544fSAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweirpackage installer::scriptitems;
25cdf0e10cSrcweir
26cdf0e10cSrcweiruse installer::converter;
27cdf0e10cSrcweiruse installer::existence;
28cdf0e10cSrcweiruse installer::exiter;
29cdf0e10cSrcweiruse installer::globals;
30cdf0e10cSrcweiruse installer::languages;
31cdf0e10cSrcweiruse installer::logger;
32cdf0e10cSrcweiruse installer::pathanalyzer;
33cdf0e10cSrcweiruse installer::remover;
34cdf0e10cSrcweiruse installer::systemactions;
35cdf0e10cSrcweir
36*8bd5297cSJürgen Schmidtuse File::Spec;
37*8bd5297cSJürgen Schmidtuse SvnRevision;
38*8bd5297cSJürgen Schmidt
39cdf0e10cSrcweir################################################################
40cdf0e10cSrcweir# Resolving the GID for the directories defined in setup script
41cdf0e10cSrcweir################################################################
42cdf0e10cSrcweir
43cdf0e10cSrcweirsub resolve_all_directory_names
44cdf0e10cSrcweir{
45cdf0e10cSrcweir	my ($directoryarrayref) = @_;
46cdf0e10cSrcweir
47cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolve_all_directory_names : $#{$directoryarrayref}"); }
48cdf0e10cSrcweir
49cdf0e10cSrcweir	# After this procedure the hash shall contain the complete language
50cdf0e10cSrcweir	# dependent path, not only the language dependent HostName.
51cdf0e10cSrcweir
52cdf0e10cSrcweir	my ($key, $value, $parentvalue, $parentgid, $parentdirectoryhashref);
53cdf0e10cSrcweir
54cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$directoryarrayref}; $i++ )
55cdf0e10cSrcweir	{
56cdf0e10cSrcweir		my $directoryhashref = ${$directoryarrayref}[$i];
57cdf0e10cSrcweir		my $gid = $directoryhashref-> {'gid'};
58cdf0e10cSrcweir		my $parentid = $directoryhashref-> {'ParentID'};
59cdf0e10cSrcweir
60cdf0e10cSrcweir		if ( $parentid ne "PREDEFINED_PROGDIR" )
61cdf0e10cSrcweir		{
62cdf0e10cSrcweir			# find the array of the parentid, which has to be defined before in setup script
63cdf0e10cSrcweir			# and is therefore listed before in this array
64cdf0e10cSrcweir
65cdf0e10cSrcweir			for ( my $j = 0; $j <= $i; $j++ )
66cdf0e10cSrcweir			{
67cdf0e10cSrcweir				$parentdirectoryhashref = ${$directoryarrayref}[$j];
68cdf0e10cSrcweir				$parentgid = $parentdirectoryhashref->{'gid'};
69cdf0e10cSrcweir
70cdf0e10cSrcweir				if ( $parentid eq $parentgid)
71cdf0e10cSrcweir				{
72cdf0e10cSrcweir					last;
73cdf0e10cSrcweir				}
74cdf0e10cSrcweir			}
75cdf0e10cSrcweir
76cdf0e10cSrcweir			# and now we can put the path together
77cdf0e10cSrcweir			# But take care of the languages!
78cdf0e10cSrcweir
79cdf0e10cSrcweir			my $dirismultilingual = $directoryhashref->{'ismultilingual'};
80cdf0e10cSrcweir			my $parentismultilingual = $parentdirectoryhashref->{'ismultilingual'};
81cdf0e10cSrcweir
82cdf0e10cSrcweir			# First: Both directories are language independent or both directories are language dependent
83cdf0e10cSrcweir
84cdf0e10cSrcweir			if ((( ! $dirismultilingual ) && ( ! $parentismultilingual )) ||
85cdf0e10cSrcweir				(( $dirismultilingual ) && ( $parentismultilingual )))
86cdf0e10cSrcweir			{
87cdf0e10cSrcweir				foreach $key (keys %{$directoryhashref})
88cdf0e10cSrcweir				{
89cdf0e10cSrcweir					# the key ("HostName (en-US)") must be usable for both hashes
90cdf0e10cSrcweir
91cdf0e10cSrcweir					if ( $key =~ /\bHostName\b/ )
92cdf0e10cSrcweir					{
93cdf0e10cSrcweir						$parentvalue = "";
94cdf0e10cSrcweir						$value = $directoryhashref->{$key};
95cdf0e10cSrcweir						if ( $parentdirectoryhashref->{$key} ) { $parentvalue = $parentdirectoryhashref->{$key}; }
96cdf0e10cSrcweir
97cdf0e10cSrcweir						# It is possible, that in scp project, a directory is defined in more languages than
98cdf0e10cSrcweir						# the directory parent (happened after automatic generation of macros.inc).
99cdf0e10cSrcweir						# Therefore this is checked now and written with a warning into the logfile.
100cdf0e10cSrcweir						# This is no error, because (in most cases) the concerned language is not build.
101cdf0e10cSrcweir
102cdf0e10cSrcweir						if ($parentvalue eq "")
103cdf0e10cSrcweir						{
104cdf0e10cSrcweir							$directoryhashref->{$key} = "FAILURE";
105cdf0e10cSrcweir							my $infoline = "WARNING: No hostname for $parentid with \"$key\". Needed by child directory $gid !\n";
106cdf0e10cSrcweir							push( @installer::globals::globallogfileinfo, $infoline);
107cdf0e10cSrcweir						}
108cdf0e10cSrcweir						else
109cdf0e10cSrcweir						{
110cdf0e10cSrcweir							$directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
111cdf0e10cSrcweir						}
112cdf0e10cSrcweir					}
113cdf0e10cSrcweir				}
114cdf0e10cSrcweir			}
115cdf0e10cSrcweir
116cdf0e10cSrcweir			# Second: The directory is language dependent, the parent not
117cdf0e10cSrcweir
118cdf0e10cSrcweir			if (( $dirismultilingual ) && ( ! $parentismultilingual ))
119cdf0e10cSrcweir			{
120cdf0e10cSrcweir				$parentvalue = $parentdirectoryhashref->{'HostName'};		# there is only one
121cdf0e10cSrcweir
122cdf0e10cSrcweir				foreach $key (keys %{$directoryhashref})		# the current directory
123cdf0e10cSrcweir				{
124cdf0e10cSrcweir					if ( $key =~ /\bHostName\b/ )
125cdf0e10cSrcweir					{
126cdf0e10cSrcweir						$value = $directoryhashref->{$key};
127cdf0e10cSrcweir						$directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
128cdf0e10cSrcweir					}
129cdf0e10cSrcweir				}
130cdf0e10cSrcweir			}
131cdf0e10cSrcweir
132cdf0e10cSrcweir			# Third: The directory is not language dependent, the parent is language dependent
133cdf0e10cSrcweir
134cdf0e10cSrcweir			if (( ! $dirismultilingual ) && ( $parentismultilingual ))
135cdf0e10cSrcweir			{
136cdf0e10cSrcweir				$value = $directoryhashref->{'HostName'};		# there is only one
137cdf0e10cSrcweir				delete($directoryhashref->{'HostName'});
138cdf0e10cSrcweir
139cdf0e10cSrcweir				foreach $key (keys %{$parentdirectoryhashref})		# the parent directory
140cdf0e10cSrcweir				{
141cdf0e10cSrcweir					if ( $key =~ /\bHostName\b/ )
142cdf0e10cSrcweir					{
143cdf0e10cSrcweir						$parentvalue = $parentdirectoryhashref->{$key};		# there is only one
144cdf0e10cSrcweir						$directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
145cdf0e10cSrcweir					}
146cdf0e10cSrcweir				}
147cdf0e10cSrcweir
148cdf0e10cSrcweir				$directoryhashref->{'ismultilingual'} = 1;	# now this directory is also language dependent
149cdf0e10cSrcweir			}
150cdf0e10cSrcweir		}
151cdf0e10cSrcweir	}
152cdf0e10cSrcweir}
153cdf0e10cSrcweir
154cdf0e10cSrcweir#############################################################################
155cdf0e10cSrcweir# Files with flag DELETE_ONLY do not need to be packed into installation set
156cdf0e10cSrcweir#############################################################################
157cdf0e10cSrcweir
158cdf0e10cSrcweirsub remove_delete_only_files_from_productlists
159cdf0e10cSrcweir{
160cdf0e10cSrcweir	my ($productarrayref) = @_;
161cdf0e10cSrcweir
162cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_delete_only_files_from_productlists : $#{$productarrayref}"); }
163cdf0e10cSrcweir
164cdf0e10cSrcweir	my @newitems = ();
165cdf0e10cSrcweir
166cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
167cdf0e10cSrcweir	{
168cdf0e10cSrcweir		my $oneitem = ${$productarrayref}[$i];
169cdf0e10cSrcweir		my $styles = "";
170cdf0e10cSrcweir
171cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
172cdf0e10cSrcweir
173cdf0e10cSrcweir		if (!($styles =~ /\bDELETE_ONLY\b/))
174cdf0e10cSrcweir		{
175cdf0e10cSrcweir			push(@newitems, $oneitem);
176cdf0e10cSrcweir		}
177cdf0e10cSrcweir	}
178cdf0e10cSrcweir
179cdf0e10cSrcweir	return \@newitems;
180cdf0e10cSrcweir}
181cdf0e10cSrcweir
182cdf0e10cSrcweir#############################################################################
183cdf0e10cSrcweir# Files with flag NOT_IN_SUITE do not need to be packed into
184cdf0e10cSrcweir# Suite installation sets
185cdf0e10cSrcweir#############################################################################
186cdf0e10cSrcweir
187cdf0e10cSrcweirsub remove_notinsuite_files_from_productlists
188cdf0e10cSrcweir{
189cdf0e10cSrcweir	my ($productarrayref) = @_;
190cdf0e10cSrcweir
191cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_notinsuite_files_from_productlists : $#{$productarrayref}"); }
192cdf0e10cSrcweir
193cdf0e10cSrcweir	my @newitems = ();
194cdf0e10cSrcweir
195cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
196cdf0e10cSrcweir	{
197cdf0e10cSrcweir		my $oneitem = ${$productarrayref}[$i];
198cdf0e10cSrcweir		my $styles = "";
199cdf0e10cSrcweir
200cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
201cdf0e10cSrcweir
202cdf0e10cSrcweir		if (!($styles =~ /\bNOT_IN_SUITE\b/))
203cdf0e10cSrcweir		{
204cdf0e10cSrcweir			push(@newitems, $oneitem);
205cdf0e10cSrcweir		}
206cdf0e10cSrcweir		else
207cdf0e10cSrcweir		{
208cdf0e10cSrcweir			my $infoline = "INFO: Flag NOT_IN_SUITE \-\> Removing $oneitem->{'gid'} from file list.\n";
209cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
210cdf0e10cSrcweir		}
211cdf0e10cSrcweir	}
212cdf0e10cSrcweir
213cdf0e10cSrcweir	return \@newitems;
214cdf0e10cSrcweir}
215cdf0e10cSrcweir
216cdf0e10cSrcweir#############################################################################
217cdf0e10cSrcweir# Files with flag NOT_IN_SUITE do not need to be packed into
218cdf0e10cSrcweir# Suite installation sets
219cdf0e10cSrcweir#############################################################################
220cdf0e10cSrcweir
221cdf0e10cSrcweirsub remove_office_start_language_files
222cdf0e10cSrcweir{
223cdf0e10cSrcweir	my ($productarrayref) = @_;
224cdf0e10cSrcweir
225cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_notinsuite_files_from_productlists : $#{$productarrayref}"); }
226cdf0e10cSrcweir
227cdf0e10cSrcweir	my @newitems = ();
228cdf0e10cSrcweir
229cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
230cdf0e10cSrcweir	{
231cdf0e10cSrcweir		my $oneitem = ${$productarrayref}[$i];
232cdf0e10cSrcweir		my $styles = "";
233cdf0e10cSrcweir
234cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
235cdf0e10cSrcweir
236cdf0e10cSrcweir		if (!($styles =~ /\bSET_OFFICE_LANGUAGE\b/))
237cdf0e10cSrcweir		{
238cdf0e10cSrcweir			push(@newitems, $oneitem);
239cdf0e10cSrcweir		}
240cdf0e10cSrcweir		else
241cdf0e10cSrcweir		{
242cdf0e10cSrcweir			my $infoline = "INFO: Flag SET_OFFICE_LANGUAGE \-\> Removing $oneitem->{'gid'} from file list.\n";
243cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
244cdf0e10cSrcweir		}
245cdf0e10cSrcweir	}
246cdf0e10cSrcweir
247cdf0e10cSrcweir	return \@newitems;
248cdf0e10cSrcweir}
249cdf0e10cSrcweir
250cdf0e10cSrcweir#############################################################################
251cdf0e10cSrcweir# Registryitems for Uninstall have to be removed
252cdf0e10cSrcweir#############################################################################
253cdf0e10cSrcweir
254cdf0e10cSrcweirsub remove_uninstall_regitems_from_script
255cdf0e10cSrcweir{
256cdf0e10cSrcweir	my ($registryarrayref) = @_;
257cdf0e10cSrcweir
258cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_uninstall_regitems_from_script : $#{$registryarrayref}"); }
259cdf0e10cSrcweir
260cdf0e10cSrcweir	my @newitems = ();
261cdf0e10cSrcweir
262cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$registryarrayref}; $i++ )
263cdf0e10cSrcweir	{
264cdf0e10cSrcweir		my $oneitem = ${$registryarrayref}[$i];
265cdf0e10cSrcweir		my $subkey = "";
266cdf0e10cSrcweir
267cdf0e10cSrcweir		if ( $oneitem->{'Subkey'} ) { $subkey = $oneitem->{'Subkey'}; }
268cdf0e10cSrcweir
269cdf0e10cSrcweir		if ( $subkey =~ /Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall/ ) { next; }
270cdf0e10cSrcweir
271cdf0e10cSrcweir		push(@newitems, $oneitem);
272cdf0e10cSrcweir	}
273cdf0e10cSrcweir
274cdf0e10cSrcweir	return \@newitems;
275cdf0e10cSrcweir}
276cdf0e10cSrcweir
277cdf0e10cSrcweir##############################################################################
278cdf0e10cSrcweir# Searching the language module for a specified language
279cdf0e10cSrcweir##############################################################################
280cdf0e10cSrcweir
281cdf0e10cSrcweirsub get_languagespecific_module
282cdf0e10cSrcweir{
283cdf0e10cSrcweir	my ( $lang, $modulestring ) = @_;
284cdf0e10cSrcweir
285cdf0e10cSrcweir	my $langmodulestring = "";
286cdf0e10cSrcweir
287cdf0e10cSrcweir	my $module;
288cdf0e10cSrcweir	foreach	$module ( keys %installer::globals::alllangmodules )
289cdf0e10cSrcweir	{
290cdf0e10cSrcweir		if (( $installer::globals::alllangmodules{$module} eq $lang ) && ( $modulestring =~ /\b$module\b/ ))
291cdf0e10cSrcweir		{
292cdf0e10cSrcweir			$langmodulestring = "$langmodulestring,$module";
293cdf0e10cSrcweir		}
294cdf0e10cSrcweir	}
295cdf0e10cSrcweir
296cdf0e10cSrcweir	$langmodulestring =~ s/^\s*,//;
297cdf0e10cSrcweir
298cdf0e10cSrcweir	if ( $langmodulestring eq "" ) { installer::exiter::exit_program("ERROR: No language pack module found for language $lang in string \"$modulestring\"!", "get_languagespecific_module");  }
299cdf0e10cSrcweir
300cdf0e10cSrcweir	return $langmodulestring;
301cdf0e10cSrcweir}
302cdf0e10cSrcweir
303cdf0e10cSrcweir##############################################################################
304cdf0e10cSrcweir# Removing all items in product lists which do not have the correct languages
305cdf0e10cSrcweir##############################################################################
306cdf0e10cSrcweir
307cdf0e10cSrcweirsub resolving_all_languages_in_productlists
308cdf0e10cSrcweir{
309cdf0e10cSrcweir	my ($productarrayref, $languagesarrayref) = @_;
310cdf0e10cSrcweir
311cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolving_all_languages_in_productlists : $#{$productarrayref} : $#{$languagesarrayref}"); }
312cdf0e10cSrcweir
313cdf0e10cSrcweir	my @itemsinalllanguages = ();
314cdf0e10cSrcweir
315cdf0e10cSrcweir	my ($key, $value);
316cdf0e10cSrcweir
317cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
318cdf0e10cSrcweir	{
319cdf0e10cSrcweir		my $oneitem = ${$productarrayref}[$i];
320cdf0e10cSrcweir
321cdf0e10cSrcweir		my $ismultilingual = $oneitem->{'ismultilingual'};
322cdf0e10cSrcweir
323cdf0e10cSrcweir		if (!($ismultilingual))	# nothing to do with single language items
324cdf0e10cSrcweir		{
325cdf0e10cSrcweir			$oneitem->{'specificlanguage'} = "";
326cdf0e10cSrcweir			push(@itemsinalllanguages, $oneitem);
327cdf0e10cSrcweir		}
328cdf0e10cSrcweir		else	#all language dependent files
329cdf0e10cSrcweir		{
330cdf0e10cSrcweir			for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ )	# iterating over all languages
331cdf0e10cSrcweir			{
332cdf0e10cSrcweir				my $onelanguage = ${$languagesarrayref}[$j];
333cdf0e10cSrcweir
334cdf0e10cSrcweir				my %oneitemhash = ();
335cdf0e10cSrcweir
336cdf0e10cSrcweir				foreach $key (keys %{$oneitem})
337cdf0e10cSrcweir				{
338cdf0e10cSrcweir					if ( $key =~ /\(\S+\)/ )	# this are the language dependent keys
339cdf0e10cSrcweir					{
340cdf0e10cSrcweir						if ( $key =~ /\(\Q$onelanguage\E\)/ )
341cdf0e10cSrcweir						{
342cdf0e10cSrcweir							$value = $oneitem->{$key};
343cdf0e10cSrcweir							$oneitemhash{$key} = $value;
344cdf0e10cSrcweir						}
345cdf0e10cSrcweir					}
346cdf0e10cSrcweir					else
347cdf0e10cSrcweir					{
348cdf0e10cSrcweir						$value = $oneitem->{$key};
349cdf0e10cSrcweir						$oneitemhash{$key} = $value;
350cdf0e10cSrcweir					}
351cdf0e10cSrcweir				}
352cdf0e10cSrcweir
353cdf0e10cSrcweir				$oneitemhash{'specificlanguage'} = $onelanguage;
354cdf0e10cSrcweir
355cdf0e10cSrcweir				if ( $oneitemhash{'haslanguagemodule'} )
356cdf0e10cSrcweir				{
357cdf0e10cSrcweir					my $langmodulestring = get_languagespecific_module($onelanguage, $oneitemhash{'modules'});
358cdf0e10cSrcweir					$oneitemhash{'modules'} = $langmodulestring;
359cdf0e10cSrcweir				}
360cdf0e10cSrcweir
361cdf0e10cSrcweir				push(@itemsinalllanguages, \%oneitemhash);
362cdf0e10cSrcweir			}
363cdf0e10cSrcweir		}
364cdf0e10cSrcweir	}
365cdf0e10cSrcweir
366cdf0e10cSrcweir	return \@itemsinalllanguages;
367cdf0e10cSrcweir}
368cdf0e10cSrcweir
369cdf0e10cSrcweir################################################################################
370cdf0e10cSrcweir# Removing all modules, that have the flag LANGUAGEMODULE, but do not
371cdf0e10cSrcweir# have the correct language
372cdf0e10cSrcweir################################################################################
373cdf0e10cSrcweir
374cdf0e10cSrcweirsub remove_not_required_language_modules
375cdf0e10cSrcweir{
376cdf0e10cSrcweir	my ($modulesarrayref, $languagesarrayref) = @_;
377cdf0e10cSrcweir
378cdf0e10cSrcweir	my @allmodules = ();
379cdf0e10cSrcweir
380cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
381cdf0e10cSrcweir	{
382cdf0e10cSrcweir		my $module = ${$modulesarrayref}[$i];
383cdf0e10cSrcweir		my $styles = "";
384cdf0e10cSrcweir		if ( $module->{'Styles'} ) { $styles = $module->{'Styles'}; }
385cdf0e10cSrcweir
386cdf0e10cSrcweir		if ( $styles =~ /\bLANGUAGEMODULE\b/ )
387cdf0e10cSrcweir		{
388cdf0e10cSrcweir			if ( ! exists($module->{'Language'}) ) { installer::exiter::exit_program("ERROR: \"$module->{'gid'}\" has flag LANGUAGEMODULE, but does not know its language!", "remove_not_required_language_modules"); }
389cdf0e10cSrcweir			my $modulelanguage = $module->{'Language'};
390cdf0e10cSrcweir			# checking, if language is required
391cdf0e10cSrcweir			my $doinclude = 0;
392cdf0e10cSrcweir			for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ )
393cdf0e10cSrcweir			{
394cdf0e10cSrcweir				my $onelanguage = ${$languagesarrayref}[$j];
395cdf0e10cSrcweir				if ( $onelanguage eq $modulelanguage )
396cdf0e10cSrcweir				{
397cdf0e10cSrcweir					$doinclude = 1;
398cdf0e10cSrcweir					last;
399cdf0e10cSrcweir				}
400cdf0e10cSrcweir			}
401cdf0e10cSrcweir
402cdf0e10cSrcweir			if ( $doinclude ) { push(@allmodules, $module); }
403cdf0e10cSrcweir		}
404cdf0e10cSrcweir		else
405cdf0e10cSrcweir		{
406cdf0e10cSrcweir			push(@allmodules, $module);
407cdf0e10cSrcweir		}
408cdf0e10cSrcweir	}
409cdf0e10cSrcweir
410cdf0e10cSrcweir	return \@allmodules;
411cdf0e10cSrcweir}
412cdf0e10cSrcweir
413cdf0e10cSrcweir################################################################################
414cdf0e10cSrcweir# Removing all modules, that have a spellchecker language that is not
415cdf0e10cSrcweir# required for this product (spellchecker selection).
416cdf0e10cSrcweir# All required spellchecker languages are stored in
417cdf0e10cSrcweir# %installer::globals::spellcheckerlanguagehash
418cdf0e10cSrcweir################################################################################
419cdf0e10cSrcweir
420cdf0e10cSrcweirsub remove_not_required_spellcheckerlanguage_modules
421cdf0e10cSrcweir{
422cdf0e10cSrcweir	my ($modulesarrayref) = @_;
423cdf0e10cSrcweir
424cdf0e10cSrcweir	my $infoline = "";
425cdf0e10cSrcweir	my @allmodules = ();
426cdf0e10cSrcweir
427cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
428cdf0e10cSrcweir	{
429cdf0e10cSrcweir		my $module = ${$modulesarrayref}[$i];
430cdf0e10cSrcweir		if ( $module->{'Spellcheckerlanguage'} )	# selecting modules with Spellcheckerlanguage
431cdf0e10cSrcweir		{
432cdf0e10cSrcweir			if ( exists($installer::globals::spellcheckerlanguagehash{$module->{'Spellcheckerlanguage'}}) )
433cdf0e10cSrcweir			{
434cdf0e10cSrcweir				push(@allmodules, $module);
435cdf0e10cSrcweir			}
436cdf0e10cSrcweir			else
437cdf0e10cSrcweir			{
438cdf0e10cSrcweir				$infoline = "Spellchecker selection: Removing module $module->{'gid'}\n";
439cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
440cdf0e10cSrcweir
441cdf0e10cSrcweir				# Collecting all files at modules that are removed
442cdf0e10cSrcweir
443cdf0e10cSrcweir				if ( $module->{'Files'} )
444cdf0e10cSrcweir				{
445cdf0e10cSrcweir					if ( $module->{'Files'} =~ /^\s*\((.*?)\)\s*$/ )
446cdf0e10cSrcweir					{
447cdf0e10cSrcweir						my $filelist = $1;
448cdf0e10cSrcweir
449cdf0e10cSrcweir						my $filelisthash = installer::converter::convert_stringlist_into_hash(\$filelist, ",");
450cdf0e10cSrcweir						foreach my $onefile ( keys %{$filelisthash} ) { $installer::globals::spellcheckerfilehash{$onefile} = 1; }
451cdf0e10cSrcweir					}
452cdf0e10cSrcweir				}
453cdf0e10cSrcweir			}
454cdf0e10cSrcweir		}
455cdf0e10cSrcweir		else
456cdf0e10cSrcweir		{
457cdf0e10cSrcweir			push(@allmodules, $module);
458cdf0e10cSrcweir		}
459cdf0e10cSrcweir	}
460cdf0e10cSrcweir
461cdf0e10cSrcweir	return \@allmodules;
462cdf0e10cSrcweir}
463cdf0e10cSrcweir
464cdf0e10cSrcweir################################################################################
465cdf0e10cSrcweir# Removing all modules, that belong to a module that was removed
466cdf0e10cSrcweir# in "remove_not_required_spellcheckerlanguage_modules" because of the
467cdf0e10cSrcweir# spellchecker language. The files belonging to the modules are collected
468cdf0e10cSrcweir# in %installer::globals::spellcheckerfilehash.
469cdf0e10cSrcweir################################################################################
470cdf0e10cSrcweir
471cdf0e10cSrcweirsub remove_not_required_spellcheckerlanguage_files
472cdf0e10cSrcweir{
473cdf0e10cSrcweir	my ($filesarrayref) = @_;
474cdf0e10cSrcweir
475cdf0e10cSrcweir	my @filesarray = ();
476cdf0e10cSrcweir	my $infoline = "";
477cdf0e10cSrcweir
478cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
479cdf0e10cSrcweir	{
480cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
481cdf0e10cSrcweir		if ( exists($installer::globals::spellcheckerfilehash{$onefile->{'gid'}}) )
482cdf0e10cSrcweir		{
483cdf0e10cSrcweir			$infoline = "Spellchecker selection: Removing file $onefile->{'gid'}\n";
484cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
485cdf0e10cSrcweir			next;
486cdf0e10cSrcweir		}
487cdf0e10cSrcweir		push(@filesarray, $onefile);
488cdf0e10cSrcweir	}
489cdf0e10cSrcweir
490cdf0e10cSrcweir	return \@filesarray;
491cdf0e10cSrcweir}
492cdf0e10cSrcweir
493cdf0e10cSrcweir################################################################################
494cdf0e10cSrcweir# Looking for directories without correct HostName
495cdf0e10cSrcweir################################################################################
496cdf0e10cSrcweir
497cdf0e10cSrcweirsub checking_directories_with_corrupt_hostname
498cdf0e10cSrcweir{
499cdf0e10cSrcweir	my ($dirsref, $languagesarrayref) = @_;
500cdf0e10cSrcweir
501cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
502cdf0e10cSrcweir	{
503cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
504cdf0e10cSrcweir
505cdf0e10cSrcweir		my $hostname = "";
506cdf0e10cSrcweir
507cdf0e10cSrcweir		if ( $onedir->{'HostName'} ) { $hostname = $onedir->{'HostName'}; }
508cdf0e10cSrcweir
509cdf0e10cSrcweir		if ( $hostname eq "" )
510cdf0e10cSrcweir		{
511cdf0e10cSrcweir			my $langstring = "";
512cdf0e10cSrcweir			for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ ) { $langstring .= ${$languagesarrayref}[$j] . " "; }
513cdf0e10cSrcweir			installer::exiter::exit_program("ERROR: HostName not defined for $onedir->{'gid'} for specified language. Probably you wanted to create an installation set, in a language not defined in scp2 project. You selected the following language(s): $langstring", "checking_directories_with_corrupt_hostname");
514cdf0e10cSrcweir		}
515cdf0e10cSrcweir
516cdf0e10cSrcweir		if ( $hostname eq "FAILURE" )
517cdf0e10cSrcweir		{
518cdf0e10cSrcweir			installer::exiter::exit_program("ERROR: Could not create HostName for $onedir->{'gid'} (missing language at parent). See logfile warning for more info!", "checking_directories_with_corrupt_hostname");
519cdf0e10cSrcweir		}
520cdf0e10cSrcweir	}
521cdf0e10cSrcweir}
522cdf0e10cSrcweir
523cdf0e10cSrcweir################################################################################
524cdf0e10cSrcweir# Setting global properties
525cdf0e10cSrcweir################################################################################
526cdf0e10cSrcweir
527cdf0e10cSrcweirsub set_global_directory_hostnames
528cdf0e10cSrcweir{
529cdf0e10cSrcweir	my ($dirsref, $allvariables) = @_;
530cdf0e10cSrcweir
531cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
532cdf0e10cSrcweir	{
533cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
534cdf0e10cSrcweir		my $styles = "";
535cdf0e10cSrcweir		if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
536cdf0e10cSrcweir
537cdf0e10cSrcweir		if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
538cdf0e10cSrcweir		{
539cdf0e10cSrcweir			$installer::globals::officedirhostname = $onedir->{'HostName'};
540cdf0e10cSrcweir			$installer::globals::officedirgid = $onedir->{'gid'};
541cdf0e10cSrcweir			$allvariables->{'OFFICEDIRECTORYHOSTNAME'} = $installer::globals::officedirhostname;
542cdf0e10cSrcweir		}
543cdf0e10cSrcweir		if ( $styles =~ /\bSUNDIRECTORY\b/ )
544cdf0e10cSrcweir		{
545cdf0e10cSrcweir			$installer::globals::sundirhostname = $onedir->{'HostName'};
546cdf0e10cSrcweir			$installer::globals::sundirgid = $onedir->{'gid'};
547cdf0e10cSrcweir			$allvariables->{'SUNDIRECTORYHOSTNAME'} = $installer::globals::sundirhostname;
548cdf0e10cSrcweir		}
549cdf0e10cSrcweir	}
550cdf0e10cSrcweir}
551cdf0e10cSrcweir
552cdf0e10cSrcweir########################################################
553cdf0e10cSrcweir# Recursively defined procedure to order
554cdf0e10cSrcweir# modules and directories
555cdf0e10cSrcweir########################################################
556cdf0e10cSrcweir
557cdf0e10cSrcweirsub get_children
558cdf0e10cSrcweir{
559cdf0e10cSrcweir	my ($allitems, $startparent, $newitemorder) = @_;
560cdf0e10cSrcweir
561cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$allitems}; $i++ )
562cdf0e10cSrcweir	{
563cdf0e10cSrcweir		my $gid = ${$allitems}[$i]->{'gid'};
564cdf0e10cSrcweir		my $parent = "";
565cdf0e10cSrcweir		if ( ${$allitems}[$i]->{'ParentID'} ) { $parent = ${$allitems}[$i]->{'ParentID'}; }
566cdf0e10cSrcweir
567cdf0e10cSrcweir		if ( $parent eq $startparent )
568cdf0e10cSrcweir		{
569cdf0e10cSrcweir			push(@{$newitemorder}, ${$allitems}[$i]);
570cdf0e10cSrcweir			my $parent = $gid;
571cdf0e10cSrcweir			get_children($allitems, $parent, $newitemorder);	# recursive!
572cdf0e10cSrcweir		}
573cdf0e10cSrcweir	}
574cdf0e10cSrcweir}
575cdf0e10cSrcweir
576cdf0e10cSrcweir################################################################################
577cdf0e10cSrcweir# Using different HostName for language packs
578cdf0e10cSrcweir################################################################################
579cdf0e10cSrcweir
580cdf0e10cSrcweirsub use_langpack_hostname
581cdf0e10cSrcweir{
582cdf0e10cSrcweir	my ($dirsref) = @_;
583cdf0e10cSrcweir
584cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
585cdf0e10cSrcweir	{
586cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
587cdf0e10cSrcweir		if (( $onedir->{'LangPackHostName'} ) && ( $onedir->{'LangPackHostName'} ne "" )) { $onedir->{'HostName'} = $onedir->{'LangPackHostName'}; }
588cdf0e10cSrcweir	}
589cdf0e10cSrcweir}
590cdf0e10cSrcweir
591cdf0e10cSrcweir################################################################################
592cdf0e10cSrcweir# Using different HostName for language packs
593cdf0e10cSrcweir################################################################################
594cdf0e10cSrcweir
595cdf0e10cSrcweirsub use_patch_hostname
596cdf0e10cSrcweir{
597cdf0e10cSrcweir	my ($dirsref) = @_;
598cdf0e10cSrcweir
599cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
600cdf0e10cSrcweir	{
601cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
602cdf0e10cSrcweir		if (( $onedir->{'PatchHostName'} ) && ( $onedir->{'PatchHostName'} ne "" )) { $onedir->{'HostName'} = $onedir->{'PatchHostName'}; }
603cdf0e10cSrcweir	}
604cdf0e10cSrcweir}
605cdf0e10cSrcweir
606cdf0e10cSrcweir################################################################################
6071ed5bd48SJürgen Schmidt# Using langpack copy action for language packs
608cdf0e10cSrcweir################################################################################
609cdf0e10cSrcweir
610cdf0e10cSrcweirsub use_langpack_copy_scpaction
611cdf0e10cSrcweir{
612cdf0e10cSrcweir	my ($scpactionsref) = @_;
613cdf0e10cSrcweir
614cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
615cdf0e10cSrcweir	{
616cdf0e10cSrcweir		my $onescpaction = ${$scpactionsref}[$i];
617cdf0e10cSrcweir		if (( $onescpaction->{'LangPackCopy'} ) && ( $onescpaction->{'LangPackCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'LangPackCopy'}; }
618cdf0e10cSrcweir	}
619cdf0e10cSrcweir}
620cdf0e10cSrcweir
621cdf0e10cSrcweir################################################################################
6221ed5bd48SJürgen Schmidt# Using copy patch action
623cdf0e10cSrcweir################################################################################
624cdf0e10cSrcweir
625cdf0e10cSrcweirsub use_patch_copy_scpaction
626cdf0e10cSrcweir{
627cdf0e10cSrcweir	my ($scpactionsref) = @_;
628cdf0e10cSrcweir
629cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
630cdf0e10cSrcweir	{
631cdf0e10cSrcweir		my $onescpaction = ${$scpactionsref}[$i];
632cdf0e10cSrcweir		if (( $onescpaction->{'PatchCopy'} ) && ( $onescpaction->{'PatchCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'PatchCopy'}; }
633cdf0e10cSrcweir	}
634cdf0e10cSrcweir}
635cdf0e10cSrcweir
6361ed5bd48SJürgen Schmidt################################################################################
6371ed5bd48SJürgen Schmidt# Using dev copy patch action for developer snapshot builds
6381ed5bd48SJürgen Schmidt################################################################################
6391ed5bd48SJürgen Schmidt
6401ed5bd48SJürgen Schmidtsub use_dev_copy_scpaction
6411ed5bd48SJürgen Schmidt{
6421ed5bd48SJürgen Schmidt	my ($scpactionsref) = @_;
6431ed5bd48SJürgen Schmidt
6441ed5bd48SJürgen Schmidt	for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
6451ed5bd48SJürgen Schmidt	{
6461ed5bd48SJürgen Schmidt		my $onescpaction = ${$scpactionsref}[$i];
6471ed5bd48SJürgen Schmidt		if (( $onescpaction->{'DevCopy'} ) && ( $onescpaction->{'DevCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'DevCopy'}; }
6481ed5bd48SJürgen Schmidt	}
6491ed5bd48SJürgen Schmidt}
6501ed5bd48SJürgen Schmidt
651cdf0e10cSrcweir################################################################################
652cdf0e10cSrcweir# Shifting parent directories of URE and Basis layer, so that
653cdf0e10cSrcweir# these directories are located below the Brand layer.
654cdf0e10cSrcweir# Style: SHIFT_BASIS_INTO_BRAND_LAYER
655cdf0e10cSrcweir################################################################################
656cdf0e10cSrcweir
657cdf0e10cSrcweirsub shift_basis_directory_parents
658cdf0e10cSrcweir{
659cdf0e10cSrcweir	my ($dirsref) = @_;
660cdf0e10cSrcweir
661cdf0e10cSrcweir	my @alldirs = ();
662cdf0e10cSrcweir	my @savedirs = ();
663cdf0e10cSrcweir	my @shifteddirs = ();
664cdf0e10cSrcweir
665cdf0e10cSrcweir	my $officedirgid = "";
666cdf0e10cSrcweir
667cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
668cdf0e10cSrcweir	{
669cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
670cdf0e10cSrcweir		my $styles = "";
671cdf0e10cSrcweir		if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
672cdf0e10cSrcweir
673cdf0e10cSrcweir		if ( $styles =~ /\bOFFICEDIRECTORY\b/ ) { $officedirgid = $onedir->{'gid'}; }
674cdf0e10cSrcweir	}
675cdf0e10cSrcweir
676cdf0e10cSrcweir	if ( $officedirgid ne "" )
677cdf0e10cSrcweir	{
678cdf0e10cSrcweir		for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
679cdf0e10cSrcweir		{
680cdf0e10cSrcweir			my $onedir = ${$dirsref}[$i];
681cdf0e10cSrcweir			my $styles = "";
682cdf0e10cSrcweir			if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
683cdf0e10cSrcweir
684cdf0e10cSrcweir			if (( $styles =~ /\bBASISDIRECTORY\b/ ) || ( $styles =~ /\bUREDIRECTORY\b/ ))
685cdf0e10cSrcweir			{
686cdf0e10cSrcweir				$onedir->{'ParentID'} = $officedirgid;
687cdf0e10cSrcweir			}
688cdf0e10cSrcweir		}
689cdf0e10cSrcweir
690cdf0e10cSrcweir		# Sorting directories
691cdf0e10cSrcweir		my $startgid = "PREDEFINED_PROGDIR";
692cdf0e10cSrcweir		get_children($dirsref, $startgid, \@alldirs);
693cdf0e10cSrcweir	}
694cdf0e10cSrcweir
695cdf0e10cSrcweir	return \@alldirs;
696cdf0e10cSrcweir}
697cdf0e10cSrcweir
698cdf0e10cSrcweir################################################################################
699cdf0e10cSrcweir# Setting the name of the directory with style OFFICEDIRECTORY.
700cdf0e10cSrcweir# The name can be defined in property OFFICEDIRECTORYNAME.
701cdf0e10cSrcweir################################################################################
702cdf0e10cSrcweir
703cdf0e10cSrcweirsub set_officedirectory_name
704cdf0e10cSrcweir{
705cdf0e10cSrcweir	my ($dirsref, $officedirname) = @_;
706cdf0e10cSrcweir
707cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
708cdf0e10cSrcweir	{
709cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
710cdf0e10cSrcweir		my $styles = "";
711cdf0e10cSrcweir		if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
712cdf0e10cSrcweir		if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
713cdf0e10cSrcweir		{
714cdf0e10cSrcweir			$onedir->{'HostName'} = $officedirname;
715cdf0e10cSrcweir			last;
716cdf0e10cSrcweir		}
717cdf0e10cSrcweir	}
718cdf0e10cSrcweir}
719cdf0e10cSrcweir
720cdf0e10cSrcweir################################################################################
721cdf0e10cSrcweir# Simplifying the name for language dependent items from "Name (xy)" to "Name"
722cdf0e10cSrcweir################################################################################
723cdf0e10cSrcweir
724cdf0e10cSrcweirsub changing_name_of_language_dependent_keys
725cdf0e10cSrcweir{
726cdf0e10cSrcweir	my ($itemsarrayref) = @_;
727cdf0e10cSrcweir
728cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::changing_name_of_language_dependent_keys : $#{$itemsarrayref}"); }
729cdf0e10cSrcweir
730cdf0e10cSrcweir	# Changing key for multilingual items from "Name ( )" to "Name" or "HostName ( )" to "HostName"
731cdf0e10cSrcweir
732cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
733cdf0e10cSrcweir	{
734cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
735cdf0e10cSrcweir		my $onelanguage = $oneitem->{'specificlanguage'};
736cdf0e10cSrcweir
737cdf0e10cSrcweir		if (!($onelanguage eq "" )) 				# language dependent item
738cdf0e10cSrcweir		{
739cdf0e10cSrcweir			my $itemkey;
740cdf0e10cSrcweir
741cdf0e10cSrcweir			foreach $itemkey (keys %{$oneitem})
742cdf0e10cSrcweir			{
743cdf0e10cSrcweir				if ( $itemkey =~ /^\s*(\S+?)\s+\(\S+\)\s*$/ )
744cdf0e10cSrcweir				{
745cdf0e10cSrcweir					my $newitemkey = $1;
746cdf0e10cSrcweir					my $itemvalue = $oneitem->{$itemkey};
747cdf0e10cSrcweir					$oneitem->{$newitemkey} = $itemvalue;
748cdf0e10cSrcweir					delete($oneitem->{$itemkey});
749cdf0e10cSrcweir				}
750cdf0e10cSrcweir			}
751cdf0e10cSrcweir		}
752cdf0e10cSrcweir	}
753cdf0e10cSrcweir}
754cdf0e10cSrcweir
755cdf0e10cSrcweir################################################################################
756cdf0e10cSrcweir# Collecting language specific names for language packs
757cdf0e10cSrcweir################################################################################
758cdf0e10cSrcweir
759cdf0e10cSrcweirsub collect_language_specific_names
760cdf0e10cSrcweir{
761cdf0e10cSrcweir	my ($itemsarrayref) = @_;
762cdf0e10cSrcweir
763cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
764cdf0e10cSrcweir	{
765cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
766cdf0e10cSrcweir		my $styles = "";
767cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
768cdf0e10cSrcweir
769cdf0e10cSrcweir		if ( $styles =~ /\bUSELANGUAGENAME\b/ )
770cdf0e10cSrcweir		{
771cdf0e10cSrcweir			my $language = "";
772cdf0e10cSrcweir			if ( $oneitem->{'Language'} ) { $language = $oneitem->{'Language'}; }
773cdf0e10cSrcweir			my $specificlanguage = "";
774cdf0e10cSrcweir			if ( $oneitem->{'specificlanguage'} ) { $specificlanguage = $oneitem->{'specificlanguage'}; }
775cdf0e10cSrcweir
776cdf0e10cSrcweir			if (( $language ne "" ) && ( $language eq $specificlanguage ))
777cdf0e10cSrcweir			{
778cdf0e10cSrcweir				if (! installer::existence::exists_in_array($oneitem->{'Name'}, \@installer::globals::languagenames ))
779cdf0e10cSrcweir				{
780cdf0e10cSrcweir					push(@installer::globals::languagenames, $oneitem->{'Name'});
781cdf0e10cSrcweir				}
782cdf0e10cSrcweir			}
783cdf0e10cSrcweir		}
784cdf0e10cSrcweir	}
785cdf0e10cSrcweir}
786cdf0e10cSrcweir
787cdf0e10cSrcweir################################################################################
788cdf0e10cSrcweir# Replacement of setup variables in ConfigurationItems and ProfileItems
789cdf0e10cSrcweir# <productkey>, <buildid>, <sequence_languages>, <productcode>, <upgradecode>, <productupdate>
790cdf0e10cSrcweir################################################################################
791cdf0e10cSrcweir
792cdf0e10cSrcweirsub replace_setup_variables
793cdf0e10cSrcweir{
794cdf0e10cSrcweir	my ($itemsarrayref, $languagestringref, $hashref) = @_;
795cdf0e10cSrcweir
796cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::replace_setup_variables : $#{$itemsarrayref} : $$languagestringref : $hashref->{'PRODUCTNAME'}"); }
797cdf0e10cSrcweir
798cdf0e10cSrcweir	my $languagesstring = $$languagestringref;
799cdf0e10cSrcweir	$languagesstring =~ s/\_/ /g;	# replacing underscore with whitespace
800cdf0e10cSrcweir	# $languagesstring is "01 49" instead of "en-US de"
801cdf0e10cSrcweir	installer::languages::fake_languagesstring(\$languagesstring);
802cdf0e10cSrcweir
803cdf0e10cSrcweir	my $productname = $hashref->{'PRODUCTNAME'};
804cdf0e10cSrcweir	my $productversion = $hashref->{'PRODUCTVERSION'};
805cdf0e10cSrcweir	my $userdirproductversion = "";
806cdf0e10cSrcweir	if ( $hashref->{'USERDIRPRODUCTVERSION'} ) { $userdirproductversion = $hashref->{'USERDIRPRODUCTVERSION'}; }
807cdf0e10cSrcweir	my $productkey = $productname . " " . $productversion;
808cdf0e10cSrcweir
809*8bd5297cSJürgen Schmidt	my $scsrevision = SvnRevision::DetectRevisionId(File::Spec->catfile($ENV{'SRC_ROOT'}, File::Spec->updir()));
810*8bd5297cSJürgen Schmidt
811cdf0e10cSrcweir	# string $buildid, which is used to replace the setup variable <buildid>
812cdf0e10cSrcweir
813cdf0e10cSrcweir	my $localminor = "flat";
814cdf0e10cSrcweir	if ( $installer::globals::minor ne "" ) { $localminor = $installer::globals::minor; }
815cdf0e10cSrcweir	else { $localminor = $installer::globals::lastminor; }
816cdf0e10cSrcweir
817cdf0e10cSrcweir	my $localbuild = $installer::globals::build;
818cdf0e10cSrcweir
819cdf0e10cSrcweir	if ( $localbuild =~ /^\s*(\w+?)(\d+)\s*$/ ) { $localbuild = $2; }	# using "680" instead of "src680"
820cdf0e10cSrcweir
821cdf0e10cSrcweir	my $buildidstring = $localbuild . $localminor . "(Build:" . $installer::globals::buildid . ")";
822cdf0e10cSrcweir
823cdf0e10cSrcweir	# the environment variable CWS_WORK_STAMP is set only in CWS
824cdf0e10cSrcweir	if ( $ENV{'CWS_WORK_STAMP'} ) { $buildidstring = $buildidstring . "\[CWS\:" . $ENV{'CWS_WORK_STAMP'} . "\]"; }
825cdf0e10cSrcweir
826cdf0e10cSrcweir	if ( $localminor =~ /^\s*\w(\d+)\w*\s*$/ ) { $localminor = $1; }
827cdf0e10cSrcweir
828cdf0e10cSrcweir	# $updateid
829cdf0e10cSrcweir	my $updateid = $productname . "_" . $userdirproductversion . "_" . $$languagestringref;
830cdf0e10cSrcweir	$updateid =~ s/ /_/g;
831cdf0e10cSrcweir
832cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
833cdf0e10cSrcweir	{
834cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
835cdf0e10cSrcweir		my $value = $oneitem->{'Value'};
836cdf0e10cSrcweir
837cdf0e10cSrcweir		$value =~ s/\<buildid\>/$buildidstring/;
838*8bd5297cSJürgen Schmidt		$value =~ s/\<scsrevision\>/$scsrevision/;
839cdf0e10cSrcweir		$value =~ s/\<sequence_languages\>/$languagesstring/;
840cdf0e10cSrcweir		$value =~ s/\<productkey\>/$productkey/;
841cdf0e10cSrcweir		$value =~ s/\<productcode\>/$installer::globals::productcode/;
842cdf0e10cSrcweir		$value =~ s/\<upgradecode\>/$installer::globals::upgradecode/;
843cdf0e10cSrcweir		$value =~ s/\<alllanguages\>/$languagesstring/;
844cdf0e10cSrcweir		$value =~ s/\<productmajor\>/$localbuild/;
845cdf0e10cSrcweir		$value =~ s/\<productminor\>/$localminor/;
846cdf0e10cSrcweir		$value =~ s/\<productbuildid\>/$installer::globals::buildid/;
847cdf0e10cSrcweir		$value =~ s/\<sourceid\>/$installer::globals::build/;
848cdf0e10cSrcweir		$value =~ s/\<updateid\>/$updateid/;
849cdf0e10cSrcweir		$value =~ s/\<pkgformat\>/$installer::globals::packageformat/;
850cdf0e10cSrcweir
851cdf0e10cSrcweir		$oneitem->{'Value'} = $value;
852cdf0e10cSrcweir	}
853cdf0e10cSrcweir}
854cdf0e10cSrcweir
855cdf0e10cSrcweir################################################################################
856cdf0e10cSrcweir# By defining variable LOCALUSERDIR in *.lst it is possible to change
857cdf0e10cSrcweir# the standard destination of user directory defined in scp2 ($SYSUSERCONFIG).
858cdf0e10cSrcweir################################################################################
859cdf0e10cSrcweir
860cdf0e10cSrcweirsub replace_userdir_variable
861cdf0e10cSrcweir{
862cdf0e10cSrcweir	my ($itemsarrayref) = @_;
863cdf0e10cSrcweir
864cdf0e10cSrcweir	my $userdir = "";
865cdf0e10cSrcweir	if ( $allvariableshashref->{'LOCALUSERDIR'} ) { $userdir = $allvariableshashref->{'LOCALUSERDIR'}; }
866cdf0e10cSrcweir	else { $userdir = $installer::globals::simpledefaultuserdir; }
867cdf0e10cSrcweir
868cdf0e10cSrcweir	if ( $userdir ne "" )
869cdf0e10cSrcweir	{
870cdf0e10cSrcweir		for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
871cdf0e10cSrcweir		{
872cdf0e10cSrcweir			my $oneitem = ${$itemsarrayref}[$i];
873cdf0e10cSrcweir			$oneitem->{'Value'} =~ s/\$SYSUSERCONFIG/$userdir/;
874cdf0e10cSrcweir		}
875cdf0e10cSrcweir	}
876cdf0e10cSrcweir}
877cdf0e10cSrcweir
878cdf0e10cSrcweir#####################################################################################
879cdf0e10cSrcweir# Files and ConfigurationItems are not included for all languages.
880cdf0e10cSrcweir# For instance asian fonts. These can be removed, if no "Name" is found.
881cdf0e10cSrcweir# ConfigurationItems are not always defined in the linguistic configuration file.
882cdf0e10cSrcweir# The "Key" cannot be found for them.
883cdf0e10cSrcweir#####################################################################################
884cdf0e10cSrcweir
885cdf0e10cSrcweirsub remove_non_existent_languages_in_productlists
886cdf0e10cSrcweir{
887cdf0e10cSrcweir	my ($itemsarrayref, $languagestringref, $searchkey, $itemtype) = @_;
888cdf0e10cSrcweir
889cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_non_existent_languages_in_productlists : $#{$itemsarrayref} : $$languagestringref : $searchkey : $itemtype"); }
890cdf0e10cSrcweir
891cdf0e10cSrcweir	# Removing of all non existent files, for instance asian fonts
892cdf0e10cSrcweir
893cdf0e10cSrcweir	installer::logger::include_header_into_logfile("Removing for this language $$languagestringref:");
894cdf0e10cSrcweir
895cdf0e10cSrcweir	my @allexistentitems = ();
896cdf0e10cSrcweir
897cdf0e10cSrcweir	my $infoline;
898cdf0e10cSrcweir
899cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
900cdf0e10cSrcweir	{
901cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
902cdf0e10cSrcweir		my $oneitemname = "";		# $searchkey is "Name" for files and "Key" for ConfigurationItems
903cdf0e10cSrcweir
904cdf0e10cSrcweir		if ( $oneitem->{$searchkey} ) { $oneitemname = $oneitem->{$searchkey} }
905cdf0e10cSrcweir
906cdf0e10cSrcweir		my $itemtoberemoved = 0;
907cdf0e10cSrcweir
908cdf0e10cSrcweir		if ($oneitemname eq "") 					# for instance asian font in english installation set
909cdf0e10cSrcweir		{
910cdf0e10cSrcweir			$itemtoberemoved = 1;
911cdf0e10cSrcweir		}
912cdf0e10cSrcweir
913cdf0e10cSrcweir		if ($itemtoberemoved)
914cdf0e10cSrcweir		{
915cdf0e10cSrcweir			$infoline = "WARNING: Language $$languagestringref: No $itemtype packed for $oneitem->{'gid'}!\n";
916cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
917cdf0e10cSrcweir		}
918cdf0e10cSrcweir		else
919cdf0e10cSrcweir		{
920cdf0e10cSrcweir			push(@allexistentitems, $oneitem);
921cdf0e10cSrcweir		}
922cdf0e10cSrcweir	}
923cdf0e10cSrcweir
924cdf0e10cSrcweir	$infoline = "\n";
925cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
926cdf0e10cSrcweir
927cdf0e10cSrcweir	return \@allexistentitems;
928cdf0e10cSrcweir}
929cdf0e10cSrcweir
930cdf0e10cSrcweir########################################################################
931cdf0e10cSrcweir# Input is the directory gid, output the "HostName" of the directory
932cdf0e10cSrcweir########################################################################
933cdf0e10cSrcweir
934cdf0e10cSrcweirsub get_Directoryname_From_Directorygid
935cdf0e10cSrcweir{
936cdf0e10cSrcweir	my ($dirsarrayref ,$searchgid, $onelanguage, $oneitemgid) = @_;
937cdf0e10cSrcweir
938cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Directoryname_From_Directorygid : $#{$dirsarrayref} : $searchgid : $onelanguage"); }
939cdf0e10cSrcweir
940cdf0e10cSrcweir	my $directoryname = "";
941cdf0e10cSrcweir	my $onedirectory;
942cdf0e10cSrcweir	my $foundgid = 0;
943cdf0e10cSrcweir
944cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsarrayref}; $i++ )
945cdf0e10cSrcweir	{
946cdf0e10cSrcweir		$onedirectory = ${$dirsarrayref}[$i];
947cdf0e10cSrcweir		my $directorygid = $onedirectory->{'gid'};
948cdf0e10cSrcweir
949cdf0e10cSrcweir		if ($directorygid eq $searchgid)
950cdf0e10cSrcweir		{
951cdf0e10cSrcweir			$foundgid = 1;
952cdf0e10cSrcweir			last;
953cdf0e10cSrcweir		}
954cdf0e10cSrcweir	}
955cdf0e10cSrcweir
956cdf0e10cSrcweir	if (!($foundgid))
957cdf0e10cSrcweir	{
958cdf0e10cSrcweir		installer::exiter::exit_program("ERROR: Gid $searchgid not defined in $installer::globals::setupscriptname", "get_Directoryname_From_Directorygid");
959cdf0e10cSrcweir	}
960cdf0e10cSrcweir
961cdf0e10cSrcweir	if ( ! ( $onedirectory->{'ismultilingual'} ))	# the directory is not language dependent
962cdf0e10cSrcweir	{
963cdf0e10cSrcweir 		$directoryname = $onedirectory->{'HostName'};
964cdf0e10cSrcweir	}
965cdf0e10cSrcweir	else
966cdf0e10cSrcweir	{
967cdf0e10cSrcweir		$directoryname = $onedirectory->{"HostName ($onelanguage)"};
968cdf0e10cSrcweir	}
969cdf0e10cSrcweir
970cdf0e10cSrcweir	# gid_Dir_Template_Wizard_Letter is defined as language dependent directory, but the file gid_Dir_Template_Wizard_Letter
971cdf0e10cSrcweir	# is not language dependent. Therefore $onelanguage is not defined. But which language is the correct language for the
972cdf0e10cSrcweir	# directory?
973cdf0e10cSrcweir	# Perhaps better solution: In scp it must be forbidden to have a language independent file in a language dependent directory.
974cdf0e10cSrcweir
975cdf0e10cSrcweir	if (( ! $directoryname ) && ( $onelanguage eq "" ))
976cdf0e10cSrcweir	{
977cdf0e10cSrcweir		installer::exiter::exit_program("ERROR (in scp): Directory $searchgid is language dependent, but not $oneitemgid inside this directory", "get_Directoryname_From_Directorygid");
978cdf0e10cSrcweir	}
979cdf0e10cSrcweir
980cdf0e10cSrcweir	return \$directoryname;
981cdf0e10cSrcweir}
982cdf0e10cSrcweir
983cdf0e10cSrcweir##################################################################
984cdf0e10cSrcweir# Getting destination direcotory for links, files and profiles
985cdf0e10cSrcweir##################################################################
986cdf0e10cSrcweir
987cdf0e10cSrcweirsub get_Destination_Directory_For_Item_From_Directorylist		# this is used for Files, Profiles and Links
988cdf0e10cSrcweir{
989cdf0e10cSrcweir	my ($itemarrayref, $dirsarrayref) = @_;
990cdf0e10cSrcweir
991cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Destination_Directory_For_Item_From_Directorylist : $#{$itemarrayref} : $#{$dirsarrayref}"); }
992cdf0e10cSrcweir
993cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ )
994cdf0e10cSrcweir	{
995cdf0e10cSrcweir		my $oneitem = ${$itemarrayref}[$i];
996cdf0e10cSrcweir		my $oneitemgid = $oneitem->{'gid'};
997cdf0e10cSrcweir		my $directorygid = $oneitem->{'Dir'};		# for instance gid_Dir_Program
998cdf0e10cSrcweir		my $netdirectorygid = "";
999cdf0e10cSrcweir		my $onelanguage = $oneitem->{'specificlanguage'};
1000cdf0e10cSrcweir		my $ispredefinedprogdir = 0;
1001cdf0e10cSrcweir		my $ispredefinedconfigdir = 0;
1002cdf0e10cSrcweir
1003cdf0e10cSrcweir		my $oneitemname = $oneitem->{'Name'};
1004cdf0e10cSrcweir
1005cdf0e10cSrcweir		if ( $oneitem->{'NetDir'} ) { $netdirectorygid = $oneitem->{'NetDir'}; }
1006cdf0e10cSrcweir
1007cdf0e10cSrcweir		installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$oneitemname);	# making /registry/schema/org/openoffice/VCL.xcs to VCL.xcs
1008cdf0e10cSrcweir
1009cdf0e10cSrcweir		my $searchdirgid;
1010cdf0e10cSrcweir
1011cdf0e10cSrcweir		if ( $netdirectorygid eq "" )	# if NetDir is defined, it is privileged
1012cdf0e10cSrcweir		{
1013cdf0e10cSrcweir			$searchdirgid = $directorygid
1014cdf0e10cSrcweir		}
1015cdf0e10cSrcweir		else
1016cdf0e10cSrcweir		{
1017cdf0e10cSrcweir			$searchdirgid = $netdirectorygid
1018cdf0e10cSrcweir		}
1019cdf0e10cSrcweir
1020cdf0e10cSrcweir		if ($searchdirgid =~ /PREDEFINED_PROGDIR/)	# the root directory is not defined in setup script
1021cdf0e10cSrcweir		{
1022cdf0e10cSrcweir			$ispredefinedprogdir = 1;
1023cdf0e10cSrcweir		}
1024cdf0e10cSrcweir
1025cdf0e10cSrcweir		if ($searchdirgid =~ /PREDEFINED_CONFIGDIR/)	# the root directory is not defined in setup script
1026cdf0e10cSrcweir		{
1027cdf0e10cSrcweir			$ispredefinedconfigdir = 1;
1028cdf0e10cSrcweir		}
1029cdf0e10cSrcweir
1030cdf0e10cSrcweir		my $destfilename;
1031cdf0e10cSrcweir
1032cdf0e10cSrcweir		if ((!( $ispredefinedprogdir )) && (!( $ispredefinedconfigdir )))
1033cdf0e10cSrcweir		{
1034cdf0e10cSrcweir			my $directorynameref = get_Directoryname_From_Directorygid($dirsarrayref, $searchdirgid, $onelanguage, $oneitemgid);
1035cdf0e10cSrcweir			$destfilename = $$directorynameref . $installer::globals::separator . $oneitemname;
1036cdf0e10cSrcweir		}
1037cdf0e10cSrcweir		else
1038cdf0e10cSrcweir		{
1039cdf0e10cSrcweir			$destfilename = $oneitemname;
1040cdf0e10cSrcweir		}
1041cdf0e10cSrcweir
1042cdf0e10cSrcweir		$oneitem->{'destination'} = $destfilename;
1043cdf0e10cSrcweir	}
1044cdf0e10cSrcweir}
1045cdf0e10cSrcweir
1046cdf0e10cSrcweir##########################################################################
1047cdf0e10cSrcweir# Searching a file in a list of pathes
1048cdf0e10cSrcweir##########################################################################
1049cdf0e10cSrcweir
1050cdf0e10cSrcweirsub get_sourcepath_from_filename_and_includepath_classic
1051cdf0e10cSrcweir{
1052cdf0e10cSrcweir	my ($searchfilenameref, $includepatharrayref, $write_logfile) = @_;
1053cdf0e10cSrcweir
1054cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_sourcepath_from_filename_and_includepath_classic : $$searchfilenameref : $#{$includepatharrayref} : $write_logfile"); }
1055cdf0e10cSrcweir
1056cdf0e10cSrcweir	my ($onefile, $includepath, $infoline);
1057cdf0e10cSrcweir
1058cdf0e10cSrcweir	my $foundsourcefile = 0;
1059cdf0e10cSrcweir
1060cdf0e10cSrcweir	for ( my $j = 0; $j <= $#{$includepatharrayref}; $j++ )
1061cdf0e10cSrcweir	{
1062cdf0e10cSrcweir		$includepath = ${$includepatharrayref}[$j];
1063cdf0e10cSrcweir		installer::remover::remove_leading_and_ending_whitespaces(\$includepath);
1064cdf0e10cSrcweir
1065cdf0e10cSrcweir		$onefile = $includepath . $installer::globals::separator . $$searchfilenameref;
1066cdf0e10cSrcweir
1067cdf0e10cSrcweir		if ( -f $onefile )
1068cdf0e10cSrcweir		{
1069cdf0e10cSrcweir			$foundsourcefile = 1;
1070cdf0e10cSrcweir			last;
1071cdf0e10cSrcweir		}
1072cdf0e10cSrcweir	}
1073cdf0e10cSrcweir
1074cdf0e10cSrcweir	if (!($foundsourcefile))
1075cdf0e10cSrcweir	{
1076cdf0e10cSrcweir		$onefile = "";	# the sourcepath has to be empty
1077cdf0e10cSrcweir		if ( $write_logfile)
1078cdf0e10cSrcweir		{
1079cdf0e10cSrcweir			if ( $ENV{'DEFAULT_TO_ENGLISH_FOR_PACKING'} )
1080cdf0e10cSrcweir			{
1081cdf0e10cSrcweir				$infoline = "WARNING: Source for $$searchfilenameref not found!\n";	 # Important message in log file
1082cdf0e10cSrcweir			}
1083cdf0e10cSrcweir			else
1084cdf0e10cSrcweir			{
1085cdf0e10cSrcweir				$infoline = "ERROR: Source for $$searchfilenameref not found!\n";	 # Important message in log file
1086cdf0e10cSrcweir			}
1087cdf0e10cSrcweir
1088cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1089cdf0e10cSrcweir		}
1090cdf0e10cSrcweir	}
1091cdf0e10cSrcweir	else
1092cdf0e10cSrcweir	{
1093cdf0e10cSrcweir		if ( $write_logfile)
1094cdf0e10cSrcweir		{
1095cdf0e10cSrcweir			$infoline = "SUCCESS: Source for $$searchfilenameref: $onefile\n";
1096cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1097cdf0e10cSrcweir		}
1098cdf0e10cSrcweir	}
1099cdf0e10cSrcweir
1100cdf0e10cSrcweir	return \$onefile;
1101cdf0e10cSrcweir}
1102cdf0e10cSrcweir
1103cdf0e10cSrcweir##########################################################################
1104cdf0e10cSrcweir# Input is one file name, output the complete absolute path of this file
1105cdf0e10cSrcweir##########################################################################
1106cdf0e10cSrcweir
1107cdf0e10cSrcweirsub get_sourcepath_from_filename_and_includepath
1108cdf0e10cSrcweir{
1109cdf0e10cSrcweir	my ($searchfilenameref, $unused, $write_logfile) = @_;
1110cdf0e10cSrcweir
1111cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_sourcepath_from_filename_and_includepath : $$searchfilenameref : $#{$includepatharrayref} : $write_logfile"); }
1112cdf0e10cSrcweir
1113cdf0e10cSrcweir	my ($onefile, $includepath, $infoline);
1114cdf0e10cSrcweir
1115cdf0e10cSrcweir	my $foundsourcefile = 0;
1116cdf0e10cSrcweir	my $foundnewname = 0;
1117cdf0e10cSrcweir
1118cdf0e10cSrcweir	for ( my $j = 0; $j <= $#installer::globals::allincludepathes; $j++ )
1119cdf0e10cSrcweir	{
1120cdf0e10cSrcweir		my $allfiles = $installer::globals::allincludepathes[$j];
1121cdf0e10cSrcweir
1122cdf0e10cSrcweir		if ( exists( $allfiles->{$$searchfilenameref} ))
1123cdf0e10cSrcweir		{
1124cdf0e10cSrcweir			$onefile = $allfiles->{'includepath'} . $installer::globals::separator . $$searchfilenameref;
1125cdf0e10cSrcweir			$foundsourcefile = 1;
1126cdf0e10cSrcweir			last;
1127cdf0e10cSrcweir		}
1128cdf0e10cSrcweir	}
1129cdf0e10cSrcweir
1130cdf0e10cSrcweir	if (!($foundsourcefile))	# testing with lowercase filename
1131cdf0e10cSrcweir	{
1132cdf0e10cSrcweir		# Attention: README01.html is copied for Windows to readme01.html, not case sensitive
1133cdf0e10cSrcweir
1134cdf0e10cSrcweir		for ( my $j = 0; $j <= $#installer::globals::allincludepathes; $j++ )
1135cdf0e10cSrcweir		{
1136cdf0e10cSrcweir			my $allfiles = $installer::globals::allincludepathes[$j];
1137cdf0e10cSrcweir
1138cdf0e10cSrcweir			my $newfilename = $$searchfilenameref;
1139cdf0e10cSrcweir			$newfilename =~ s/readme/README/;		# special handling for readme files
1140cdf0e10cSrcweir			$newfilename =~ s/license/LICENSE/;		# special handling for license files
1141cdf0e10cSrcweir
1142cdf0e10cSrcweir			if ( exists( $allfiles->{$newfilename} ))
1143cdf0e10cSrcweir			{
1144cdf0e10cSrcweir				$onefile = $allfiles->{'includepath'} . $installer::globals::separator . $newfilename;
1145cdf0e10cSrcweir				$foundsourcefile = 1;
1146cdf0e10cSrcweir				$foundnewname = 1;
1147cdf0e10cSrcweir				last;
1148cdf0e10cSrcweir			}
1149cdf0e10cSrcweir		}
1150cdf0e10cSrcweir	}
1151cdf0e10cSrcweir
1152cdf0e10cSrcweir	if (!($foundsourcefile))
1153cdf0e10cSrcweir	{
1154cdf0e10cSrcweir		$onefile = "";	# the sourcepath has to be empty
1155cdf0e10cSrcweir		if ( $write_logfile)
1156cdf0e10cSrcweir		{
1157cdf0e10cSrcweir			if ( $ENV{'DEFAULT_TO_ENGLISH_FOR_PACKING'} )
1158cdf0e10cSrcweir			{
1159cdf0e10cSrcweir				$infoline = "WARNING: Source for $$searchfilenameref not found!\n";	 # Important message in log file
1160cdf0e10cSrcweir			}
1161cdf0e10cSrcweir			else
1162cdf0e10cSrcweir			{
1163cdf0e10cSrcweir				$infoline = "ERROR: Source for $$searchfilenameref not found!\n";	 # Important message in log file
1164cdf0e10cSrcweir			}
1165cdf0e10cSrcweir
1166cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1167cdf0e10cSrcweir		}
1168cdf0e10cSrcweir	}
1169cdf0e10cSrcweir	else
1170cdf0e10cSrcweir	{
1171cdf0e10cSrcweir		if ( $write_logfile)
1172cdf0e10cSrcweir		{
1173cdf0e10cSrcweir			if (!($foundnewname))
1174cdf0e10cSrcweir			{
1175cdf0e10cSrcweir				$infoline = "SUCCESS: Source for $$searchfilenameref: $onefile\n";
1176cdf0e10cSrcweir			}
1177cdf0e10cSrcweir			else
1178cdf0e10cSrcweir			{
1179cdf0e10cSrcweir				$infoline = "SUCCESS/WARNING: Special handling for $$searchfilenameref: $onefile\n";
1180cdf0e10cSrcweir			}
1181cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1182cdf0e10cSrcweir		}
1183cdf0e10cSrcweir	}
1184cdf0e10cSrcweir
1185cdf0e10cSrcweir	return \$onefile;
1186cdf0e10cSrcweir}
1187cdf0e10cSrcweir
1188cdf0e10cSrcweir##############################################################
1189cdf0e10cSrcweir# Determining, whether a specified directory is language
1190cdf0e10cSrcweir# dependent
1191cdf0e10cSrcweir##############################################################
1192cdf0e10cSrcweir
1193cdf0e10cSrcweirsub determine_directory_language_dependency
1194cdf0e10cSrcweir{
1195cdf0e10cSrcweir	my($directorygid, $dirsref) = @_;
1196cdf0e10cSrcweir
1197cdf0e10cSrcweir	my $is_multilingual = 0;
1198cdf0e10cSrcweir
1199cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
1200cdf0e10cSrcweir	{
1201cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
1202cdf0e10cSrcweir		my $gid = $onedir->{'gid'};
1203cdf0e10cSrcweir
1204cdf0e10cSrcweir		if ( $gid eq $directorygid )
1205cdf0e10cSrcweir		{
1206cdf0e10cSrcweir			$is_multilingual = $onedir->{'ismultilingual'};
1207cdf0e10cSrcweir			last;
1208cdf0e10cSrcweir		}
1209cdf0e10cSrcweir	}
1210cdf0e10cSrcweir
1211cdf0e10cSrcweir	return $is_multilingual;
1212cdf0e10cSrcweir}
1213cdf0e10cSrcweir
1214cdf0e10cSrcweir##############################################################
1215cdf0e10cSrcweir# Getting all source pathes for all files to be packed
1216cdf0e10cSrcweir# $item can be "Files" or "ScpActions"
1217cdf0e10cSrcweir##############################################################
1218cdf0e10cSrcweir
1219cdf0e10cSrcweirsub get_Source_Directory_For_Files_From_Includepathlist
1220cdf0e10cSrcweir{
1221cdf0e10cSrcweir	my ($filesarrayref, $includepatharrayref, $dirsref, $item) = @_;
1222cdf0e10cSrcweir
1223cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_Source_Directory_For_Files_From_Includepathlist : $#{$filesarrayref} : $#{$includepatharrayref} : $item"); }
1224cdf0e10cSrcweir
1225cdf0e10cSrcweir	installer::logger::include_header_into_logfile("$item:");
1226cdf0e10cSrcweir
1227cdf0e10cSrcweir	my $infoline = "";
1228cdf0e10cSrcweir
1229cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1230cdf0e10cSrcweir	{
1231cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
1232cdf0e10cSrcweir		my $onelanguage = $onefile->{'specificlanguage'};
1233cdf0e10cSrcweir
1234cdf0e10cSrcweir		if ( ! $onefile->{'Name'} ) { installer::exiter::exit_program("ERROR: $item without name ! GID: $onefile->{'gid'} ! Language: $onelanguage", "get_Source_Directory_For_Files_From_Includepathlist"); }
1235cdf0e10cSrcweir
1236cdf0e10cSrcweir		my $onefilename = $onefile->{'Name'};
1237cdf0e10cSrcweir		if ( $item eq "ScpActions" ) { $onefilename =~ s/\//$installer::globals::separator/g; }
1238cdf0e10cSrcweir		$onefilename =~ s/^\s*\Q$installer::globals::separator\E//;		# filename begins with a slash, for instance /registry/schema/org/openoffice/VCL.xcs
1239cdf0e10cSrcweir
1240cdf0e10cSrcweir		my $styles = "";
1241cdf0e10cSrcweir		my $file_can_miss = 0;
1242cdf0e10cSrcweir		if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1243cdf0e10cSrcweir		if ( $styles =~ /\bFILE_CAN_MISS\b/ ) { $file_can_miss = 1; }
1244cdf0e10cSrcweir
1245cdf0e10cSrcweir		if (( $installer::globals::languagepack ) && ( ! $onefile->{'ismultilingual'} ) && ( ! ( $styles =~ /\bFORCELANGUAGEPACK\b/ ))) { $file_can_miss = 1; }
1246cdf0e10cSrcweir
1247cdf0e10cSrcweir		my $sourcepathref = "";
1248cdf0e10cSrcweir
1249cdf0e10cSrcweir		if ( $file_can_miss ) { $sourcepathref = get_sourcepath_from_filename_and_includepath(\$onefilename, $includepatharrayref, 0); }
1250cdf0e10cSrcweir		else { $sourcepathref = get_sourcepath_from_filename_and_includepath(\$onefilename, $includepatharrayref, 1); }
1251cdf0e10cSrcweir
1252cdf0e10cSrcweir		$onefile->{'sourcepath'} = $$sourcepathref;	# This $$sourcepathref is empty, if no source was found
1253cdf0e10cSrcweir
1254cdf0e10cSrcweir		# defaulting to english for multilingual files if DEFAULT_TO_ENGLISH_FOR_PACKING is set
1255cdf0e10cSrcweir
1256cdf0e10cSrcweir		if ( $ENV{'DEFAULT_TO_ENGLISH_FOR_PACKING'} )
1257cdf0e10cSrcweir		{
1258cdf0e10cSrcweir			if (( ! $onefile->{'sourcepath'} ) && ( $onefile->{'ismultilingual'} ))
1259cdf0e10cSrcweir			{
1260cdf0e10cSrcweir				my $oldname = $onefile->{'Name'};
1261cdf0e10cSrcweir				my $oldlanguage = $onefile->{'specificlanguage'};
1262cdf0e10cSrcweir				my $newlanguage = "en-US";
1263cdf0e10cSrcweir				# $onefile->{'Name'} =~ s/$oldlanguage\./$newlanguage\./;	# Example: tplwizfax_it.zip -> tplwizfax_en-US.zip
1264cdf0e10cSrcweir				$onefilename = $onefile->{'Name'};
1265cdf0e10cSrcweir				$onefilename =~ s/$oldlanguage\./$newlanguage\./;	# Example: tplwizfax_it.zip -> tplwizfax_en-US.zip
1266cdf0e10cSrcweir				$onefilename =~ s/^\s*\Q$installer::globals::separator\E//;		# filename begins with a slash, for instance /registry/schema/org/openoffice/VCL.xcs
1267cdf0e10cSrcweir				$sourcepathref = get_sourcepath_from_filename_and_includepath(\$onefilename, $includepatharrayref, 1);
1268cdf0e10cSrcweir				$onefile->{'sourcepath'} = $$sourcepathref;						# This $$sourcepathref is empty, if no source was found
1269cdf0e10cSrcweir
1270cdf0e10cSrcweir				if ($onefile->{'sourcepath'})	# defaulting to english was successful
1271cdf0e10cSrcweir				{
1272cdf0e10cSrcweir					$infoline = "WARNING: Using $onefilename instead of $oldname\n";
1273cdf0e10cSrcweir					push( @installer::globals::logfileinfo, $infoline);
1274cdf0e10cSrcweir					print "    $infoline";
1275cdf0e10cSrcweir					# if ( $onefile->{'destination'} ) { $onefile->{'destination'} =~ s/\Q$oldname\E/$onefile->{'Name'}/; }
1276cdf0e10cSrcweir
1277cdf0e10cSrcweir					# If the directory, in which the new file is installed, is not language dependent,
1278cdf0e10cSrcweir					# the filename has to be changed to avoid installation conflicts
1279cdf0e10cSrcweir					# No mechanism for resource files!
1280cdf0e10cSrcweir					# -> implementing for the content of ARCHIVE files
1281cdf0e10cSrcweir
1282cdf0e10cSrcweir					if ( $onefile->{'Styles'} =~ /\bARCHIVE\b/ )
1283cdf0e10cSrcweir					{
1284cdf0e10cSrcweir						my $directorygid = $onefile->{'Dir'};
1285cdf0e10cSrcweir						my $islanguagedependent = determine_directory_language_dependency($directorygid, $dirsref);
1286cdf0e10cSrcweir
1287cdf0e10cSrcweir						if ( ! $islanguagedependent )
1288cdf0e10cSrcweir						{
1289cdf0e10cSrcweir							$onefile->{'Styles'} =~ s/\bARCHIVE\b/ARCHIVE, RENAME_TO_LANGUAGE/;	# Setting new flag RENAME_TO_LANGUAGE
1290cdf0e10cSrcweir							$infoline = "Setting flag RENAME_TO_LANGUAGE: File $onefile->{'Name'} in directory: $directorygid\n";
1291cdf0e10cSrcweir							push( @installer::globals::logfileinfo, $infoline);
1292cdf0e10cSrcweir						}
1293cdf0e10cSrcweir					}
1294cdf0e10cSrcweir				}
1295cdf0e10cSrcweir				else
1296cdf0e10cSrcweir				{
1297cdf0e10cSrcweir					$infoline = "WARNING: Using $onefile->{'Name'} instead of $oldname was not successful\n";
1298cdf0e10cSrcweir					push( @installer::globals::logfileinfo, $infoline);
1299cdf0e10cSrcweir					$onefile->{'Name'} = $oldname;	# Switching back to old file name
1300cdf0e10cSrcweir				}
1301cdf0e10cSrcweir			}
1302cdf0e10cSrcweir		}
1303cdf0e10cSrcweir	}
1304cdf0e10cSrcweir
1305cdf0e10cSrcweir	$infoline = "\n";	# empty line after listing of all files
1306cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
1307cdf0e10cSrcweir}
1308cdf0e10cSrcweir
1309cdf0e10cSrcweir#################################################################################
1310cdf0e10cSrcweir# Removing files, that shall not be included into languagepacks
1311cdf0e10cSrcweir# (because of rpm conflicts)
1312cdf0e10cSrcweir#################################################################################
1313cdf0e10cSrcweir
1314cdf0e10cSrcweirsub remove_Files_For_Languagepacks
1315cdf0e10cSrcweir{
1316cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1317cdf0e10cSrcweir
1318cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Files_For_Languagepacks : $#{$filesarrayref}"); }
1319cdf0e10cSrcweir
1320cdf0e10cSrcweir	my $infoline;
1321cdf0e10cSrcweir
1322cdf0e10cSrcweir	my @newitemsarray = ();
1323cdf0e10cSrcweir
1324cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1325cdf0e10cSrcweir	{
1326cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1327cdf0e10cSrcweir		my $gid = $oneitem->{'gid'};
1328cdf0e10cSrcweir
1329cdf0e10cSrcweir		# scp Todo: Remove asap after removal of old setup
1330cdf0e10cSrcweir
1331cdf0e10cSrcweir		if (( $gid eq "gid_File_Extra_Fontunxpsprint" ) ||
1332cdf0e10cSrcweir			( $gid eq "gid_File_Extra_Migration_Lang" ))
1333cdf0e10cSrcweir		{
1334cdf0e10cSrcweir			$infoline = "ATTENTION: Removing item $oneitem->{'gid'} from the installation set.\n";
1335cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1336cdf0e10cSrcweir
1337cdf0e10cSrcweir			next;
1338cdf0e10cSrcweir		}
1339cdf0e10cSrcweir
1340cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1341cdf0e10cSrcweir	}
1342cdf0e10cSrcweir
1343cdf0e10cSrcweir	return \@newitemsarray;
1344cdf0e10cSrcweir}
1345cdf0e10cSrcweir
1346cdf0e10cSrcweir#################################################################################
1347cdf0e10cSrcweir# Files, whose source directory is not found, are removed now (this is an ERROR)
1348cdf0e10cSrcweir#################################################################################
1349cdf0e10cSrcweir
1350cdf0e10cSrcweirsub remove_Files_Without_Sourcedirectory
1351cdf0e10cSrcweir{
1352cdf0e10cSrcweir	my ($filesarrayref) = @_;
1353cdf0e10cSrcweir
1354cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Files_Without_Sourcedirectory : $#{$filesarrayref}"); }
1355cdf0e10cSrcweir
1356cdf0e10cSrcweir	my $infoline;
1357cdf0e10cSrcweir
1358cdf0e10cSrcweir	my $error_occured = 0;
1359cdf0e10cSrcweir	my @missingfiles = ();
1360cdf0e10cSrcweir	push(@missingfiles, "ERROR: The following files could not be found: \n");
1361cdf0e10cSrcweir
1362cdf0e10cSrcweir	my @newfilesarray = ();
1363cdf0e10cSrcweir
1364cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1365cdf0e10cSrcweir	{
1366cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
1367cdf0e10cSrcweir		my $sourcepath = $onefile->{'sourcepath'};
1368cdf0e10cSrcweir
1369cdf0e10cSrcweir		if ($sourcepath eq "")
1370cdf0e10cSrcweir		{
1371cdf0e10cSrcweir			my $styles = $onefile->{'Styles'};
1372cdf0e10cSrcweir			my $filename = $onefile->{'Name'};
1373cdf0e10cSrcweir
1374cdf0e10cSrcweir			if ( ! $installer::globals::languagepack )
1375cdf0e10cSrcweir			{
1376cdf0e10cSrcweir				$infoline = "ERROR: Removing file $filename from file list.\n";
1377cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1378cdf0e10cSrcweir
1379cdf0e10cSrcweir				push(@missingfiles, "ERROR: File not found: $filename\n");
1380cdf0e10cSrcweir				$error_occured = 1;
1381cdf0e10cSrcweir
1382cdf0e10cSrcweir				next;	# removing this file from list, if sourcepath is empty
1383cdf0e10cSrcweir			}
1384cdf0e10cSrcweir			else # special case for language packs
1385cdf0e10cSrcweir			{
1386cdf0e10cSrcweir				if (( $onefile->{'ismultilingual'} ) || ( $styles =~ /\bFORCELANGUAGEPACK\b/ ))
1387cdf0e10cSrcweir				{
1388cdf0e10cSrcweir					$infoline = "ERROR: Removing file $filename from file list.\n";
1389cdf0e10cSrcweir					push( @installer::globals::logfileinfo, $infoline);
1390cdf0e10cSrcweir
1391cdf0e10cSrcweir					push(@missingfiles, "ERROR: File not found: $filename\n");
1392cdf0e10cSrcweir					$error_occured = 1;
1393cdf0e10cSrcweir
1394cdf0e10cSrcweir					next;	# removing this file from list, if sourcepath is empty
1395cdf0e10cSrcweir				}
1396cdf0e10cSrcweir				else
1397cdf0e10cSrcweir				{
1398cdf0e10cSrcweir					$infoline = "INFO: Removing file $filename from file list. It is not language dependent.\n";
1399cdf0e10cSrcweir					push( @installer::globals::logfileinfo, $infoline);
1400cdf0e10cSrcweir					$infoline = "INFO: It is not language dependent and can be ignored in language packs.\n";
1401cdf0e10cSrcweir					push( @installer::globals::logfileinfo, $infoline);
1402cdf0e10cSrcweir
1403cdf0e10cSrcweir					next;	# removing this file from list, if sourcepath is empty
1404cdf0e10cSrcweir				}
1405cdf0e10cSrcweir			}
1406cdf0e10cSrcweir		}
1407cdf0e10cSrcweir
1408cdf0e10cSrcweir		push(@newfilesarray, $onefile);
1409cdf0e10cSrcweir	}
1410cdf0e10cSrcweir
1411cdf0e10cSrcweir	$infoline = "\n";
1412cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
1413cdf0e10cSrcweir
1414cdf0e10cSrcweir	if ( $error_occured )
1415cdf0e10cSrcweir	{
1416cdf0e10cSrcweir		for ( my $i = 0; $i <= $#missingfiles; $i++ ) { print "$missingfiles[$i]"; }
1417cdf0e10cSrcweir		installer::exiter::exit_program("ERROR: Missing files", "remove_Files_Without_Sourcedirectory");
1418cdf0e10cSrcweir	}
1419cdf0e10cSrcweir
1420cdf0e10cSrcweir	return \@newfilesarray;
1421cdf0e10cSrcweir}
1422cdf0e10cSrcweir
1423cdf0e10cSrcweir############################################################################
1424cdf0e10cSrcweir# License and Readme files in the default language have to be installed
1425cdf0e10cSrcweir# in the directory with flag OFFICEDIRECTORY. If this is not defined
1426cdf0e10cSrcweir# they have to be installed in the installation root.
1427cdf0e10cSrcweir############################################################################
1428cdf0e10cSrcweir
1429cdf0e10cSrcweirsub get_office_directory_gid_and_hostname
1430cdf0e10cSrcweir{
1431cdf0e10cSrcweir	my ($dirsarrayref) = @_;
1432cdf0e10cSrcweir
1433cdf0e10cSrcweir	my $foundofficedir = 0;
1434cdf0e10cSrcweir	my $gid = "";
1435cdf0e10cSrcweir	my $hostname = "";
1436cdf0e10cSrcweir
1437cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsarrayref}; $i++ )
1438cdf0e10cSrcweir	{
1439cdf0e10cSrcweir		my $onedir = ${$dirsarrayref}[$i];
1440cdf0e10cSrcweir		if ( $onedir->{'Styles'} )
1441cdf0e10cSrcweir		{
1442cdf0e10cSrcweir			my $styles = $onedir->{'Styles'};
1443cdf0e10cSrcweir
1444cdf0e10cSrcweir			if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
1445cdf0e10cSrcweir			{
1446cdf0e10cSrcweir				$foundofficedir = 1;
1447cdf0e10cSrcweir				$gid = $onedir->{'gid'};
1448cdf0e10cSrcweir				$hostname = $onedir->{'HostName'};
1449cdf0e10cSrcweir				last;
1450cdf0e10cSrcweir			}
1451cdf0e10cSrcweir		}
1452cdf0e10cSrcweir	}
1453cdf0e10cSrcweir
1454cdf0e10cSrcweir	return ($foundofficedir, $gid, $hostname);
1455cdf0e10cSrcweir}
1456cdf0e10cSrcweir
1457cdf0e10cSrcweir############################################################################
1458cdf0e10cSrcweir# License and Readme files in the default language have to be installed
1459cdf0e10cSrcweir# in the installation root (next to the program dir). This is in scp
1460cdf0e10cSrcweir# project done by a post install basic script
1461cdf0e10cSrcweir############################################################################
1462cdf0e10cSrcweir
1463cdf0e10cSrcweirsub add_License_Files_into_Installdir
1464cdf0e10cSrcweir{
1465cdf0e10cSrcweir	my ($filesarrayref, $dirsarrayref, $languagesarrayref) = @_;
1466cdf0e10cSrcweir
1467cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_License_Files_into_Installdir : $#{$filesarrayref} : $#{$languagesarrayref}"); }
1468cdf0e10cSrcweir
1469cdf0e10cSrcweir	my $infoline;
1470cdf0e10cSrcweir
1471cdf0e10cSrcweir	my @newfilesarray = ();
1472cdf0e10cSrcweir
1473cdf0e10cSrcweir	my $defaultlanguage = installer::languages::get_default_language($languagesarrayref);
1474cdf0e10cSrcweir
1475cdf0e10cSrcweir	my ($foundofficedir, $officedirectorygid, $officedirectoryhostname) = get_office_directory_gid_and_hostname($dirsarrayref);
1476cdf0e10cSrcweir
1477cdf0e10cSrcweir	# copy all files from directory share/readme, that contain the default language in their name
1478cdf0e10cSrcweir	# without default language into the installation root. This makes the settings of the correct
1479cdf0e10cSrcweir	# file names superfluous. On the other hand this requires a dependency to the directory
1480cdf0e10cSrcweir	# share/readme
1481cdf0e10cSrcweir
1482cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1483cdf0e10cSrcweir	{
1484cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
1485cdf0e10cSrcweir		my $destination = $onefile->{'destination'};
1486cdf0e10cSrcweir		my $styles = "";
1487cdf0e10cSrcweir		if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1488cdf0e10cSrcweir
1489cdf0e10cSrcweir		if ( ( $destination =~ /share\Q$installer::globals::separator\Ereadme\Q$installer::globals::separator\E(\w+?)_?$defaultlanguage\.?(\w*)\s*/ )
1490cdf0e10cSrcweir			|| (( $styles =~ /\bROOTLICENSEFILE\b/ ) && ( $destination =~ /\Q$installer::globals::separator\E?(\w+?)_?$defaultlanguage\.?(\w*?)\s*$/ )) )
1491cdf0e10cSrcweir		{
1492cdf0e10cSrcweir			my $filename = $1;
1493cdf0e10cSrcweir			my $extension = $2;
1494cdf0e10cSrcweir
1495cdf0e10cSrcweir			my $newfilename;
1496cdf0e10cSrcweir
1497cdf0e10cSrcweir			if ( $extension eq "" ) { $newfilename = $filename; }
1498cdf0e10cSrcweir			else { $newfilename = $filename . "\." . $extension; }
1499cdf0e10cSrcweir
1500cdf0e10cSrcweir			my %newfile = ();
1501cdf0e10cSrcweir			my $newfile = \%newfile;
1502cdf0e10cSrcweir
1503cdf0e10cSrcweir			installer::converter::copy_item_object($onefile, $newfile);
1504cdf0e10cSrcweir
1505cdf0e10cSrcweir			$newfile->{'gid'} = $onefile->{'gid'} . "_Copy";
1506cdf0e10cSrcweir			$newfile->{'Name'} = $newfilename;
1507cdf0e10cSrcweir			$newfile->{'ismultilingual'} = "0";
1508cdf0e10cSrcweir			$newfile->{'specificlanguage'} = "";
1509cdf0e10cSrcweir			$newfile->{'haslanguagemodule'} = "0";
1510cdf0e10cSrcweir
1511cdf0e10cSrcweir			if ( defined $newfile->{'InstallName'} )
1512cdf0e10cSrcweir			{
1513cdf0e10cSrcweir				if ( $newfile->{'InstallName'} =~ /^\s*(.*?)_$defaultlanguage\.?(\w*?)\s*$/ )
1514cdf0e10cSrcweir				{
1515cdf0e10cSrcweir					my $localfilename = $1;
1516cdf0e10cSrcweir					my $localextension = $2;
1517cdf0e10cSrcweir
1518cdf0e10cSrcweir					if ( $localextension eq "" ) { $newfile->{'InstallName'} = $localfilename; }
1519cdf0e10cSrcweir					else { $newfile->{'InstallName'} = $localfilename . "\." . $localextension; }
1520cdf0e10cSrcweir				}
1521cdf0e10cSrcweir			}
1522cdf0e10cSrcweir
1523cdf0e10cSrcweir			$newfile->{'removelangfromfile'} = "1"; # Important for files with an InstallName, because language also has to be removed there.
1524cdf0e10cSrcweir
1525cdf0e10cSrcweir			if ( $foundofficedir )
1526cdf0e10cSrcweir			{
1527cdf0e10cSrcweir				$newfile->{'Dir'} = $officedirectorygid;
1528cdf0e10cSrcweir				$newfile->{'destination'} = $officedirectoryhostname . $installer::globals::separator . $newfilename;
1529cdf0e10cSrcweir			}
1530cdf0e10cSrcweir			else
1531cdf0e10cSrcweir			{
1532cdf0e10cSrcweir				$newfile->{'Dir'} = "PREDEFINED_PROGDIR";
1533cdf0e10cSrcweir				$newfile->{'destination'} = $newfilename;
1534cdf0e10cSrcweir			}
1535cdf0e10cSrcweir
1536cdf0e10cSrcweir			# Also setting "modules=gid_Module_Root_Brand" (module with style: ROOT_BRAND_PACKAGE)
1537cdf0e10cSrcweir			if ( $installer::globals::rootbrandpackageset )
1538cdf0e10cSrcweir			{
1539cdf0e10cSrcweir				$newfile->{'modules'} = $installer::globals::rootbrandpackage;
1540cdf0e10cSrcweir			}
1541cdf0e10cSrcweir
1542cdf0e10cSrcweir			push(@newfilesarray, $newfile);
1543cdf0e10cSrcweir
1544cdf0e10cSrcweir			$infoline = "New files: Adding file $newfilename for the installation root to the file list. Language: $defaultlanguage\n";
1545cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1546cdf0e10cSrcweir
1547cdf0e10cSrcweir			if ( defined $newfile->{'InstallName'} )
1548cdf0e10cSrcweir			{
1549cdf0e10cSrcweir				$infoline = "New files: Using installation name: $newfile->{'InstallName'}\n";
1550cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1551cdf0e10cSrcweir			}
1552cdf0e10cSrcweir
1553cdf0e10cSrcweir			# Collecting license and readme file for the installation set
1554cdf0e10cSrcweir
1555cdf0e10cSrcweir			push(@installer::globals::installsetfiles, $newfile);
1556cdf0e10cSrcweir			$infoline = "New files: Adding file $newfilename to the file collector for the installation set. Language: $defaultlanguage\n";
1557cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1558cdf0e10cSrcweir		}
1559cdf0e10cSrcweir
1560cdf0e10cSrcweir		push(@newfilesarray, $onefile);
1561cdf0e10cSrcweir	}
1562cdf0e10cSrcweir
1563cdf0e10cSrcweir	return \@newfilesarray;
1564cdf0e10cSrcweir}
1565cdf0e10cSrcweir
1566cdf0e10cSrcweir############################################################################
1567cdf0e10cSrcweir# Removing files with flag ONLY_ASIA_LANGUAGE, only if no asian
1568cdf0e10cSrcweir# language is part of the product.
1569cdf0e10cSrcweir# This special files are connected to the root module and are not
1570cdf0e10cSrcweir# included into a language pack (would lead to conflicts!).
1571cdf0e10cSrcweir# But this files shall only be included into the product, if the
1572cdf0e10cSrcweir# product contains at least one asian language.
1573cdf0e10cSrcweir############################################################################
1574cdf0e10cSrcweir
1575cdf0e10cSrcweirsub remove_onlyasialanguage_files_from_productlists
1576cdf0e10cSrcweir{
1577cdf0e10cSrcweir	my ($filesarrayref) = @_;
1578cdf0e10cSrcweir
1579cdf0e10cSrcweir	my $infoline;
1580cdf0e10cSrcweir
1581cdf0e10cSrcweir	my @newfilesarray = ();
1582cdf0e10cSrcweir	my $returnfilesarrayref;
1583cdf0e10cSrcweir
1584cdf0e10cSrcweir	my $containsasianlanguage = installer::languages::detect_asian_language($installer::globals::alllanguagesinproductarrayref);
1585cdf0e10cSrcweir
1586cdf0e10cSrcweir	my $alllangstring = installer::converter::convert_array_to_comma_separated_string($installer::globals::alllanguagesinproductarrayref);
1587cdf0e10cSrcweir	$infoline = "\nLanguages in complete product: $alllangstring\n";
1588cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
1589cdf0e10cSrcweir
1590cdf0e10cSrcweir	if ( ! $containsasianlanguage )
1591cdf0e10cSrcweir	{
1592cdf0e10cSrcweir		$infoline = "Product does not contain asian language -> removing files\n";
1593cdf0e10cSrcweir		push( @installer::globals::logfileinfo, $infoline);
1594cdf0e10cSrcweir
1595cdf0e10cSrcweir		for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1596cdf0e10cSrcweir		{
1597cdf0e10cSrcweir			my $onefile = ${$filesarrayref}[$i];
1598cdf0e10cSrcweir			my $styles = "";
1599cdf0e10cSrcweir			if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1600cdf0e10cSrcweir			if ( $styles =~ /\bONLY_ASIA_LANGUAGE\b/ )
1601cdf0e10cSrcweir			{
1602cdf0e10cSrcweir				$infoline = "Flag ONLY_ASIA_LANGUAGE: Removing file $onefile->{'Name'} from files collector!\n";
1603cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1604cdf0e10cSrcweir				next;
1605cdf0e10cSrcweir			}
1606cdf0e10cSrcweir
1607cdf0e10cSrcweir			push(@newfilesarray, $onefile);
1608cdf0e10cSrcweir		}
1609cdf0e10cSrcweir
1610cdf0e10cSrcweir		$returnfilesarrayref = \@newfilesarray;
1611cdf0e10cSrcweir	}
1612cdf0e10cSrcweir	else
1613cdf0e10cSrcweir	{
1614cdf0e10cSrcweir		$returnfilesarrayref = $filesarrayref;
1615cdf0e10cSrcweir
1616cdf0e10cSrcweir		$infoline = "Product contains asian language -> Nothing to do\n";
1617cdf0e10cSrcweir		push( @installer::globals::logfileinfo, $infoline);
1618cdf0e10cSrcweir
1619cdf0e10cSrcweir	}
1620cdf0e10cSrcweir
1621cdf0e10cSrcweir	return $returnfilesarrayref;
1622cdf0e10cSrcweir}
1623cdf0e10cSrcweir
1624cdf0e10cSrcweir############################################################################
1625cdf0e10cSrcweir# Removing files with flag ONLY_WESTERN_LANGUAGE, only if no western
1626cdf0e10cSrcweir# language is part of the product.
1627cdf0e10cSrcweir# This special files are connected to the root module and are not
1628cdf0e10cSrcweir# included into a language pack (would lead to conflicts!).
1629cdf0e10cSrcweir# But this files shall only be included into the product, if the
1630cdf0e10cSrcweir# product contains at least one western language.
1631cdf0e10cSrcweir############################################################################
1632cdf0e10cSrcweir
1633cdf0e10cSrcweirsub remove_onlywesternlanguage_files_from_productlists
1634cdf0e10cSrcweir{
1635cdf0e10cSrcweir	my ($filesarrayref) = @_;
1636cdf0e10cSrcweir
1637cdf0e10cSrcweir	my $infoline;
1638cdf0e10cSrcweir
1639cdf0e10cSrcweir	my @newfilesarray = ();
1640cdf0e10cSrcweir	my $returnfilesarrayref;
1641cdf0e10cSrcweir
1642cdf0e10cSrcweir	my $containswesternlanguage = installer::languages::detect_western_language($installer::globals::alllanguagesinproductarrayref);
1643cdf0e10cSrcweir
1644cdf0e10cSrcweir	my $alllangstring = installer::converter::convert_array_to_comma_separated_string($installer::globals::alllanguagesinproductarrayref);
1645cdf0e10cSrcweir	$infoline = "\nLanguages in complete product: $alllangstring\n";
1646cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
1647cdf0e10cSrcweir
1648cdf0e10cSrcweir	if ( ! $containswesternlanguage )
1649cdf0e10cSrcweir	{
1650cdf0e10cSrcweir		$infoline = "Product does not contain western language -> removing files\n";
1651cdf0e10cSrcweir		push( @installer::globals::logfileinfo, $infoline);
1652cdf0e10cSrcweir
1653cdf0e10cSrcweir		for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1654cdf0e10cSrcweir		{
1655cdf0e10cSrcweir			my $onefile = ${$filesarrayref}[$i];
1656cdf0e10cSrcweir			my $styles = "";
1657cdf0e10cSrcweir			if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1658cdf0e10cSrcweir			if ( $styles =~ /\bONLY_WESTERN_LANGUAGE\b/ )
1659cdf0e10cSrcweir			{
1660cdf0e10cSrcweir				$infoline = "Flag ONLY_WESTERN_LANGUAGE: Removing file $onefile->{'Name'} from files collector!\n";
1661cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1662cdf0e10cSrcweir				next;
1663cdf0e10cSrcweir			}
1664cdf0e10cSrcweir
1665cdf0e10cSrcweir			push(@newfilesarray, $onefile);
1666cdf0e10cSrcweir		}
1667cdf0e10cSrcweir
1668cdf0e10cSrcweir		$returnfilesarrayref = \@newfilesarray;
1669cdf0e10cSrcweir	}
1670cdf0e10cSrcweir	else
1671cdf0e10cSrcweir	{
1672cdf0e10cSrcweir		$returnfilesarrayref = $filesarrayref;
1673cdf0e10cSrcweir
1674cdf0e10cSrcweir		$infoline = "Product contains western language -> Nothing to do\n";
1675cdf0e10cSrcweir		push( @installer::globals::logfileinfo, $infoline);
1676cdf0e10cSrcweir
1677cdf0e10cSrcweir	}
1678cdf0e10cSrcweir
1679cdf0e10cSrcweir	return $returnfilesarrayref;
1680cdf0e10cSrcweir}
1681cdf0e10cSrcweir
1682cdf0e10cSrcweir############################################################################
1683cdf0e10cSrcweir# Some files are included for more than one language and have the same
1684cdf0e10cSrcweir# name and the same destination directory for all languages. This would
1685cdf0e10cSrcweir# lead to conflicts, if the filenames are not changed.
1686cdf0e10cSrcweir# In scp project this files must have the flag MAKE_LANG_SPECIFIC
1687cdf0e10cSrcweir# For this files, the language is included into the filename.
1688cdf0e10cSrcweir############################################################################
1689cdf0e10cSrcweir
1690cdf0e10cSrcweirsub make_filename_language_specific
1691cdf0e10cSrcweir{
1692cdf0e10cSrcweir	my ($filesarrayref) = @_;
1693cdf0e10cSrcweir
1694cdf0e10cSrcweir	my $infoline = "";
1695cdf0e10cSrcweir
1696cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1697cdf0e10cSrcweir	{
1698cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
1699cdf0e10cSrcweir
1700cdf0e10cSrcweir		if ( $onefile->{'ismultilingual'} )
1701cdf0e10cSrcweir		{
1702cdf0e10cSrcweir			my $styles = "";
1703cdf0e10cSrcweir			if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1704cdf0e10cSrcweir			if ( $styles =~ /\bMAKE_LANG_SPECIFIC\b/ )
1705cdf0e10cSrcweir			{
1706cdf0e10cSrcweir				my $language = $onefile->{'specificlanguage'};
1707cdf0e10cSrcweir				my $olddestination = $onefile->{'destination'};
1708cdf0e10cSrcweir				my $oldname = $onefile->{'Name'};
1709cdf0e10cSrcweir
1710cdf0e10cSrcweir				# Including the language into the file name.
1711cdf0e10cSrcweir				# But be sure, to include the language before the file extension.
1712cdf0e10cSrcweir
1713cdf0e10cSrcweir				my $fileextension = "";
1714cdf0e10cSrcweir
1715cdf0e10cSrcweir				if ( $onefile->{'Name'} =~ /(\.\w+?)\s*$/ ) { $fileextension = $1; }
1716cdf0e10cSrcweir				if ( $fileextension ne "" )
1717cdf0e10cSrcweir				{
1718cdf0e10cSrcweir					$onefile->{'Name'} =~ s/\Q$fileextension\E\s*$/_$language$fileextension/;
1719cdf0e10cSrcweir					$onefile->{'destination'} =~ s/\Q$fileextension\E\s*$/_$language$fileextension/;
1720cdf0e10cSrcweir				}
1721cdf0e10cSrcweir
1722cdf0e10cSrcweir				$infoline = "Flag MAKE_LANG_SPECIFIC:\n";
1723cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1724cdf0e10cSrcweir				$infoline = "Changing name from $oldname to $onefile->{'Name'} !\n";
1725cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1726cdf0e10cSrcweir				$infoline = "Changing destination from $olddestination to $onefile->{'destination'} !\n";
1727cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
1728cdf0e10cSrcweir			}
1729cdf0e10cSrcweir		}
1730cdf0e10cSrcweir	}
1731cdf0e10cSrcweir}
1732cdf0e10cSrcweir
1733cdf0e10cSrcweir############################################################################
1734cdf0e10cSrcweir# Removing all scpactions, that have no name.
1735cdf0e10cSrcweir# See: FlatLoaderZip
1736cdf0e10cSrcweir############################################################################
1737cdf0e10cSrcweir
1738cdf0e10cSrcweirsub remove_scpactions_without_name
1739cdf0e10cSrcweir{
1740cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1741cdf0e10cSrcweir
1742cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_scpactions_without_name : $#{$itemsarrayref}"); }
1743cdf0e10cSrcweir
1744cdf0e10cSrcweir	my $infoline;
1745cdf0e10cSrcweir
1746cdf0e10cSrcweir	my @newitemsarray = ();
1747cdf0e10cSrcweir
1748cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1749cdf0e10cSrcweir	{
1750cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1751cdf0e10cSrcweir		my $name = "";
1752cdf0e10cSrcweir
1753cdf0e10cSrcweir		if ( $oneitem->{'Name'} ) { $name = $oneitem->{'Name'}; }
1754cdf0e10cSrcweir
1755cdf0e10cSrcweir		if  ( $name eq "" )
1756cdf0e10cSrcweir		{
1757cdf0e10cSrcweir			$infoline = "ATTENTION: Removing scpaction $oneitem->{'gid'} from the installation set.\n";
1758cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
1759cdf0e10cSrcweir			next;
1760cdf0e10cSrcweir		}
1761cdf0e10cSrcweir
1762cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1763cdf0e10cSrcweir	}
1764cdf0e10cSrcweir
1765cdf0e10cSrcweir	return \@newitemsarray;
1766cdf0e10cSrcweir}
1767cdf0e10cSrcweir
1768cdf0e10cSrcweir############################################################################
1769cdf0e10cSrcweir# Because of the item "File" the source name must be "Name". Therefore
1770cdf0e10cSrcweir# "Copy" is changed to "Name" and "Name" is changed to "DestinationName".
1771cdf0e10cSrcweir############################################################################
1772cdf0e10cSrcweir
1773cdf0e10cSrcweirsub change_keys_of_scpactions
1774cdf0e10cSrcweir{
1775cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1776cdf0e10cSrcweir
1777cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::change_keys_of_scpactions : $#{$itemsarrayref}"); }
1778cdf0e10cSrcweir
1779cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1780cdf0e10cSrcweir	{
1781cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1782cdf0e10cSrcweir
1783cdf0e10cSrcweir		my $key;
1784cdf0e10cSrcweir
1785cdf0e10cSrcweir		# First Name to DestinationName, then deleting Name
1786cdf0e10cSrcweir		foreach $key (keys %{$oneitem})
1787cdf0e10cSrcweir		{
1788cdf0e10cSrcweir			if ( $key =~ /\bName\b/ )
1789cdf0e10cSrcweir			{
1790cdf0e10cSrcweir				my $value = $oneitem->{$key};
1791cdf0e10cSrcweir				my $oldkey = $key;
1792cdf0e10cSrcweir				$key =~ s/Name/DestinationName/;
1793cdf0e10cSrcweir				$oneitem->{$key} = $value;
1794cdf0e10cSrcweir				delete($oneitem->{$oldkey});
1795cdf0e10cSrcweir			}
1796cdf0e10cSrcweir		}
1797cdf0e10cSrcweir
1798cdf0e10cSrcweir		# Second Copy to Name, then deleting Copy
1799cdf0e10cSrcweir		foreach $key (keys %{$oneitem})
1800cdf0e10cSrcweir		{
1801cdf0e10cSrcweir			if ( $key =~ /\bCopy\b/ )
1802cdf0e10cSrcweir			{
1803cdf0e10cSrcweir				my $value = $oneitem->{$key};
1804cdf0e10cSrcweir				my $oldkey = $key;
1805cdf0e10cSrcweir				$key =~ s/Copy/Name/;
1806cdf0e10cSrcweir				$oneitem->{$key} = $value;
1807cdf0e10cSrcweir				delete($oneitem->{$oldkey});
1808cdf0e10cSrcweir			}
1809cdf0e10cSrcweir		}
1810cdf0e10cSrcweir	}
1811cdf0e10cSrcweir}
1812cdf0e10cSrcweir
1813cdf0e10cSrcweir############################################################################
1814cdf0e10cSrcweir# Removing all xpd only items from installation set (scpactions with
1815cdf0e10cSrcweir# the style XPD_ONLY), except an xpd installation set is created
1816cdf0e10cSrcweir############################################################################
1817cdf0e10cSrcweir
1818cdf0e10cSrcweirsub remove_Xpdonly_Items
1819cdf0e10cSrcweir{
1820cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1821cdf0e10cSrcweir
1822cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Xpdonly_Items : $#{$itemsarrayref}"); }
1823cdf0e10cSrcweir
1824cdf0e10cSrcweir	my $infoline;
1825cdf0e10cSrcweir
1826cdf0e10cSrcweir	my @newitemsarray = ();
1827cdf0e10cSrcweir
1828cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1829cdf0e10cSrcweir	{
1830cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1831cdf0e10cSrcweir		my $styles = "";
1832cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1833cdf0e10cSrcweir
1834cdf0e10cSrcweir		if ( $styles =~ /\bXPD_ONLY\b/ )
1835cdf0e10cSrcweir		{
1836cdf0e10cSrcweir			$infoline = "Removing \"xpd only\" item $oneitem->{'gid'} from the installation set.\n";
1837cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
1838cdf0e10cSrcweir
1839cdf0e10cSrcweir			next;
1840cdf0e10cSrcweir		}
1841cdf0e10cSrcweir
1842cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1843cdf0e10cSrcweir	}
1844cdf0e10cSrcweir
1845cdf0e10cSrcweir	$infoline = "\n";
1846cdf0e10cSrcweir	push( @installer::globals::globallogfileinfo, $infoline);
1847cdf0e10cSrcweir
1848cdf0e10cSrcweir	return \@newitemsarray;
1849cdf0e10cSrcweir}
1850cdf0e10cSrcweir
1851cdf0e10cSrcweir############################################################################
1852cdf0e10cSrcweir# Removing all language pack files from installation set (files with
1853cdf0e10cSrcweir# the style LANGUAGEPACK), except this is a language pack.
1854cdf0e10cSrcweir############################################################################
1855cdf0e10cSrcweir
1856cdf0e10cSrcweirsub remove_Languagepacklibraries_from_Installset
1857cdf0e10cSrcweir{
1858cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1859cdf0e10cSrcweir
1860cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_Languagepacklibraries_from_Installset : $#{$itemsarrayref}"); }
1861cdf0e10cSrcweir
1862cdf0e10cSrcweir	my $infoline;
1863cdf0e10cSrcweir
1864cdf0e10cSrcweir	my @newitemsarray = ();
1865cdf0e10cSrcweir
1866cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1867cdf0e10cSrcweir	{
1868cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1869cdf0e10cSrcweir		my $styles = "";
1870cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1871cdf0e10cSrcweir
1872cdf0e10cSrcweir		if ( $styles =~ /\bLANGUAGEPACK\b/ )
1873cdf0e10cSrcweir		{
1874cdf0e10cSrcweir			$infoline = "Removing language pack file $oneitem->{'gid'} from the installation set.\n";
1875cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
1876cdf0e10cSrcweir
1877cdf0e10cSrcweir			next;
1878cdf0e10cSrcweir		}
1879cdf0e10cSrcweir
1880cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1881cdf0e10cSrcweir	}
1882cdf0e10cSrcweir
1883cdf0e10cSrcweir	$infoline = "\n";
1884cdf0e10cSrcweir	push( @installer::globals::globallogfileinfo, $infoline);
1885cdf0e10cSrcweir
1886cdf0e10cSrcweir	return \@newitemsarray;
1887cdf0e10cSrcweir}
1888cdf0e10cSrcweir
1889cdf0e10cSrcweir############################################################################
1890cdf0e10cSrcweir# Removing all files with flag PATCH_ONLY from installation set.
1891cdf0e10cSrcweir# This function is not called during patch creation.
1892cdf0e10cSrcweir############################################################################
1893cdf0e10cSrcweir
1894cdf0e10cSrcweirsub remove_patchonlyfiles_from_Installset
1895cdf0e10cSrcweir{
1896cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1897cdf0e10cSrcweir
1898cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_patchonlyfiles_from_Installset : $#{$itemsarrayref}"); }
1899cdf0e10cSrcweir
1900cdf0e10cSrcweir	my $infoline;
1901cdf0e10cSrcweir
1902cdf0e10cSrcweir	my @newitemsarray = ();
1903cdf0e10cSrcweir
1904cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1905cdf0e10cSrcweir	{
1906cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1907cdf0e10cSrcweir		my $styles = "";
1908cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1909cdf0e10cSrcweir
1910cdf0e10cSrcweir		if ( $styles =~ /\bPATCH_ONLY\b/ )
1911cdf0e10cSrcweir		{
1912cdf0e10cSrcweir			$infoline = "Removing file with flag PATCH_ONLY $oneitem->{'gid'} from the installation set.\n";
1913cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
1914cdf0e10cSrcweir
1915cdf0e10cSrcweir			next;
1916cdf0e10cSrcweir		}
1917cdf0e10cSrcweir
1918cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1919cdf0e10cSrcweir	}
1920cdf0e10cSrcweir
1921cdf0e10cSrcweir	$infoline = "\n";
1922cdf0e10cSrcweir	push( @installer::globals::globallogfileinfo, $infoline);
1923cdf0e10cSrcweir
1924cdf0e10cSrcweir	return \@newitemsarray;
1925cdf0e10cSrcweir}
1926cdf0e10cSrcweir
1927cdf0e10cSrcweir############################################################################
1928cdf0e10cSrcweir# Removing all files with flag TAB_ONLY from installation set.
1929cdf0e10cSrcweir# This function is not called during tab creation.
1930cdf0e10cSrcweir############################################################################
1931cdf0e10cSrcweir
1932cdf0e10cSrcweirsub remove_tabonlyfiles_from_Installset
1933cdf0e10cSrcweir{
1934cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1935cdf0e10cSrcweir
1936cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_tabonlyfiles_from_Installset : $#{$itemsarrayref}"); }
1937cdf0e10cSrcweir
1938cdf0e10cSrcweir	my $infoline;
1939cdf0e10cSrcweir
1940cdf0e10cSrcweir	my @newitemsarray = ();
1941cdf0e10cSrcweir
1942cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1943cdf0e10cSrcweir	{
1944cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1945cdf0e10cSrcweir		my $styles = "";
1946cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1947cdf0e10cSrcweir
1948cdf0e10cSrcweir		if ( $styles =~ /\bTAB_ONLY\b/ )
1949cdf0e10cSrcweir		{
1950cdf0e10cSrcweir			$infoline = "Removing tab only file $oneitem->{'gid'} from the installation set.\n";
1951cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
1952cdf0e10cSrcweir
1953cdf0e10cSrcweir			next;
1954cdf0e10cSrcweir		}
1955cdf0e10cSrcweir
1956cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1957cdf0e10cSrcweir	}
1958cdf0e10cSrcweir
1959cdf0e10cSrcweir	$infoline = "\n";
1960cdf0e10cSrcweir	push( @installer::globals::globallogfileinfo, $infoline);
1961cdf0e10cSrcweir
1962cdf0e10cSrcweir	return \@newitemsarray;
1963cdf0e10cSrcweir}
1964cdf0e10cSrcweir
1965cdf0e10cSrcweir###############################################################################
1966cdf0e10cSrcweir# Removing all files with flag ONLY_INSTALLED_PRODUCT from installation set.
1967cdf0e10cSrcweir# This function is not called for PKGFORMAT installed and archive.
1968cdf0e10cSrcweir###############################################################################
1969cdf0e10cSrcweir
1970cdf0e10cSrcweirsub remove_installedproductonlyfiles_from_Installset
1971cdf0e10cSrcweir{
1972cdf0e10cSrcweir	my ($itemsarrayref) = @_;
1973cdf0e10cSrcweir
1974cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_installedproductonlyfiles_from_Installset : $#{$itemsarrayref}"); }
1975cdf0e10cSrcweir
1976cdf0e10cSrcweir	my $infoline;
1977cdf0e10cSrcweir
1978cdf0e10cSrcweir	my @newitemsarray = ();
1979cdf0e10cSrcweir
1980cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1981cdf0e10cSrcweir	{
1982cdf0e10cSrcweir		my $oneitem = ${$itemsarrayref}[$i];
1983cdf0e10cSrcweir		my $styles = "";
1984cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1985cdf0e10cSrcweir
1986cdf0e10cSrcweir		if ( $styles =~ /\bONLY_INSTALLED_PRODUCT\b/ )
1987cdf0e10cSrcweir		{
1988cdf0e10cSrcweir			$infoline = "Removing file $oneitem->{'gid'} from the installation set. This file is only required for PKGFORMAT archive or installed).\n";
1989cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
1990cdf0e10cSrcweir			next;
1991cdf0e10cSrcweir		}
1992cdf0e10cSrcweir
1993cdf0e10cSrcweir		push(@newitemsarray, $oneitem);
1994cdf0e10cSrcweir	}
1995cdf0e10cSrcweir
1996cdf0e10cSrcweir	$infoline = "\n";
1997cdf0e10cSrcweir	push( @installer::globals::globallogfileinfo, $infoline);
1998cdf0e10cSrcweir
1999cdf0e10cSrcweir	return \@newitemsarray;
2000cdf0e10cSrcweir}
2001cdf0e10cSrcweir
2002cdf0e10cSrcweir############################################################################
2003cdf0e10cSrcweir# Some files cotain a $ in their name. epm conflicts with such files.
2004cdf0e10cSrcweir# Solution: Renaming this files, converting "$" to "$$"
2005cdf0e10cSrcweir############################################################################
2006cdf0e10cSrcweir
2007cdf0e10cSrcweirsub quoting_illegal_filenames
2008cdf0e10cSrcweir{
2009cdf0e10cSrcweir	my ($filesarrayref) = @_;
2010cdf0e10cSrcweir
2011cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::rename_illegal_filenames : $#{$filesarrayref}"); }
2012cdf0e10cSrcweir
2013cdf0e10cSrcweir	# This function has to be removed as soon as possible!
2014cdf0e10cSrcweir
2015cdf0e10cSrcweir	installer::logger::include_header_into_logfile("Renaming illegal filenames:");
2016cdf0e10cSrcweir
2017cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
2018cdf0e10cSrcweir	{
2019cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
2020cdf0e10cSrcweir		my $filename = $onefile->{'Name'};
2021cdf0e10cSrcweir
2022cdf0e10cSrcweir		if ( $filename =~ /\$/ )
2023cdf0e10cSrcweir		{
2024cdf0e10cSrcweir			my $sourcepath = $onefile->{'sourcepath'};
2025cdf0e10cSrcweir			my $destpath = $onefile->{'destination'};
2026cdf0e10cSrcweir
2027cdf0e10cSrcweir			# sourcepath and destination have to be quoted for epm list file
2028cdf0e10cSrcweir
2029cdf0e10cSrcweir			# $filename =~ s/\$/\$\$/g;
2030cdf0e10cSrcweir			$destpath =~ s/\$/\$\$/g;
2031cdf0e10cSrcweir			$sourcepath =~ s/\$/\$\$/g;
2032cdf0e10cSrcweir
2033cdf0e10cSrcweir			# my $infoline = "ATTENTION: Files: Renaming $onefile->{'Name'} to $filename\n";
2034cdf0e10cSrcweir			# push( @installer::globals::logfileinfo, $infoline);
2035cdf0e10cSrcweir			my $infoline = "ATTENTION: Files: Quoting sourcepath $onefile->{'sourcepath'} to $sourcepath\n";
2036cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
2037cdf0e10cSrcweir			$infoline = "ATTENTION: Files: Quoting destination path $onefile->{'destination'} to $destpath\n";
2038cdf0e10cSrcweir			push( @installer::globals::logfileinfo, $infoline);
2039cdf0e10cSrcweir
2040cdf0e10cSrcweir			# $onefile->{'Name'} = $filename;
2041cdf0e10cSrcweir			$onefile->{'sourcepath'} = $sourcepath;
2042cdf0e10cSrcweir			$onefile->{'destination'} = $destpath;
2043cdf0e10cSrcweir		}
2044cdf0e10cSrcweir	}
2045cdf0e10cSrcweir}
2046cdf0e10cSrcweir
2047cdf0e10cSrcweir############################################################################
2048cdf0e10cSrcweir# Removing multiple occurences of same module.
2049cdf0e10cSrcweir############################################################################
2050cdf0e10cSrcweir
2051cdf0e10cSrcweirsub optimize_list
2052cdf0e10cSrcweir{
2053cdf0e10cSrcweir	my ( $longlist ) = @_;
2054cdf0e10cSrcweir
2055cdf0e10cSrcweir	my $shortlist = "";
2056cdf0e10cSrcweir	my $hashref = installer::converter::convert_stringlist_into_hash(\$longlist, ",");
2057cdf0e10cSrcweir	foreach my $key (sort keys %{$hashref} ) { $shortlist = "$shortlist,$key"; }
2058cdf0e10cSrcweir	$shortlist =~ s/^\s*\,//;
2059cdf0e10cSrcweir
2060cdf0e10cSrcweir	return $shortlist;
2061cdf0e10cSrcweir}
2062cdf0e10cSrcweir
2063cdf0e10cSrcweir#######################################################################
2064cdf0e10cSrcweir# Collecting all directories needed for the epm list
2065cdf0e10cSrcweir# 1. Looking for all destination paths in the files array
2066cdf0e10cSrcweir# 2. Looking for directories with CREATE flag in the directory array
2067cdf0e10cSrcweir#######################################################################
2068cdf0e10cSrcweir
2069cdf0e10cSrcweir##################################
2070cdf0e10cSrcweir# Collecting directories: Part 1
2071cdf0e10cSrcweir##################################
2072cdf0e10cSrcweir
2073cdf0e10cSrcweirsub collect_directories_from_filesarray
2074cdf0e10cSrcweir{
2075cdf0e10cSrcweir	my ($filesarrayref) = @_;
2076cdf0e10cSrcweir
2077cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::collect_directories_from_filesarray : $#{$filesarrayref}"); }
2078cdf0e10cSrcweir
2079cdf0e10cSrcweir	my @alldirectories = ();
2080cdf0e10cSrcweir	my %alldirectoryhash = ();
2081cdf0e10cSrcweir
2082cdf0e10cSrcweir	my $predefinedprogdir_added = 0;
2083cdf0e10cSrcweir	my $alreadyincluded = 0;
2084cdf0e10cSrcweir
2085cdf0e10cSrcweir	# Preparing this already as hash, although the only needed value at the moment is the HostName
2086cdf0e10cSrcweir	# But also adding: "specificlanguage" and "Dir" (for instance gid_Dir_Program)
2087cdf0e10cSrcweir
2088cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
2089cdf0e10cSrcweir	{
2090cdf0e10cSrcweir		my $onefile = ${$filesarrayref}[$i];
2091cdf0e10cSrcweir		my $destinationpath = $onefile->{'destination'};
2092cdf0e10cSrcweir		installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationpath);
2093cdf0e10cSrcweir		$destinationpath =~ s/\Q$installer::globals::separator\E\s*$//;		# removing ending slashes or backslashes
2094cdf0e10cSrcweir
2095cdf0e10cSrcweir		$alreadyincluded = 0;
2096cdf0e10cSrcweir		if  ( exists($alldirectoryhash{$destinationpath}) ) { $alreadyincluded = 1; }
2097cdf0e10cSrcweir
2098cdf0e10cSrcweir		if (!($alreadyincluded))
2099cdf0e10cSrcweir		{
2100cdf0e10cSrcweir			my %directoryhash = ();
2101cdf0e10cSrcweir			$directoryhash{'HostName'} = $destinationpath;
2102cdf0e10cSrcweir			$directoryhash{'specificlanguage'} = $onefile->{'specificlanguage'};
2103cdf0e10cSrcweir			$directoryhash{'Dir'} = $onefile->{'Dir'};
2104cdf0e10cSrcweir			$directoryhash{'modules'} = $onefile->{'modules'}; # NEW, saving modules
2105cdf0e10cSrcweir			# NEVER!!!	if ( ! $installer::globals::iswindowsbuild ) { $directoryhash{'Styles'} = "(CREATE)"; }	# this directories must be created
2106cdf0e10cSrcweir
2107cdf0e10cSrcweir			if ( $onefile->{'Dir'} eq "PREDEFINED_PROGDIR" ) { $predefinedprogdir_added = 1; }
2108cdf0e10cSrcweir
2109cdf0e10cSrcweir			$alldirectoryhash{$destinationpath} = \%directoryhash;
2110cdf0e10cSrcweir
2111cdf0e10cSrcweir			# Problem: The $destinationpath can be share/registry/schema/org/openoffice
2112cdf0e10cSrcweir			# but not all directories contain files and will be added to this list.
2113cdf0e10cSrcweir			# Therefore the path has to be analyzed.
2114cdf0e10cSrcweir
2115cdf0e10cSrcweir			while ( $destinationpath =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )	# as long as the path contains slashes
2116cdf0e10cSrcweir			{
2117cdf0e10cSrcweir				$destinationpath = $1;
2118cdf0e10cSrcweir
2119cdf0e10cSrcweir				$alreadyincluded = 0;
2120cdf0e10cSrcweir				if  ( exists($alldirectoryhash{$destinationpath}) ) { $alreadyincluded = 1; }
2121cdf0e10cSrcweir
2122cdf0e10cSrcweir				if (!($alreadyincluded))
2123cdf0e10cSrcweir				{
2124cdf0e10cSrcweir					my %directoryhash = ();
2125cdf0e10cSrcweir
2126cdf0e10cSrcweir					$directoryhash{'HostName'} = $destinationpath;
2127cdf0e10cSrcweir					$directoryhash{'specificlanguage'} = $onefile->{'specificlanguage'};
2128cdf0e10cSrcweir					$directoryhash{'Dir'} = $onefile->{'Dir'};
2129cdf0e10cSrcweir					$directoryhash{'modules'} = $onefile->{'modules'}; # NEW, saving modules
2130cdf0e10cSrcweir					# NEVER!!! if ( ! $installer::globals::iswindowsbuild ) { $directoryhash{'Styles'} = "(CREATE)"; }	# this directories must be created
2131cdf0e10cSrcweir
2132cdf0e10cSrcweir					$alldirectoryhash{$destinationpath} = \%directoryhash;
2133cdf0e10cSrcweir				}
2134cdf0e10cSrcweir				else
2135cdf0e10cSrcweir				{
2136cdf0e10cSrcweir					# Adding the modules to the module list!
2137cdf0e10cSrcweir					$alldirectoryhash{$destinationpath}->{'modules'} = $alldirectoryhash{$destinationpath}->{'modules'} . "," . $onefile->{'modules'};
2138cdf0e10cSrcweir				}
2139cdf0e10cSrcweir			}
2140cdf0e10cSrcweir		}
2141cdf0e10cSrcweir		else
2142cdf0e10cSrcweir		{
2143cdf0e10cSrcweir			# Adding the modules to the module list!
2144cdf0e10cSrcweir			$alldirectoryhash{$destinationpath}->{'modules'} = $alldirectoryhash{$destinationpath}->{'modules'} . "," . $onefile->{'modules'};
2145cdf0e10cSrcweir
2146cdf0e10cSrcweir			# Also adding the module to all parents
2147cdf0e10cSrcweir			while ( $destinationpath =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )	# as long as the path contains slashes
2148cdf0e10cSrcweir			{
2149cdf0e10cSrcweir				$destinationpath = $1;
2150cdf0e10cSrcweir				$alldirectoryhash{$destinationpath}->{'modules'} = $alldirectoryhash{$destinationpath}->{'modules'} . "," . $onefile->{'modules'};
2151cdf0e10cSrcweir			}
2152cdf0e10cSrcweir		}
2153cdf0e10cSrcweir	}
2154cdf0e10cSrcweir
2155cdf0e10cSrcweir	# if there is no file in the root directory PREDEFINED_PROGDIR, it has to be included into the directory array now
2156cdf0e10cSrcweir	# HostName=	specificlanguage=	Dir=PREDEFINED_PROGDIR
2157cdf0e10cSrcweir
2158cdf0e10cSrcweir	if (! $predefinedprogdir_added )
2159cdf0e10cSrcweir	{
2160cdf0e10cSrcweir		my %directoryhash = ();
2161cdf0e10cSrcweir		$directoryhash{'HostName'} = "";
2162cdf0e10cSrcweir		$directoryhash{'specificlanguage'} = "";
2163cdf0e10cSrcweir		$directoryhash{'modules'} = "";	# ToDo?
2164cdf0e10cSrcweir		$directoryhash{'Dir'} = "PREDEFINED_PROGDIR";
2165cdf0e10cSrcweir
2166cdf0e10cSrcweir		push(@alldirectories, \%directoryhash);
2167cdf0e10cSrcweir	}
2168cdf0e10cSrcweir
2169cdf0e10cSrcweir	# Creating directory array
2170cdf0e10cSrcweir	foreach my $destdir ( sort keys %alldirectoryhash )
2171cdf0e10cSrcweir	{
2172cdf0e10cSrcweir		$alldirectoryhash{$destdir}->{'modules'} = optimize_list($alldirectoryhash{$destdir}->{'modules'});
2173cdf0e10cSrcweir		push(@alldirectories, $alldirectoryhash{$destdir});
2174cdf0e10cSrcweir	}
2175cdf0e10cSrcweir
2176cdf0e10cSrcweir	return (\@alldirectories, \%alldirectoryhash);
2177cdf0e10cSrcweir}
2178cdf0e10cSrcweir
2179cdf0e10cSrcweir##################################
2180cdf0e10cSrcweir# Collecting directories: Part 2
2181cdf0e10cSrcweir##################################
2182cdf0e10cSrcweir
2183cdf0e10cSrcweirsub collect_directories_with_create_flag_from_directoryarray
2184cdf0e10cSrcweir{
2185cdf0e10cSrcweir	my ($directoryarrayref, $alldirectoryhash) = @_;
2186cdf0e10cSrcweir
2187cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::collect_directories_with_create_flag_from_directoryarray : $#{$directoryarrayref}"); }
2188cdf0e10cSrcweir
2189cdf0e10cSrcweir	my $alreadyincluded = 0;
2190cdf0e10cSrcweir	my @alldirectories = ();
2191cdf0e10cSrcweir
2192cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$directoryarrayref}; $i++ )
2193cdf0e10cSrcweir	{
2194cdf0e10cSrcweir		my $onedir = ${$directoryarrayref}[$i];
2195cdf0e10cSrcweir		my $styles = "";
2196cdf0e10cSrcweir		$newdirincluded = 0;
2197cdf0e10cSrcweir
2198cdf0e10cSrcweir		if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
2199cdf0e10cSrcweir
2200cdf0e10cSrcweir		if ( $styles =~ /\bCREATE\b/ )
2201cdf0e10cSrcweir		{
2202cdf0e10cSrcweir			my $directoryname = "";
2203cdf0e10cSrcweir
2204cdf0e10cSrcweir			if ( $onedir->{'HostName'} ) { $directoryname = $onedir->{'HostName'}; }
2205cdf0e10cSrcweir			else { installer::exiter::exit_program("ERROR: No directory name (HostName) set for specified language in gid $onedir->{'gid'}", "collect_directories_with_create_flag_from_directoryarray"); }
2206cdf0e10cSrcweir
2207cdf0e10cSrcweir			$alreadyincluded = 0;
2208cdf0e10cSrcweir			if ( exists($alldirectoryhash->{$directoryname}) ) { $alreadyincluded = 1; }
2209cdf0e10cSrcweir
2210cdf0e10cSrcweir			if (!($alreadyincluded))
2211cdf0e10cSrcweir			{
2212cdf0e10cSrcweir				my %directoryhash = ();
2213cdf0e10cSrcweir				$directoryhash{'HostName'} = $directoryname;
2214cdf0e10cSrcweir				$directoryhash{'specificlanguage'} = $onedir->{'specificlanguage'};
2215cdf0e10cSrcweir				# $directoryhash{'gid'} = $onedir->{'gid'};
2216cdf0e10cSrcweir				$directoryhash{'Dir'} = $onedir->{'gid'};
2217cdf0e10cSrcweir				$directoryhash{'Styles'} = $onedir->{'Styles'};
2218cdf0e10cSrcweir
2219cdf0e10cSrcweir				# saving also the modules
2220cdf0e10cSrcweir				if ( ! $onedir->{'modules'} ) { installer::exiter::exit_program("ERROR: No assigned modules found for directory $onedir->{'gid'}", "collect_directories_with_create_flag_from_directoryarray"); }
2221cdf0e10cSrcweir				$directoryhash{'modules'} = $onedir->{'modules'};
2222cdf0e10cSrcweir
2223cdf0e10cSrcweir				$alldirectoryhash->{$directoryname} = \%directoryhash;
2224cdf0e10cSrcweir				$newdirincluded = 1;
2225cdf0e10cSrcweir
2226cdf0e10cSrcweir				# Problem: The $destinationpath can be share/registry/schema/org/openoffice
2227cdf0e10cSrcweir				# but not all directories contain files and will be added to this list.
2228cdf0e10cSrcweir				# Therefore the path has to be analyzed.
2229cdf0e10cSrcweir
2230cdf0e10cSrcweir				while ( $directoryname =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )	# as long as the path contains slashes
2231cdf0e10cSrcweir				{
2232cdf0e10cSrcweir					$directoryname = $1;
2233cdf0e10cSrcweir
2234cdf0e10cSrcweir					$alreadyincluded = 0;
2235cdf0e10cSrcweir					if ( exists($alldirectoryhash->{$directoryname}) ) { $alreadyincluded = 1; }
2236cdf0e10cSrcweir
2237cdf0e10cSrcweir					if (!($alreadyincluded))
2238cdf0e10cSrcweir					{
2239cdf0e10cSrcweir						my %directoryhash = ();
2240cdf0e10cSrcweir
2241cdf0e10cSrcweir						$directoryhash{'HostName'} = $directoryname;
2242cdf0e10cSrcweir						$directoryhash{'specificlanguage'} = $onedir->{'specificlanguage'};
2243cdf0e10cSrcweir						$directoryhash{'Dir'} = $onedir->{'gid'};
2244cdf0e10cSrcweir						if ( ! $installer::globals::iswindowsbuild ) { $directoryhash{'Styles'} = "(CREATE)"; } # Exeception for Windows?
2245cdf0e10cSrcweir
2246cdf0e10cSrcweir						# saving also the modules
2247cdf0e10cSrcweir						$directoryhash{'modules'} = $onedir->{'modules'};
2248cdf0e10cSrcweir
2249cdf0e10cSrcweir						$alldirectoryhash->{$directoryname} = \%directoryhash;
2250cdf0e10cSrcweir						$newdirincluded = 1;
2251cdf0e10cSrcweir					}
2252cdf0e10cSrcweir					else
2253cdf0e10cSrcweir					{
2254cdf0e10cSrcweir						# Adding the modules to the module list!
2255cdf0e10cSrcweir						$alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
2256cdf0e10cSrcweir					}
2257cdf0e10cSrcweir				}
2258cdf0e10cSrcweir			}
2259cdf0e10cSrcweir			else
2260cdf0e10cSrcweir			{
2261cdf0e10cSrcweir				# Adding the modules to the module list!
2262cdf0e10cSrcweir				$alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
2263cdf0e10cSrcweir
2264cdf0e10cSrcweir				while ( $directoryname =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )	# as long as the path contains slashes
2265cdf0e10cSrcweir				{
2266cdf0e10cSrcweir					$directoryname = $1;
2267cdf0e10cSrcweir					# Adding the modules to the module list!
2268cdf0e10cSrcweir					$alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
2269cdf0e10cSrcweir				}
2270cdf0e10cSrcweir			}
2271cdf0e10cSrcweir		}
2272cdf0e10cSrcweir
2273cdf0e10cSrcweir		# Saving the styles for already added directories in function collect_directories_from_filesarray
2274cdf0e10cSrcweir
2275cdf0e10cSrcweir		if (( ! $newdirincluded ) && ( $styles ne "" ))
2276cdf0e10cSrcweir		{
2277cdf0e10cSrcweir			$styles =~ s/\bWORKSTATION\b//;
2278cdf0e10cSrcweir			$styles =~ s/\bCREATE\b//;
2279cdf0e10cSrcweir
2280cdf0e10cSrcweir			if (( ! ( $styles =~ /^\s*\(\s*\)\s*$/ )) && ( ! ( $styles =~ /^\s*\(\s*\,\s*\)\s*$/ )) && ( ! ( $styles =~ /^\s*$/ ))) # checking, if there are styles left
2281cdf0e10cSrcweir			{
2282cdf0e10cSrcweir				my $directoryname = "";
2283cdf0e10cSrcweir				if ( $onedir->{'HostName'} ) { $directoryname = $onedir->{'HostName'}; }
2284cdf0e10cSrcweir				else { installer::exiter::exit_program("ERROR: No directory name (HostName) set for specified language in gid $onedir->{'gid'}", "collect_directories_with_create_flag_from_directoryarray"); }
2285cdf0e10cSrcweir
2286cdf0e10cSrcweir				if ( exists($alldirectoryhash->{$directoryname}) )
2287cdf0e10cSrcweir				{
2288cdf0e10cSrcweir					$alldirectoryhash->{$directoryname}->{'Styles'} = $styles;
2289cdf0e10cSrcweir				}
2290cdf0e10cSrcweir			}
2291cdf0e10cSrcweir		}
2292cdf0e10cSrcweir	}
2293cdf0e10cSrcweir
2294cdf0e10cSrcweir	# Creating directory array
2295cdf0e10cSrcweir	foreach my $destdir ( sort keys %{$alldirectoryhash} )
2296cdf0e10cSrcweir	{
2297cdf0e10cSrcweir		$alldirectoryhash->{$destdir}->{'modules'} = optimize_list($alldirectoryhash->{$destdir}->{'modules'});
2298cdf0e10cSrcweir		push(@alldirectories, $alldirectoryhash->{$destdir});
2299cdf0e10cSrcweir	}
2300cdf0e10cSrcweir
2301cdf0e10cSrcweir	return (\@alldirectories, \%alldirectoryhash);
2302cdf0e10cSrcweir}
2303cdf0e10cSrcweir
2304cdf0e10cSrcweir#################################################
2305cdf0e10cSrcweir# Determining the destination file of a link
2306cdf0e10cSrcweir#################################################
2307cdf0e10cSrcweir
2308cdf0e10cSrcweirsub get_destination_file_path_for_links
2309cdf0e10cSrcweir{
2310cdf0e10cSrcweir	my ($linksarrayref, $filesarrayref) = @_;
2311cdf0e10cSrcweir
2312cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_destination_file_path_for_links : $#{$linksarrayref} : $#{$filesarrayref}"); }
2313cdf0e10cSrcweir
2314cdf0e10cSrcweir	my $infoline;
2315cdf0e10cSrcweir
2316cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
2317cdf0e10cSrcweir	{
2318cdf0e10cSrcweir		my $fileid = "";
2319cdf0e10cSrcweir		my $onelink = ${$linksarrayref}[$i];
2320cdf0e10cSrcweir		if ( $onelink->{'FileID'} ) { $fileid = $onelink->{'FileID'}; }
2321cdf0e10cSrcweir
2322cdf0e10cSrcweir		if (!( $fileid eq "" ))
2323cdf0e10cSrcweir		{
2324cdf0e10cSrcweir			my $foundfile = 0;
2325cdf0e10cSrcweir
2326cdf0e10cSrcweir			for ( my $j = 0; $j <= $#{$filesarrayref}; $j++ )
2327cdf0e10cSrcweir			{
2328cdf0e10cSrcweir				my $onefile = ${$filesarrayref}[$j];
2329cdf0e10cSrcweir				my $filegid = $onefile->{'gid'};
2330cdf0e10cSrcweir
2331cdf0e10cSrcweir				if ( $filegid eq $fileid )
2332cdf0e10cSrcweir				{
2333cdf0e10cSrcweir					$foundfile = 1;
2334cdf0e10cSrcweir					$onelink->{'destinationfile'} = $onefile->{'destination'};
2335cdf0e10cSrcweir					last;
2336cdf0e10cSrcweir				}
2337cdf0e10cSrcweir			}
2338cdf0e10cSrcweir
2339cdf0e10cSrcweir			if (!($foundfile))
2340cdf0e10cSrcweir			{
2341cdf0e10cSrcweir				$infoline = "Warning: FileID $fileid for Link $onelink->{'gid'} not found!\n";
2342cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
2343cdf0e10cSrcweir			}
2344cdf0e10cSrcweir		}
2345cdf0e10cSrcweir	}
2346cdf0e10cSrcweir
2347cdf0e10cSrcweir	$infoline = "\n";
2348cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
2349cdf0e10cSrcweir}
2350cdf0e10cSrcweir
2351cdf0e10cSrcweir#################################################
2352cdf0e10cSrcweir# Determining the destination link of a link
2353cdf0e10cSrcweir#################################################
2354cdf0e10cSrcweir
2355cdf0e10cSrcweirsub get_destination_link_path_for_links
2356cdf0e10cSrcweir{
2357cdf0e10cSrcweir	my ($linksarrayref) = @_;
2358cdf0e10cSrcweir
2359cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_destination_link_path_for_links : $#{$linksarrayref}"); }
2360cdf0e10cSrcweir
2361cdf0e10cSrcweir	my $infoline;
2362cdf0e10cSrcweir
2363cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
2364cdf0e10cSrcweir	{
2365cdf0e10cSrcweir		my $shortcutid = "";
2366cdf0e10cSrcweir		my $onelink = ${$linksarrayref}[$i];
2367cdf0e10cSrcweir		if ( $onelink->{'ShortcutID'} ) { $shortcutid = $onelink->{'ShortcutID'}; }
2368cdf0e10cSrcweir
2369cdf0e10cSrcweir		if (!( $shortcutid eq "" ))
2370cdf0e10cSrcweir		{
2371cdf0e10cSrcweir			my $foundlink = 0;
2372cdf0e10cSrcweir
2373cdf0e10cSrcweir			for ( my $j = 0; $j <= $#{$linksarrayref}; $j++ )
2374cdf0e10cSrcweir			{
2375cdf0e10cSrcweir				my $destlink = ${$linksarrayref}[$j];
2376cdf0e10cSrcweir				$shortcutgid = $destlink->{'gid'};
2377cdf0e10cSrcweir
2378cdf0e10cSrcweir				if ( $shortcutgid eq $shortcutid )
2379cdf0e10cSrcweir				{
2380cdf0e10cSrcweir					$foundlink = 1;
2381cdf0e10cSrcweir					$onelink->{'destinationfile'} = $destlink->{'destination'};		# making key 'destinationfile'
2382cdf0e10cSrcweir					last;
2383cdf0e10cSrcweir				}
2384cdf0e10cSrcweir			}
2385cdf0e10cSrcweir
2386cdf0e10cSrcweir			if (!($foundlink))
2387cdf0e10cSrcweir			{
2388cdf0e10cSrcweir				$infoline = "Warning: ShortcutID $shortcutid for Link $onelink->{'gid'} not found!\n";
2389cdf0e10cSrcweir				push( @installer::globals::logfileinfo, $infoline);
2390cdf0e10cSrcweir			}
2391cdf0e10cSrcweir		}
2392cdf0e10cSrcweir	}
2393cdf0e10cSrcweir
2394cdf0e10cSrcweir	$infoline = "\n";
2395cdf0e10cSrcweir	push( @installer::globals::logfileinfo, $infoline);
2396cdf0e10cSrcweir}
2397cdf0e10cSrcweir
2398cdf0e10cSrcweir###################################################################################
2399cdf0e10cSrcweir# Items with flag WORKSTATION are not needed (here: links and configurationitems)
2400cdf0e10cSrcweir###################################################################################
2401cdf0e10cSrcweir
2402cdf0e10cSrcweirsub remove_workstation_only_items
2403cdf0e10cSrcweir{
2404cdf0e10cSrcweir	my ($itemarrayref) = @_;
2405cdf0e10cSrcweir
2406cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::remove_workstation_only_items : $#{$itemarrayref}"); }
2407cdf0e10cSrcweir
2408cdf0e10cSrcweir	my @newitemarray = ();
2409cdf0e10cSrcweir
2410cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ )
2411cdf0e10cSrcweir	{
2412cdf0e10cSrcweir		my $oneitem = ${$itemarrayref}[$i];
2413cdf0e10cSrcweir		my $styles = $oneitem->{'Styles'};
2414cdf0e10cSrcweir
2415cdf0e10cSrcweir		if (( $styles =~ /\bWORKSTATION\b/ ) &&
2416cdf0e10cSrcweir			(!( $styles =~ /\bNETWORK\b/ )) &&
2417cdf0e10cSrcweir			(!( $styles =~ /\bSTANDALONE\b/ )))
2418cdf0e10cSrcweir		{
2419cdf0e10cSrcweir			next;	# removing this link, it is only needed for a workstation installation
2420cdf0e10cSrcweir		}
2421cdf0e10cSrcweir
2422cdf0e10cSrcweir		push(@newitemarray, $oneitem);
2423cdf0e10cSrcweir	}
2424cdf0e10cSrcweir
2425cdf0e10cSrcweir	return \@newitemarray;
2426cdf0e10cSrcweir}
2427cdf0e10cSrcweir
2428cdf0e10cSrcweir################################################
2429cdf0e10cSrcweir# Resolving relative path in links
2430cdf0e10cSrcweir################################################
2431cdf0e10cSrcweir
2432cdf0e10cSrcweirsub resolve_links_with_flag_relative
2433cdf0e10cSrcweir{
2434cdf0e10cSrcweir	my ($linksarrayref) = @_;
2435cdf0e10cSrcweir
2436cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::resolve_links_with_flag_relative : $#{$linksarrayref}"); }
2437cdf0e10cSrcweir
2438cdf0e10cSrcweir	# Before this step is:
2439cdf0e10cSrcweir	# destination=program/libsalhelperC52.so.3, this will be the name of the link
2440cdf0e10cSrcweir	# destinationfile=program/libsalhelperC52.so.3, this will be the linked file or name
2441cdf0e10cSrcweir	# If the flag RELATIVE is set, the pathes have to be analyzed. If the flag is not set
2442cdf0e10cSrcweir	# (this will not occur in the future?) destinationfile has to be an absolute path name
2443cdf0e10cSrcweir
2444cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
2445cdf0e10cSrcweir	{
2446cdf0e10cSrcweir		my $onelink = ${$linksarrayref}[$i];
2447cdf0e10cSrcweir		my $styles = $onelink->{'Styles'};
2448cdf0e10cSrcweir
2449cdf0e10cSrcweir		if ( $styles =~ /\bRELATIVE\b/ )
2450cdf0e10cSrcweir		{
2451cdf0e10cSrcweir			# ToDo: This is only a simple not sufficient mechanism
2452cdf0e10cSrcweir
2453cdf0e10cSrcweir			my $destination = $onelink->{'destination'};
2454cdf0e10cSrcweir			my $destinationfile = $onelink->{'destinationfile'};
2455cdf0e10cSrcweir
2456cdf0e10cSrcweir			my $destinationpath = $destination;
2457cdf0e10cSrcweir
2458cdf0e10cSrcweir			installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationpath);
2459cdf0e10cSrcweir
2460cdf0e10cSrcweir			my $destinationfilepath = $destinationfile;
2461cdf0e10cSrcweir
2462cdf0e10cSrcweir			# it is possible, that the destinationfile is no longer part of the files collector
2463cdf0e10cSrcweir			if ($destinationfilepath) { installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationfilepath); }
2464cdf0e10cSrcweir			else { $destinationfilepath = ""; }
2465cdf0e10cSrcweir
2466cdf0e10cSrcweir			if ( $destinationpath eq $destinationfilepath )
2467cdf0e10cSrcweir			{
2468cdf0e10cSrcweir				# link and file are in the same directory
2469cdf0e10cSrcweir				# Therefore the path of the file can be removed
2470cdf0e10cSrcweir
2471cdf0e10cSrcweir				my $newdestinationfile = $destinationfile;
2472cdf0e10cSrcweir				installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$newdestinationfile);
2473cdf0e10cSrcweir
2474cdf0e10cSrcweir				$onelink->{'destinationfile'} = $newdestinationfile;
2475cdf0e10cSrcweir			}
2476cdf0e10cSrcweir		}
2477cdf0e10cSrcweir	}
2478cdf0e10cSrcweir}
2479cdf0e10cSrcweir
2480cdf0e10cSrcweir########################################################################
2481cdf0e10cSrcweir# This function is a helper of function "assigning_modules_to_items"
2482cdf0e10cSrcweir########################################################################
2483cdf0e10cSrcweir
2484cdf0e10cSrcweirsub insert_for_item ($$$)
2485cdf0e10cSrcweir{
2486cdf0e10cSrcweir	my ($hash, $item, $id) = @_;
2487cdf0e10cSrcweir
2488cdf0e10cSrcweir	# print STDERR "insert '$id' for '$item'\n";
2489cdf0e10cSrcweir	if (!defined $hash->{$item})
2490cdf0e10cSrcweir	{
2491cdf0e10cSrcweir		my @gids = ();
2492cdf0e10cSrcweir		$hash->{$item} = \@gids;
2493cdf0e10cSrcweir	}
2494cdf0e10cSrcweir	my $gid_list = $hash->{$item};
2495cdf0e10cSrcweir	push @{$gid_list}, $id;
2496cdf0e10cSrcweir	$hash->{$item} = $gid_list;
2497cdf0e10cSrcweir}
2498cdf0e10cSrcweir
2499cdf0e10cSrcweirsub build_modulegids_table
2500cdf0e10cSrcweir{
2501cdf0e10cSrcweir	my ($modulesref, $itemname) = @_;
2502cdf0e10cSrcweir
2503cdf0e10cSrcweir	my %module_lookup_table = ();
2504cdf0e10cSrcweir
2505cdf0e10cSrcweir	# build map of item names to list of respective module gids
2506cdf0e10cSrcweir	# containing these items
2507cdf0e10cSrcweir	for my $onemodule (@{$modulesref})
2508cdf0e10cSrcweir	{
2509cdf0e10cSrcweir		next if ( ! defined $onemodule->{$itemname} );
2510cdf0e10cSrcweir		# these are the items contained in this module
2511cdf0e10cSrcweir		# eg. Files = (gid_a_b_c,gid_d_e_f)
2512cdf0e10cSrcweir		my $module_gids = $onemodule->{$itemname};
2513cdf0e10cSrcweir
2514cdf0e10cSrcweir		# prune outer brackets
2515cdf0e10cSrcweir		$module_gids =~ s|^\s*\(||g;
2516cdf0e10cSrcweir		$module_gids =~ s|\)\s*$||g;
2517cdf0e10cSrcweir		for my $id (split (/,/, $module_gids))
2518cdf0e10cSrcweir		{
2519cdf0e10cSrcweir			chomp $id;
2520cdf0e10cSrcweir			insert_for_item(\%module_lookup_table, lc ($id), $onemodule->{'gid'});
2521cdf0e10cSrcweir		}
2522cdf0e10cSrcweir	}
2523cdf0e10cSrcweir
2524cdf0e10cSrcweir	return \%module_lookup_table;
2525cdf0e10cSrcweir}
2526cdf0e10cSrcweir
2527cdf0e10cSrcweir########################################################################
2528cdf0e10cSrcweir# Items like files do not know their modules
2529cdf0e10cSrcweir# This function is a helper of function "assigning_modules_to_items"
2530cdf0e10cSrcweir########################################################################
2531cdf0e10cSrcweir
2532cdf0e10cSrcweirsub get_string_of_modulegids_for_itemgid
2533cdf0e10cSrcweir{
2534cdf0e10cSrcweir	my ($module_lookup_table, $modulesref, $itemgid, $itemname) = @_;
2535cdf0e10cSrcweir
2536cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::get_string_of_modulegids_for_itemgid : $#{$modulesref} : $itemgid : $itemname"); }
2537cdf0e10cSrcweir
2538cdf0e10cSrcweir	my $allmodules = "";
2539cdf0e10cSrcweir	my $haslanguagemodule = 0;
2540cdf0e10cSrcweir	my %foundmodules = ();
2541cdf0e10cSrcweir
2542cdf0e10cSrcweir	# print STDERR "lookup '" . lc($itemgid) . "'\n";
2543cdf0e10cSrcweir	my $gid_list = $module_lookup_table->{lc($itemgid)};
2544cdf0e10cSrcweir
2545cdf0e10cSrcweir	for my $gid (@{$gid_list})
2546cdf0e10cSrcweir	{
2547cdf0e10cSrcweir		$foundmodules{$gid} = 1;
2548cdf0e10cSrcweir		$allmodules = $allmodules . "," . $gid;
2549cdf0e10cSrcweir		# Is this module a language module? This info should be stored at the file.
2550cdf0e10cSrcweir		if ( exists($installer::globals::alllangmodules{$gid}) ) { $haslanguagemodule = 1; }
2551cdf0e10cSrcweir 	}
2552cdf0e10cSrcweir
2553cdf0e10cSrcweir	$allmodules =~ s/^\s*\,//;	# removing leading comma
2554cdf0e10cSrcweir
2555cdf0e10cSrcweir	# Check: All modules or no module must have flag LANGUAGEMODULE
2556cdf0e10cSrcweir	if ( $haslanguagemodule )
2557cdf0e10cSrcweir	{
2558cdf0e10cSrcweir		my $isreallylanguagemodule = installer::worker::key_in_a_is_also_key_in_b(\%foundmodules, \%installer::globals::alllangmodules);
2559cdf0e10cSrcweir		if ( ! $isreallylanguagemodule ) { installer::exiter::exit_program("ERROR: \"$itemgid\" is assigned to modules with flag \"LANGUAGEMODULE\" and also to modules without this flag! Modules: $allmodules", "get_string_of_modulegids_for_itemgid");  }
2560cdf0e10cSrcweir	}
2561cdf0e10cSrcweir
2562cdf0e10cSrcweir	# print STDERR "get_string_for_itemgid ($itemgid, $itemname) => $allmodules, $haslanguagemodule\n";
2563cdf0e10cSrcweir
2564cdf0e10cSrcweir	return ($allmodules, $haslanguagemodule);
2565cdf0e10cSrcweir}
2566cdf0e10cSrcweir
2567cdf0e10cSrcweir########################################################
2568cdf0e10cSrcweir# Items like files do not know their modules
2569cdf0e10cSrcweir# This function add the {'modules'} to these items
2570cdf0e10cSrcweir########################################################
2571cdf0e10cSrcweir
2572cdf0e10cSrcweirsub assigning_modules_to_items
2573cdf0e10cSrcweir{
2574cdf0e10cSrcweir	my ($modulesref, $itemsref, $itemname) = @_;
2575cdf0e10cSrcweir
2576cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::assigning_modules_to_items : $#{$modulesref} : $#{$itemsref} : $itemname"); }
2577cdf0e10cSrcweir
2578cdf0e10cSrcweir	my $infoline = "";
2579cdf0e10cSrcweir	my $languageassignmenterror = 0;
2580cdf0e10cSrcweir	my @languageassignmenterrors = ();
2581cdf0e10cSrcweir
2582cdf0e10cSrcweir	my $module_lookup_table = build_modulegids_table($modulesref, $itemname);
2583cdf0e10cSrcweir
2584cdf0e10cSrcweir	for my $oneitem (@{$itemsref})
2585cdf0e10cSrcweir	{
2586cdf0e10cSrcweir		my $itemgid = $oneitem->{'gid'};
2587cdf0e10cSrcweir
2588cdf0e10cSrcweir		my $styles = "";
2589cdf0e10cSrcweir		if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
2590cdf0e10cSrcweir		if (( $itemname eq "Dirs" ) && ( ! ( $styles =~ /\bCREATE\b/ ))) { next; }
2591cdf0e10cSrcweir
2592cdf0e10cSrcweir		if ( $itemgid eq "" )
2593cdf0e10cSrcweir		{
2594cdf0e10cSrcweir			installer::exiter::exit_program("ERROR in item collection: No gid for item $oneitem->{'Name'}", "assigning_modules_to_items");
2595cdf0e10cSrcweir		}
2596cdf0e10cSrcweir
2597cdf0e10cSrcweir		# every item can belong to many modules
2598cdf0e10cSrcweir
2599cdf0e10cSrcweir		my ($modulegids, $haslanguagemodule) = get_string_of_modulegids_for_itemgid($module_lookup_table, $modulesref, $itemgid, $itemname);
2600cdf0e10cSrcweir
2601cdf0e10cSrcweir		if ($modulegids eq "")
2602cdf0e10cSrcweir		{
2603cdf0e10cSrcweir			installer::exiter::exit_program("ERROR in file collection: No module found for $itemname $itemgid", "assigning_modules_to_items");
2604cdf0e10cSrcweir		}
2605cdf0e10cSrcweir
2606cdf0e10cSrcweir		$oneitem->{'modules'} = $modulegids;
2607cdf0e10cSrcweir		$oneitem->{'haslanguagemodule'} = $haslanguagemodule;
2608cdf0e10cSrcweir
2609cdf0e10cSrcweir		# Important check: "ismultilingual" and "haslanguagemodule" must have the same value !
2610cdf0e10cSrcweir		if (( $oneitem->{'ismultilingual'} ) && ( ! $oneitem->{'haslanguagemodule'} ))
2611cdf0e10cSrcweir		{
2612cdf0e10cSrcweir			$infoline = "Error: \"$oneitem->{'gid'}\" is multi lingual, but not in language pack (Assigned module: $modulegids)!\n";
2613cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
2614cdf0e10cSrcweir			push( @languageassignmenterrors, $infoline );
2615cdf0e10cSrcweir			$languageassignmenterror = 1;
2616cdf0e10cSrcweir		}
2617cdf0e10cSrcweir		if (( $oneitem->{'haslanguagemodule'} ) && ( ! $oneitem->{'ismultilingual'} ))
2618cdf0e10cSrcweir		{
2619cdf0e10cSrcweir			$infoline = "Error: \"$oneitem->{'gid'}\" is in language pack, but not multi lingual (Assigned module: $modulegids)!\n";
2620cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
2621cdf0e10cSrcweir			push( @languageassignmenterrors, $infoline );
2622cdf0e10cSrcweir			$languageassignmenterror = 1;
2623cdf0e10cSrcweir		}
2624cdf0e10cSrcweir	}
2625cdf0e10cSrcweir
2626cdf0e10cSrcweir	if ($languageassignmenterror)
2627cdf0e10cSrcweir	{
2628cdf0e10cSrcweir		for ( my $i = 0; $i <= $#languageassignmenterrors; $i++ ) { print "$languageassignmenterrors[$i]"; }
2629cdf0e10cSrcweir		installer::exiter::exit_program("ERROR: Incorrect assignments for language packs.", "assigning_modules_to_items");
2630cdf0e10cSrcweir	}
2631cdf0e10cSrcweir
2632cdf0e10cSrcweir}
2633cdf0e10cSrcweir
2634cdf0e10cSrcweir#################################################################################################
2635cdf0e10cSrcweir# Root path (for instance /opt/openofficeorg20) needs to be added to directories, files and links
2636cdf0e10cSrcweir#################################################################################################
2637cdf0e10cSrcweir
2638cdf0e10cSrcweirsub add_rootpath_to_directories
2639cdf0e10cSrcweir{
2640cdf0e10cSrcweir	my ($dirsref, $rootpath) = @_;
2641cdf0e10cSrcweir
2642cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_directories : $#{$dirsref} : $rootpath"); }
2643cdf0e10cSrcweir
2644cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
2645cdf0e10cSrcweir	{
2646cdf0e10cSrcweir		my $onedir = ${$dirsref}[$i];
2647cdf0e10cSrcweir		my $dir = "";
2648cdf0e10cSrcweir
2649cdf0e10cSrcweir		if ( $onedir->{'Dir'} ) { $dir = $onedir->{'Dir'}; }
2650cdf0e10cSrcweir
2651cdf0e10cSrcweir		if (!($dir =~ /\bPREDEFINED_/ ))
2652cdf0e10cSrcweir		{
2653cdf0e10cSrcweir			my $hostname = $onedir->{'HostName'};
2654cdf0e10cSrcweir			$hostname = $rootpath . $installer::globals::separator . $hostname;
2655cdf0e10cSrcweir			$onedir->{'HostName'} = $hostname;
2656cdf0e10cSrcweir		}
2657cdf0e10cSrcweir
2658cdf0e10cSrcweir		# added
2659cdf0e10cSrcweir
2660cdf0e10cSrcweir		if ( $dir =~ /\bPREDEFINED_PROGDIR\b/ )
2661cdf0e10cSrcweir		{
2662cdf0e10cSrcweir			my $hostname = $onedir->{'HostName'};
2663cdf0e10cSrcweir			if ( $hostname eq "" ) { $onedir->{'HostName'} = $rootpath; }
2664cdf0e10cSrcweir			else { $onedir->{'HostName'} = $rootpath . $installer::globals::separator . $hostname; }
2665cdf0e10cSrcweir		}
2666cdf0e10cSrcweir	}
2667cdf0e10cSrcweir}
2668cdf0e10cSrcweir
2669cdf0e10cSrcweirsub add_rootpath_to_files
2670cdf0e10cSrcweir{
2671cdf0e10cSrcweir	my ($filesref, $rootpath) = @_;
2672cdf0e10cSrcweir
2673cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_files : $#{$filesref} : $rootpath"); }
2674cdf0e10cSrcweir
2675cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2676cdf0e10cSrcweir	{
2677cdf0e10cSrcweir		my $onefile = ${$filesref}[$i];
2678cdf0e10cSrcweir		my $destination = $onefile->{'destination'};
2679cdf0e10cSrcweir		$destination = $rootpath . $installer::globals::separator . $destination;
2680cdf0e10cSrcweir		$onefile->{'destination'} = $destination;
2681cdf0e10cSrcweir	}
2682cdf0e10cSrcweir}
2683cdf0e10cSrcweir
2684cdf0e10cSrcweirsub add_rootpath_to_links
2685cdf0e10cSrcweir{
2686cdf0e10cSrcweir	my ($linksref, $rootpath) = @_;
2687cdf0e10cSrcweir
2688cdf0e10cSrcweir	if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::scriptitems::add_rootpath_to_links : $#{$linksref} : $rootpath"); }
2689cdf0e10cSrcweir
2690cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$linksref}; $i++ )
2691cdf0e10cSrcweir	{
2692cdf0e10cSrcweir		my $onelink = ${$linksref}[$i];
2693cdf0e10cSrcweir		my $styles = $onelink->{'Styles'};
2694cdf0e10cSrcweir
2695cdf0e10cSrcweir		my $destination = $onelink->{'destination'};
2696cdf0e10cSrcweir		$destination = $rootpath . $installer::globals::separator . $destination;
2697cdf0e10cSrcweir		$onelink->{'destination'} = $destination;
2698cdf0e10cSrcweir
2699cdf0e10cSrcweir		if (!($styles =~ /\bRELATIVE\b/ )) # for absolute links
2700cdf0e10cSrcweir		{
2701cdf0e10cSrcweir			my $destinationfile = $onelink->{'destinationfile'};
2702cdf0e10cSrcweir			$destinationfile = $rootpath . $installer::globals::separator . $destinationfile;
2703cdf0e10cSrcweir			$onelink->{'destinationfile'} = $destinationfile;
2704cdf0e10cSrcweir		}
2705cdf0e10cSrcweir	}
2706cdf0e10cSrcweir}
2707cdf0e10cSrcweir
2708cdf0e10cSrcweir#################################################################################
2709cdf0e10cSrcweir# Collecting all parent gids
2710cdf0e10cSrcweir#################################################################################
2711cdf0e10cSrcweir
2712cdf0e10cSrcweirsub collect_all_parent_feature
2713cdf0e10cSrcweir{
2714cdf0e10cSrcweir	my ($modulesref) = @_;
2715cdf0e10cSrcweir
2716cdf0e10cSrcweir	my @allparents = ();
2717cdf0e10cSrcweir
2718cdf0e10cSrcweir	my $found_root_module = 0;
2719cdf0e10cSrcweir
2720cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2721cdf0e10cSrcweir	{
2722cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2723cdf0e10cSrcweir
2724cdf0e10cSrcweir		my $parentgid = "";
2725cdf0e10cSrcweir		if ( $onefeature->{'ParentID'} )
2726cdf0e10cSrcweir		{
2727cdf0e10cSrcweir			$parentgid = $onefeature->{'ParentID'};
2728cdf0e10cSrcweir		}
2729cdf0e10cSrcweir
2730cdf0e10cSrcweir		if ( $parentgid ne "" )
2731cdf0e10cSrcweir		{
2732cdf0e10cSrcweir			if (! installer::existence::exists_in_array($parentgid, \@allparents))
2733cdf0e10cSrcweir			{
2734cdf0e10cSrcweir				push(@allparents, $parentgid);
2735cdf0e10cSrcweir			}
2736cdf0e10cSrcweir		}
2737cdf0e10cSrcweir
2738cdf0e10cSrcweir		# Setting the global root module
2739cdf0e10cSrcweir
2740cdf0e10cSrcweir		if ( $parentgid eq "" )
2741cdf0e10cSrcweir		{
2742cdf0e10cSrcweir			if ( $found_root_module ) { installer::exiter::exit_program("ERROR: Only one module without ParentID or with empty ParentID allowed ($installer::globals::rootmodulegid, $onefeature->{'gid'}).", "collect_all_parent_feature"); }
2743cdf0e10cSrcweir			$installer::globals::rootmodulegid = $onefeature->{'gid'};
2744cdf0e10cSrcweir			$found_root_module = 1;
2745cdf0e10cSrcweir			$infoline = "Setting Root Module: $installer::globals::rootmodulegid\n";
2746cdf0e10cSrcweir			push( @installer::globals::globallogfileinfo, $infoline);
2747cdf0e10cSrcweir		}
2748cdf0e10cSrcweir
2749cdf0e10cSrcweir		if ( ! $found_root_module ) { installer::exiter::exit_program("ERROR: Could not define root module. No module without ParentID or with empty ParentID exists.", "collect_all_parent_feature"); }
2750cdf0e10cSrcweir
2751cdf0e10cSrcweir	}
2752cdf0e10cSrcweir
2753cdf0e10cSrcweir	return \@allparents;
2754cdf0e10cSrcweir}
2755cdf0e10cSrcweir
2756cdf0e10cSrcweir#################################################################################
2757cdf0e10cSrcweir# Checking for every feature, whether it has children
2758cdf0e10cSrcweir#################################################################################
2759cdf0e10cSrcweir
2760cdf0e10cSrcweirsub set_children_flag
2761cdf0e10cSrcweir{
2762cdf0e10cSrcweir	my ($modulesref) = @_;
2763cdf0e10cSrcweir
2764cdf0e10cSrcweir	my $allparents = collect_all_parent_feature($modulesref);
2765cdf0e10cSrcweir
2766cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2767cdf0e10cSrcweir	{
2768cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2769cdf0e10cSrcweir		my $gid = $onefeature->{'gid'};
2770cdf0e10cSrcweir
2771cdf0e10cSrcweir		# is this gid a parent?
2772cdf0e10cSrcweir
2773cdf0e10cSrcweir		if ( installer::existence::exists_in_array($gid, $allparents) )
2774cdf0e10cSrcweir		{
2775cdf0e10cSrcweir			$onefeature->{'has_children'} = 1;
2776cdf0e10cSrcweir		}
2777cdf0e10cSrcweir		else
2778cdf0e10cSrcweir		{
2779cdf0e10cSrcweir			$onefeature->{'has_children'} = 0;
2780cdf0e10cSrcweir		}
2781cdf0e10cSrcweir	}
2782cdf0e10cSrcweir}
2783cdf0e10cSrcweir
2784cdf0e10cSrcweir#################################################################################
2785cdf0e10cSrcweir# All modules, that use a template module, do now get the assignments of
2786cdf0e10cSrcweir# the template module.
2787cdf0e10cSrcweir#################################################################################
2788cdf0e10cSrcweir
2789cdf0e10cSrcweirsub resolve_assigned_modules
2790cdf0e10cSrcweir{
2791cdf0e10cSrcweir	my ($modulesref) = @_;
2792cdf0e10cSrcweir
2793cdf0e10cSrcweir	# collecting all template modules
2794cdf0e10cSrcweir
2795cdf0e10cSrcweir	my %directaccess = ();
2796cdf0e10cSrcweir
2797cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2798cdf0e10cSrcweir	{
2799cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2800cdf0e10cSrcweir		my $styles = "";
2801cdf0e10cSrcweir		if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2802cdf0e10cSrcweir		if ( $styles =~ /\bTEMPLATEMODULE\b/ ) { $directaccess{$onefeature->{'gid'}} = $onefeature; }
2803cdf0e10cSrcweir
2804cdf0e10cSrcweir		# also looking for module with flag ROOT_BRAND_PACKAGE, to save is for further usage
2805cdf0e10cSrcweir		if ( $styles =~ /\bROOT_BRAND_PACKAGE\b/ )
2806cdf0e10cSrcweir		{
2807cdf0e10cSrcweir			$installer::globals::rootbrandpackage = $onefeature->{'gid'};
2808cdf0e10cSrcweir			$installer::globals::rootbrandpackageset = 1;
2809cdf0e10cSrcweir		}
2810cdf0e10cSrcweir	}
2811cdf0e10cSrcweir
2812cdf0e10cSrcweir	# looking, where template modules are assigned
2813cdf0e10cSrcweir
2814cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2815cdf0e10cSrcweir	{
2816cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2817cdf0e10cSrcweir		if ( $onefeature->{'Assigns'} )
2818cdf0e10cSrcweir		{
2819cdf0e10cSrcweir			my $templategid = $onefeature->{'Assigns'};
2820cdf0e10cSrcweir
2821cdf0e10cSrcweir			if ( ! exists($directaccess{$templategid}) )
2822cdf0e10cSrcweir			{
2823cdf0e10cSrcweir				installer::exiter::exit_program("ERROR: Did not find definition of assigned template module \"$templategid\"", "resolve_assigned_modules");
2824cdf0e10cSrcweir			}
2825cdf0e10cSrcweir
2826cdf0e10cSrcweir			# Currently no merging of Files, Dirs, ...
2827cdf0e10cSrcweir			# This has to be included here, if it is required
2828cdf0e10cSrcweir			my $item;
2829cdf0e10cSrcweir			foreach $item (@installer::globals::items_at_modules)
2830cdf0e10cSrcweir			{
2831cdf0e10cSrcweir				if ( exists($directaccess{$templategid}->{$item}) ) { $onefeature->{$item} = $directaccess{$templategid}->{$item}; }
2832cdf0e10cSrcweir			}
2833cdf0e10cSrcweir		}
2834cdf0e10cSrcweir	}
2835cdf0e10cSrcweir}
2836cdf0e10cSrcweir
2837cdf0e10cSrcweir#################################################################################
2838cdf0e10cSrcweir# Removing the template modules from the list, after all
2839cdf0e10cSrcweir# assignments are transferred to the "real" modules.
2840cdf0e10cSrcweir#################################################################################
2841cdf0e10cSrcweir
2842cdf0e10cSrcweirsub remove_template_modules
2843cdf0e10cSrcweir{
2844cdf0e10cSrcweir	my ($modulesref) = @_;
2845cdf0e10cSrcweir
2846cdf0e10cSrcweir	my @modules = ();
2847cdf0e10cSrcweir
2848cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2849cdf0e10cSrcweir	{
2850cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2851cdf0e10cSrcweir		my $styles = "";
2852cdf0e10cSrcweir		if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2853cdf0e10cSrcweir		if ( $styles =~ /\bTEMPLATEMODULE\b/ ) { next; }
2854cdf0e10cSrcweir
2855cdf0e10cSrcweir		push(@modules, $onefeature);
2856cdf0e10cSrcweir	}
2857cdf0e10cSrcweir
2858cdf0e10cSrcweir	return \@modules;
2859cdf0e10cSrcweir}
2860cdf0e10cSrcweir
2861cdf0e10cSrcweir#################################################################################
2862cdf0e10cSrcweir# Collecting all modules with flag LANGUAGEMODULE in a global
2863cdf0e10cSrcweir# collector.
2864cdf0e10cSrcweir#################################################################################
2865cdf0e10cSrcweir
2866cdf0e10cSrcweirsub collect_all_languagemodules
2867cdf0e10cSrcweir{
2868cdf0e10cSrcweir	my ($modulesref) = @_;
2869cdf0e10cSrcweir
2870cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2871cdf0e10cSrcweir	{
2872cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2873cdf0e10cSrcweir		my $styles = "";
2874cdf0e10cSrcweir		if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2875cdf0e10cSrcweir		if ( $styles =~ /\bLANGUAGEMODULE\b/ )
2876cdf0e10cSrcweir		{
2877cdf0e10cSrcweir			if ( ! exists($onefeature->{'Language'}) ) { installer::exiter::exit_program("ERROR: \"$onefeature->{'gid'}\" has flag LANGUAGEMODULE, but does not know its language!", "collect_all_languagemodules"); }
2878cdf0e10cSrcweir			$installer::globals::alllangmodules{$onefeature->{'gid'}} = $onefeature->{'Language'};
2879cdf0e10cSrcweir			# Collecting also the english names, that are used for nsis unpack directory for language packs
2880cdf0e10cSrcweir			my $lang = $onefeature->{'Language'};
2881cdf0e10cSrcweir			my $name = "";
2882cdf0e10cSrcweir			foreach my $localkey ( keys %{$onefeature} )
2883cdf0e10cSrcweir			{
2884cdf0e10cSrcweir				if ( $localkey =~ /^\s*Name\s*\(\s*en-US\s*\)\s*$/ )
2885cdf0e10cSrcweir				{
2886cdf0e10cSrcweir					$installer::globals::all_english_languagestrings{$lang} = $onefeature->{$localkey};
2887cdf0e10cSrcweir				}
2888cdf0e10cSrcweir			}
2889cdf0e10cSrcweir		}
2890cdf0e10cSrcweir	}
2891cdf0e10cSrcweir}
2892cdf0e10cSrcweir
2893cdf0e10cSrcweir#################################################################################
2894cdf0e10cSrcweir# Selecting from all collected english language strings those, that are really
2895cdf0e10cSrcweir# required in this installation set.
2896cdf0e10cSrcweir#################################################################################
2897cdf0e10cSrcweir
2898cdf0e10cSrcweirsub select_required_language_strings
2899cdf0e10cSrcweir{
2900cdf0e10cSrcweir	my ($modulesref) = @_;
2901cdf0e10cSrcweir
2902cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2903cdf0e10cSrcweir	{
2904cdf0e10cSrcweir		my $onefeature = ${$modulesref}[$i];
2905cdf0e10cSrcweir		my $styles = "";
2906cdf0e10cSrcweir		if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2907cdf0e10cSrcweir		if ( $styles =~ /\bLANGUAGEMODULE\b/ )
2908cdf0e10cSrcweir		{
2909cdf0e10cSrcweir			if ( ! exists($onefeature->{'Language'}) ) { installer::exiter::exit_program("ERROR: \"$onefeature->{'gid'}\" has flag LANGUAGEMODULE, but does not know its language!", "select_required_language_strings"); }
2910cdf0e10cSrcweir			my $lang = $onefeature->{'Language'};
2911cdf0e10cSrcweir
2912cdf0e10cSrcweir			if (( exists($installer::globals::all_english_languagestrings{$lang}) ) && ( ! exists($installer::globals::all_required_english_languagestrings{$lang}) ))
2913cdf0e10cSrcweir			{
2914cdf0e10cSrcweir				$installer::globals::all_required_english_languagestrings{$lang} = $installer::globals::all_english_languagestrings{$lang};
2915cdf0e10cSrcweir			}
2916cdf0e10cSrcweir		}
2917cdf0e10cSrcweir	}
2918cdf0e10cSrcweir}
2919cdf0e10cSrcweir
2920cdf0e10cSrcweir#####################################################################################
2921cdf0e10cSrcweir# Unixlinks are not always required. For Linux RPMs and Solaris Packages they are
2922cdf0e10cSrcweir# created dynamically. Exception: For package formats "installed" or "archive".
2923cdf0e10cSrcweir# In scp2 this unixlinks have the flag LAYERLINK.
2924cdf0e10cSrcweir#####################################################################################
2925cdf0e10cSrcweir
2926cdf0e10cSrcweirsub filter_layerlinks_from_unixlinks
2927cdf0e10cSrcweir{
2928cdf0e10cSrcweir	my ( $unixlinksref ) = @_;
2929cdf0e10cSrcweir
2930cdf0e10cSrcweir	my @alllinks = ();
2931cdf0e10cSrcweir
2932cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$unixlinksref}; $i++ )
2933cdf0e10cSrcweir	{
2934cdf0e10cSrcweir		my $isrequired = 1;
2935cdf0e10cSrcweir
2936cdf0e10cSrcweir		my $onelink = ${$unixlinksref}[$i];
2937cdf0e10cSrcweir		my $styles = "";
2938cdf0e10cSrcweir		if ( $onelink->{'Styles'} ) { $styles = $onelink->{'Styles'}; }
2939cdf0e10cSrcweir
2940cdf0e10cSrcweir		if ( $styles =~ /\bLAYERLINK\b/ )
2941cdf0e10cSrcweir		{
2942cdf0e10cSrcweir			# Platforms, that do not need the layer links
2943cdf0e10cSrcweir			if (( $installer::globals::islinuxrpmbuild ) || ( $installer::globals::issolarispkgbuild ))
2944cdf0e10cSrcweir			{
2945cdf0e10cSrcweir				$isrequired = 0;
2946cdf0e10cSrcweir			}
2947cdf0e10cSrcweir
2948cdf0e10cSrcweir			# Package formats, that need the layer link (platform independent)
2949cdf0e10cSrcweir			if (( $installer::globals::packageformat eq "installed" ) || ( $installer::globals::packageformat eq "archive" ))
2950cdf0e10cSrcweir			{
2951cdf0e10cSrcweir				$isrequired = 1;
2952cdf0e10cSrcweir			}
2953cdf0e10cSrcweir		}
2954cdf0e10cSrcweir
2955cdf0e10cSrcweir		if ( $isrequired ) { push(@alllinks, $onelink); }
2956cdf0e10cSrcweir	}
2957cdf0e10cSrcweir
2958cdf0e10cSrcweir	return \@alllinks;
2959cdf0e10cSrcweir}
2960cdf0e10cSrcweir
2961cdf0e10cSrcweir1;
2962