solenv/bin/modules/installer/scriptitems.pm

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