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