solenv/bin/modules/installer/scriptitems.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::scriptitems;
  20
  21 use installer::converter;
  22 use installer::exiter;
  23 use installer::globals;
  24 use installer::languages;
  25 use installer::logger;
  26 use installer::pathanalyzer;
  27 use installer::remover;
  28 use installer::systemactions;
  29
  30 ################################################################
  31 # Resolving the GID for the directories defined in setup script
  32 ################################################################
  33
  34 sub resolve_all_directory_names
  35 {
  36     my ($directoryarrayref) = @_;
  37
  38     # After this procedure the hash shall contain the complete language
  39     # dependent path, not only the language dependent HostName.
  40
  41     my ($key, $value, $parentvalue, $parentgid, $parentdirectoryhashref);
  42
  43     for ( my $i = 0; $i <= $#{$directoryarrayref}; $i++ )
  44     {
  45         my $directoryhashref = ${$directoryarrayref}[$i];
  46         my $gid = $directoryhashref-> {'gid'};
  47         my $parentid = $directoryhashref-> {'ParentID'};
  48
  49         if ( $parentid ne "PREDEFINED_PROGDIR" )
  50         {
  51             # find the array of the parentid, which has to be defined before in setup script
  52             # and is therefore listed before in this array
  53
  54             for ( my $j = 0; $j <= $i; $j++ )
  55             {
  56                 $parentdirectoryhashref = ${$directoryarrayref}[$j];
  57                 $parentgid = $parentdirectoryhashref->{'gid'};
  58
  59                 if ( $parentid eq $parentgid)
  60                 {
  61                     last;
  62                 }
  63             }
  64
  65             # and now we can put the path together
  66             # But take care of the languages!
  67
  68             my $dirismultilingual = $directoryhashref->{'ismultilingual'};
  69             my $parentismultilingual = $parentdirectoryhashref->{'ismultilingual'};
  70
  71             # First: Both directories are language independent or both directories are language dependent
  72
  73             if ((( ! $dirismultilingual ) && ( ! $parentismultilingual )) ||
  74                 (( $dirismultilingual ) && ( $parentismultilingual )))
  75             {
  76                 foreach $key (keys %{$directoryhashref})
  77                 {
  78                     # the key ("HostName (en-US)") must be usable for both hashes
  79
  80                     if ( $key =~ /\bHostName\b/ )
  81                     {
  82                         $parentvalue = "";
  83                         $value = $directoryhashref->{$key};
  84                         if ( $parentdirectoryhashref->{$key} ) { $parentvalue = $parentdirectoryhashref->{$key}; }
  85
  86                         # It is possible, that in scp project, a directory is defined in more languages than
  87                         # the directory parent (happened after automatic generation of macros.inc).
  88                         # Therefore this is checked now and written with a warning into the logfile.
  89                         # This is no error, because (in most cases) the concerned language is not build.
  90
  91                         if ($parentvalue eq "")
  92                         {
  93                             $directoryhashref->{$key} = "FAILURE";
  94                             my $infoline = "WARNING: No hostname for $parentid with \"$key\". Needed by child directory $gid !\n";
  95                             push( @installer::globals::globallogfileinfo, $infoline);
  96                         }
  97                         else
  98                         {
  99                             $directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
 100                         }
 101                     }
 102                 }
 103             }
 104
 105             # Second: The directory is language dependent, the parent not
 106
 107             if (( $dirismultilingual ) && ( ! $parentismultilingual ))
 108             {
 109                 $parentvalue = $parentdirectoryhashref->{'HostName'};       # there is only one
 110
 111                 foreach $key (keys %{$directoryhashref})        # the current directory
 112                 {
 113                     if ( $key =~ /\bHostName\b/ )
 114                     {
 115                         $value = $directoryhashref->{$key};
 116                         $directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
 117                     }
 118                 }
 119             }
 120
 121             # Third: The directory is not language dependent, the parent is language dependent
 122
 123             if (( ! $dirismultilingual ) && ( $parentismultilingual ))
 124             {
 125                 $value = $directoryhashref->{'HostName'};       # there is only one
 126                 delete($directoryhashref->{'HostName'});
 127
 128                 foreach $key (keys %{$parentdirectoryhashref})      # the parent directory
 129                 {
 130                     if ( $key =~ /\bHostName\b/ )
 131                     {
 132                         $parentvalue = $parentdirectoryhashref->{$key};     # there is only one
 133                         $directoryhashref->{$key} = $parentvalue . $installer::globals::separator . $value;
 134                     }
 135                 }
 136
 137                 $directoryhashref->{'ismultilingual'} = 1;  # now this directory is also language dependent
 138             }
 139         }
 140     }
 141 }
 142
 143 #############################################################################
 144 # Files with flag NOT_IN_SUITE do not need to be packed into
 145 # Suite installation sets
 146 #############################################################################
 147
 148 sub remove_office_start_language_files
 149 {
 150     my ($productarrayref) = @_;
 151
 152     my @newitems = ();
 153
 154     for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
 155     {
 156         my $oneitem = ${$productarrayref}[$i];
 157         my $styles = "";
 158
 159         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
 160
 161         if (!($styles =~ /\bSET_OFFICE_LANGUAGE\b/))
 162         {
 163             push(@newitems, $oneitem);
 164         }
 165         else
 166         {
 167             my $infoline = "INFO: Flag SET_OFFICE_LANGUAGE \-\> Removing $oneitem->{'gid'} from file list.\n";
 168             push( @installer::globals::logfileinfo, $infoline);
 169         }
 170     }
 171
 172     return \@newitems;
 173 }
 174
 175 #############################################################################
 176 # Registryitems for Uninstall have to be removed
 177 #############################################################################
 178
 179 sub remove_uninstall_regitems_from_script
 180 {
 181     my ($registryarrayref) = @_;
 182
 183     my @newitems = ();
 184
 185     for ( my $i = 0; $i <= $#{$registryarrayref}; $i++ )
 186     {
 187         my $oneitem = ${$registryarrayref}[$i];
 188         my $subkey = "";
 189
 190         if ( $oneitem->{'Subkey'} ) { $subkey = $oneitem->{'Subkey'}; }
 191
 192         if ( $subkey =~ /Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall/ ) { next; }
 193
 194         push(@newitems, $oneitem);
 195     }
 196
 197     return \@newitems;
 198 }
 199
 200 ##############################################################################
 201 # Searching the language module for a specified language
 202 ##############################################################################
 203
 204 sub get_languagespecific_module
 205 {
 206     my ( $lang, $modulestring ) = @_;
 207
 208     my $langmodulestring = "";
 209
 210     my $module;
 211     foreach $module ( keys %installer::globals::alllangmodules )
 212     {
 213         if (( $installer::globals::alllangmodules{$module} eq $lang ) && ( $modulestring =~ /\b$module\b/ ))
 214         {
 215             $langmodulestring = "$langmodulestring,$module";
 216         }
 217     }
 218
 219     $langmodulestring =~ s/^\s*,//;
 220
 221     if ( $langmodulestring eq "" ) { installer::exiter::exit_program("ERROR: No language pack module found for language $lang in string \"$modulestring\"!", "get_languagespecific_module");  }
 222
 223     return $langmodulestring;
 224 }
 225
 226 ##############################################################################
 227 # Removing all items in product lists which do not have the correct languages
 228 ##############################################################################
 229
 230 sub resolving_all_languages_in_productlists
 231 {
 232     my ($productarrayref, $languagesarrayref) = @_;
 233
 234     my @itemsinalllanguages = ();
 235
 236     my ($key, $value);
 237
 238     for ( my $i = 0; $i <= $#{$productarrayref}; $i++ )
 239     {
 240         my $oneitem = ${$productarrayref}[$i];
 241
 242         my $ismultilingual = $oneitem->{'ismultilingual'};
 243
 244         if (!($ismultilingual)) # nothing to do with single language items
 245         {
 246             $oneitem->{'specificlanguage'} = "";
 247             push(@itemsinalllanguages, $oneitem);
 248         }
 249         else    #all language dependent files
 250         {
 251             for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ )   # iterating over all languages
 252             {
 253                 my $onelanguage = ${$languagesarrayref}[$j];
 254
 255                 my %oneitemhash = ();
 256
 257                 foreach $key (keys %{$oneitem})
 258                 {
 259                     if ( $key =~ /\(\S+\)/ )    # this are the language dependent keys
 260                     {
 261                         if ( $key =~ /\(\Q$onelanguage\E\)/ )
 262                         {
 263                             $value = $oneitem->{$key};
 264                             $oneitemhash{$key} = $value;
 265                         }
 266                     }
 267                     else
 268                     {
 269                         $value = $oneitem->{$key};
 270                         $oneitemhash{$key} = $value;
 271                     }
 272                 }
 273
 274                 $oneitemhash{'specificlanguage'} = $onelanguage;
 275
 276                 if ( $oneitemhash{'haslanguagemodule'} )
 277                 {
 278                     my $langmodulestring = get_languagespecific_module($onelanguage, $oneitemhash{'modules'});
 279                     $oneitemhash{'modules'} = $langmodulestring;
 280                 }
 281
 282                 push(@itemsinalllanguages, \%oneitemhash);
 283             }
 284         }
 285     }
 286
 287     return \@itemsinalllanguages;
 288 }
 289
 290 ################################################################################
 291 # Removing all modules, that have the flag LANGUAGEMODULE, but do not
 292 # have the correct language
 293 ################################################################################
 294
 295 sub remove_not_required_language_modules
 296 {
 297     my ($modulesarrayref, $languagesarrayref) = @_;
 298
 299     my @allmodules = ();
 300
 301     for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
 302     {
 303         my $module = ${$modulesarrayref}[$i];
 304         my $styles = "";
 305         if ( $module->{'Styles'} ) { $styles = $module->{'Styles'}; }
 306
 307         if ( $styles =~ /\bLANGUAGEMODULE\b/ )
 308         {
 309             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"); }
 310             my $modulelanguage = $module->{'Language'};
 311             # checking, if language is required
 312             my $doinclude = 0;
 313             for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ )
 314             {
 315                 my $onelanguage = ${$languagesarrayref}[$j];
 316                 if ( $onelanguage eq $modulelanguage )
 317                 {
 318                     $doinclude = 1;
 319                     last;
 320                 }
 321             }
 322
 323             if ( $doinclude ) { push(@allmodules, $module); }
 324         }
 325         else
 326         {
 327             push(@allmodules, $module);
 328         }
 329     }
 330
 331     return \@allmodules;
 332 }
 333
 334 ################################################################################
 335 # Removing all modules, that have a spellchecker language that is not
 336 # required for this product (spellchecker selection).
 337 # All required spellchecker languages are stored in
 338 # %installer::globals::spellcheckerlanguagehash
 339 ################################################################################
 340
 341 sub remove_not_required_spellcheckerlanguage_modules
 342 {
 343     my ($modulesarrayref) = @_;
 344
 345     my $infoline = "";
 346     my @allmodules = ();
 347
 348     for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
 349     {
 350         my $module = ${$modulesarrayref}[$i];
 351         if ( $module->{'Spellcheckerlanguage'} )    # selecting modules with Spellcheckerlanguage
 352         {
 353             if ( exists($installer::globals::spellcheckerlanguagehash{$module->{'Spellcheckerlanguage'}}) )
 354             {
 355                 push(@allmodules, $module);
 356             }
 357             else
 358             {
 359                 $infoline = "Spellchecker selection: Removing module $module->{'gid'}\n";
 360                 push( @installer::globals::logfileinfo, $infoline);
 361
 362                 # Collecting all files at modules that are removed
 363
 364                 if ( $module->{'Files'} )
 365                 {
 366                     if ( $module->{'Files'} =~ /^\s*\((.*?)\)\s*$/ )
 367                     {
 368                         my $filelist = $1;
 369
 370                         my $filelisthash = installer::converter::convert_stringlist_into_hash(\$filelist, ",");
 371                         foreach my $onefile ( keys %{$filelisthash} ) { $installer::globals::spellcheckerfilehash{$onefile} = 1; }
 372                     }
 373                 }
 374             }
 375         }
 376         else
 377         {
 378             push(@allmodules, $module);
 379         }
 380     }
 381
 382     return \@allmodules;
 383 }
 384
 385 ################################################################################
 386 # Removing all modules, that belong to a module that was removed
 387 # in "remove_not_required_spellcheckerlanguage_modules" because of the
 388 # spellchecker language. The files belonging to the modules are collected
 389 # in %installer::globals::spellcheckerfilehash.
 390 ################################################################################
 391
 392 sub remove_not_required_spellcheckerlanguage_files
 393 {
 394     my ($filesarrayref) = @_;
 395
 396     my @filesarray = ();
 397     my $infoline = "";
 398
 399     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 400     {
 401         my $onefile = ${$filesarrayref}[$i];
 402         if ( exists($installer::globals::spellcheckerfilehash{$onefile->{'gid'}}) )
 403         {
 404             $infoline = "Spellchecker selection: Removing file $onefile->{'gid'}\n";
 405             push( @installer::globals::logfileinfo, $infoline);
 406             next;
 407         }
 408         push(@filesarray, $onefile);
 409     }
 410
 411     return \@filesarray;
 412 }
 413
 414 ################################################################################
 415 # Looking for directories without correct HostName
 416 ################################################################################
 417
 418 sub checking_directories_with_corrupt_hostname
 419 {
 420     my ($dirsref, $languagesarrayref) = @_;
 421
 422     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 423     {
 424         my $onedir = ${$dirsref}[$i];
 425
 426         my $hostname = "";
 427
 428         if ( $onedir->{'HostName'} ) { $hostname = $onedir->{'HostName'}; }
 429
 430         if ( $hostname eq "" )
 431         {
 432             my $langstring = "";
 433             for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ ) { $langstring .= ${$languagesarrayref}[$j] . " "; }
 434             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");
 435         }
 436
 437         if ( $hostname eq "FAILURE" )
 438         {
 439             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");
 440         }
 441     }
 442 }
 443
 444 ################################################################################
 445 # Setting global properties
 446 ################################################################################
 447
 448 sub set_global_directory_hostnames
 449 {
 450     my ($dirsref, $allvariables) = @_;
 451
 452     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 453     {
 454         my $onedir = ${$dirsref}[$i];
 455         my $styles = "";
 456         if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
 457
 458         if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
 459         {
 460             $installer::globals::officedirhostname = $onedir->{'HostName'};
 461             $installer::globals::officedirgid = $onedir->{'gid'};
 462             $allvariables->{'OFFICEDIRECTORYHOSTNAME'} = $installer::globals::officedirhostname;
 463         }
 464     }
 465 }
 466
 467 ########################################################
 468 # Recursively defined procedure to order
 469 # modules and directories
 470 ########################################################
 471
 472 sub get_children
 473 {
 474     my ($allitems, $startparent, $newitemorder) = @_;
 475
 476     for ( my $i = 0; $i <= $#{$allitems}; $i++ )
 477     {
 478         my $gid = ${$allitems}[$i]->{'gid'};
 479         my $parent = "";
 480         if ( ${$allitems}[$i]->{'ParentID'} ) { $parent = ${$allitems}[$i]->{'ParentID'}; }
 481
 482         if ( $parent eq $startparent )
 483         {
 484             push(@{$newitemorder}, ${$allitems}[$i]);
 485             my $parent = $gid;
 486             get_children($allitems, $parent, $newitemorder);    # recursive!
 487         }
 488     }
 489 }
 490
 491 ################################################################################
 492 # Using langpack copy action for language packs
 493 ################################################################################
 494
 495 sub use_langpack_copy_scpaction
 496 {
 497     my ($scpactionsref) = @_;
 498
 499     for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
 500     {
 501         my $onescpaction = ${$scpactionsref}[$i];
 502         if (( $onescpaction->{'LangPackCopy'} ) && ( $onescpaction->{'LangPackCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'LangPackCopy'}; }
 503     }
 504 }
 505
 506 ################################################################################
 507 # Using dev copy patch action for developer snapshot builds
 508 ################################################################################
 509
 510 sub use_devversion_copy_scpaction
 511 {
 512     my ($scpactionsref) = @_;
 513
 514     for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
 515     {
 516         my $onescpaction = ${$scpactionsref}[$i];
 517         if (( $onescpaction->{'DevVersionCopy'} ) && ( $onescpaction->{'DevVersionCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'DevVersionCopy'}; }
 518     }
 519 }
 520
 521 ################################################################################
 522 # Shifting parent directories of URE and Basis layer, so that
 523 # these directories are located below the Brand layer.
 524 # Style: SHIFT_BASIS_INTO_BRAND_LAYER
 525 ################################################################################
 526
 527 sub shift_basis_directory_parents
 528 {
 529     my ($dirsref) = @_;
 530
 531     my @alldirs = ();
 532
 533     my $officedirgid = "";
 534
 535     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 536     {
 537         my $onedir = ${$dirsref}[$i];
 538         my $styles = "";
 539         if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
 540
 541         if ( $styles =~ /\bOFFICEDIRECTORY\b/ ) { $officedirgid = $onedir->{'gid'}; }
 542     }
 543
 544     if ( $officedirgid ne "" )
 545     {
 546         for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 547         {
 548             my $onedir = ${$dirsref}[$i];
 549             my $styles = "";
 550             if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
 551
 552             if (( $styles =~ /\bBASISDIRECTORY\b/ ) || ( $styles =~ /\bUREDIRECTORY\b/ ))
 553             {
 554                 $onedir->{'ParentID'} = $officedirgid;
 555             }
 556         }
 557
 558         # Sorting directories
 559         my $startgid = "PREDEFINED_PROGDIR";
 560         get_children($dirsref, $startgid, \@alldirs);
 561     }
 562
 563     return \@alldirs;
 564 }
 565
 566 ################################################################################
 567 # Setting the name of the directory with style OFFICEDIRECTORY.
 568 # The name can be defined in property OFFICEDIRECTORYNAME.
 569 ################################################################################
 570
 571 sub set_officedirectory_name
 572 {
 573     my ($dirsref, $officedirname) = @_;
 574
 575     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
 576     {
 577         my $onedir = ${$dirsref}[$i];
 578         my $styles = "";
 579         if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
 580         if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
 581         {
 582             $onedir->{'HostName'} = $officedirname;
 583             last;
 584         }
 585     }
 586 }
 587
 588 ################################################################################
 589 # Simplifying the name for language dependent items from "Name (xy)" to "Name"
 590 ################################################################################
 591
 592 sub changing_name_of_language_dependent_keys
 593 {
 594     my ($itemsarrayref) = @_;
 595
 596     # Changing key for multilingual items from "Name ( )" to "Name" or "HostName ( )" to "HostName"
 597
 598     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
 599     {
 600         my $oneitem = ${$itemsarrayref}[$i];
 601         my $onelanguage = $oneitem->{'specificlanguage'};
 602
 603         if (!($onelanguage eq "" ))                 # language dependent item
 604         {
 605             my $itemkey;
 606
 607             foreach $itemkey (keys %{$oneitem})
 608             {
 609                 if ( $itemkey =~ /^\s*(\S+?)\s+\(\S+\)\s*$/ )
 610                 {
 611                     my $newitemkey = $1;
 612                     my $itemvalue = $oneitem->{$itemkey};
 613                     $oneitem->{$newitemkey} = $itemvalue;
 614                     delete($oneitem->{$itemkey});
 615                 }
 616             }
 617         }
 618     }
 619 }
 620
 621 ################################################################################
 622 # Replacement of setup variables in ConfigurationItems and ProfileItems
 623 # <productkey>, <buildid>, <sequence_languages>, <productcode>, <upgradecode>, <productupdate>
 624 ################################################################################
 625
 626 sub replace_setup_variables
 627 {
 628     my ($itemsarrayref, $languagestringref, $hashref) = @_;
 629
 630     my $languagesstring = $$languagestringref;
 631     $languagesstring =~ s/\_/ /g;   # replacing underscore with whitespace
 632
 633     my $productname = $hashref->{'PRODUCTNAME'};
 634     my $productversion = $hashref->{'PRODUCTVERSION'};
 635     my $userdirproductversion = "";
 636     if ( $hashref->{'USERDIRPRODUCTVERSION'} ) { $userdirproductversion = $hashref->{'USERDIRPRODUCTVERSION'}; }
 637     my $productkey = $productname . " " . $productversion;
 638
 639     # string $buildid, which is used to replace the setup variable <buildid>
 640
 641     my $localminor = "flat";
 642     if ( $installer::globals::minor ne "" ) { $localminor = $installer::globals::minor; }
 643     else { $localminor = $installer::globals::lastminor; }
 644
 645     my $localbuild = $installer::globals::build;
 646
 647     if ( $localbuild =~ /^\s*(\w+?)(\d+)\s*$/ ) { $localbuild = $2; }   # using "680" instead of "src680"
 648
 649     my $buildidstring = `cd $ENV{'SRCDIR'} 2>&1 >/dev/null && git log -n 1 --pretty=format:"%H"`;
 650     if ($? || !$buildidstring) {
 651         $buildidstring = $localbuild . $localminor . "(Build:" . $installer::globals::buildid . ")";
 652     }
 653
 654     if ( $localminor =~ /^\s*\w(\d+)\w*\s*$/ ) { $localminor = $1; }
 655
 656     my $updateid = $productname . "_" . $userdirproductversion . "_" . $$languagestringref;
 657     $updateid =~ s/ /_/g;
 658
 659     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
 660     {
 661         my $oneitem = ${$itemsarrayref}[$i];
 662         my $value = $oneitem->{'Value'};
 663
 664         $value =~ s/\<buildid\>/$buildidstring/;
 665         $value =~ s/\<sequence_languages\>/$languagesstring/;
 666         $value =~ s/\<productkey\>/$productkey/;
 667         $value =~ s/\<productcode\>/$installer::globals::productcode/;
 668         $value =~ s/\<upgradecode\>/$installer::globals::upgradecode/;
 669         $value =~ s/\<alllanguages\>/$languagesstring/;
 670         $value =~ s/\<sourceid\>/$installer::globals::build/;
 671         $value =~ s/\<updateid\>/$updateid/;
 672         $value =~ s/\<pkgformat\>/$installer::globals::packageformat/;
 673         $ENV{'OOO_VENDOR'} = "" if !defined $ENV{'OOO_VENDOR'};
 674         $value =~ s/\<vendor\>/$ENV{'OOO_VENDOR'}/;
 675         $ENV{'BUILD_VER_STRING'} = "" if !defined $ENV{'BUILD_VER_STRING'};
 676         $value =~ s/\<buildversion\>/$ENV{'BUILD_VER_STRING'}/;
 677
 678         $oneitem->{'Value'} = $value;
 679     }
 680 }
 681
 682 ################################################################################
 683 # By defining variable LOCALUSERDIR in *.lst it is possible to change
 684 # the standard destination of user directory defined in scp2 ($SYSUSERCONFIG).
 685 ################################################################################
 686
 687 sub replace_userdir_variable
 688 {
 689     my ($itemsarrayref) = @_;
 690
 691     my $userdir = "";
 692     if ( $allvariableshashref->{'LOCALUSERDIR'} ) { $userdir = $allvariableshashref->{'LOCALUSERDIR'}; }
 693     else { $userdir = $installer::globals::simpledefaultuserdir; }
 694
 695     if ( $userdir ne "" )
 696     {
 697         for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
 698         {
 699             my $oneitem = ${$itemsarrayref}[$i];
 700             $oneitem->{'Value'} =~ s/\$SYSUSERCONFIG/$userdir/;
 701         }
 702     }
 703 }
 704
 705 #####################################################################################
 706 # Files and ConfigurationItems are not included for all languages.
 707 # For instance asian fonts. These can be removed, if no "Name" is found.
 708 # ConfigurationItems are not always defined in the linguistic configuration file.
 709 # The "Key" cannot be found for them.
 710 #####################################################################################
 711
 712 sub remove_non_existent_languages_in_productlists
 713 {
 714     my ($itemsarrayref, $languagestringref, $searchkey, $itemtype) = @_;
 715
 716     # Removing of all non existent files, for instance asian fonts
 717
 718     installer::logger::include_header_into_logfile("Removing for this language $$languagestringref:");
 719
 720     my @allexistentitems = ();
 721
 722     my $infoline;
 723
 724     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
 725     {
 726         my $oneitem = ${$itemsarrayref}[$i];
 727         my $oneitemname = "";       # $searchkey is "Name" for files and "Key" for ConfigurationItems
 728
 729         if ( $oneitem->{$searchkey} ) { $oneitemname = $oneitem->{$searchkey} }
 730
 731         my $itemtoberemoved = 0;
 732
 733         if ($oneitemname eq "")                     # for instance asian font in english installation set
 734         {
 735             $itemtoberemoved = 1;
 736         }
 737
 738         if ($itemtoberemoved)
 739         {
 740             $infoline = "WARNING: Language $$languagestringref: No $itemtype packed for $oneitem->{'gid'}!\n";
 741             push( @installer::globals::logfileinfo, $infoline);
 742         }
 743         else
 744         {
 745             push(@allexistentitems, $oneitem);
 746         }
 747     }
 748
 749     $infoline = "\n";
 750     push( @installer::globals::logfileinfo, $infoline);
 751
 752     return \@allexistentitems;
 753 }
 754
 755 ########################################################################
 756 # Input is the directory gid, output the "HostName" of the directory
 757 ########################################################################
 758
 759 sub get_Directoryname_From_Directorygid
 760 {
 761     my ($dirsarrayref ,$searchgid, $onelanguage, $oneitemgid) = @_;
 762
 763     my $directoryname = "";
 764     my $onedirectory;
 765     my $foundgid = 0;
 766
 767     for ( my $i = 0; $i <= $#{$dirsarrayref}; $i++ )
 768     {
 769         $onedirectory = ${$dirsarrayref}[$i];
 770         my $directorygid = $onedirectory->{'gid'};
 771
 772         if ($directorygid eq $searchgid)
 773         {
 774             $foundgid = 1;
 775             last;
 776         }
 777     }
 778
 779     if (!($foundgid))
 780     {
 781         installer::exiter::exit_program("ERROR: Gid $searchgid not defined in $installer::globals::setupscriptname", "get_Directoryname_From_Directorygid");
 782     }
 783
 784     if ( ! ( $onedirectory->{'ismultilingual'} ))   # the directory is not language dependent
 785     {
 786          $directoryname = $onedirectory->{'HostName'};
 787     }
 788     else
 789     {
 790         $directoryname = $onedirectory->{"HostName ($onelanguage)"};
 791     }
 792
 793     # gid_Dir_Template_Wizard_Letter is defined as language dependent directory, but the file gid_Dir_Template_Wizard_Letter
 794     # is not language dependent. Therefore $onelanguage is not defined. But which language is the correct language for the
 795     # directory?
 796     # Perhaps better solution: In scp it must be forbidden to have a language independent file in a language dependent directory.
 797
 798     if (( ! $directoryname ) && ( $onelanguage eq "" ))
 799     {
 800         installer::exiter::exit_program("ERROR (in scp): Directory $searchgid is language dependent, but not $oneitemgid inside this directory", "get_Directoryname_From_Directorygid");
 801     }
 802
 803     return \$directoryname;
 804 }
 805
 806 ##################################################################
 807 # Getting destination direcotory for links, files and profiles
 808 ##################################################################
 809
 810 sub get_Destination_Directory_For_Item_From_Directorylist       # this is used for Files, Profiles and Links
 811 {
 812     my ($itemarrayref, $dirsarrayref) = @_;
 813
 814     for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ )
 815     {
 816         my $oneitem = ${$itemarrayref}[$i];
 817         my $oneitemgid = $oneitem->{'gid'};
 818         my $directorygid = $oneitem->{'Dir'};       # for instance gid_Dir_Program
 819         my $netdirectorygid = "";
 820         my $onelanguage = $oneitem->{'specificlanguage'};
 821         my $ispredefinedprogdir = 0;
 822         my $ispredefinedconfigdir = 0;
 823
 824         my $oneitemname = $oneitem->{'Name'};
 825
 826         if ( $oneitem->{'NetDir'} ) { $netdirectorygid = $oneitem->{'NetDir'}; }
 827
 828         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$oneitemname);    # making /registry/schema/org/openoffice/VCL.xcs to VCL.xcs
 829
 830         my $searchdirgid;
 831
 832         if ( $netdirectorygid eq "" )   # if NetDir is defined, it is privileged
 833         {
 834             $searchdirgid = $directorygid
 835         }
 836         else
 837         {
 838             $searchdirgid = $netdirectorygid
 839         }
 840
 841         if ($searchdirgid =~ /PREDEFINED_PROGDIR/)  # the root directory is not defined in setup script
 842         {
 843             $ispredefinedprogdir = 1;
 844         }
 845
 846         if ($searchdirgid =~ /PREDEFINED_CONFIGDIR/)    # the root directory is not defined in setup script
 847         {
 848             $ispredefinedconfigdir = 1;
 849         }
 850
 851         my $destfilename;
 852
 853         if ($oneitem->{'DoNotMessWithSymlinks'})
 854         {
 855             $destfilename = $oneitem->{'Name'};
 856         }
 857         elsif ((!( $ispredefinedprogdir )) && (!( $ispredefinedconfigdir )))
 858         {
 859             my $directorynameref = get_Directoryname_From_Directorygid($dirsarrayref, $searchdirgid, $onelanguage, $oneitemgid);
 860             my $styles = "";
 861             if ($oneitem->{'Styles'}) { $styles = $oneitem->{'Styles'}; }
 862             if ($styles =~ /\bFILELIST\b/)
 863             {
 864                 $destfilename = $$directorynameref . $installer::globals::separator . $oneitemname;
 865             }
 866             else
 867             {
 868                 $destfilename = $$directorynameref . $installer::globals::separator . $oneitem->{'Name'};
 869             }
 870         }
 871         else
 872         {
 873             $destfilename = $oneitemname;
 874         }
 875
 876         $oneitem->{'destination'} = $destfilename;
 877     }
 878 }
 879
 880 ##########################################################################
 881 # Searching a file in a list of paths
 882 ##########################################################################
 883
 884 sub get_sourcepath_from_filename_and_includepath_classic
 885 {
 886     my ($searchfilenameref, $includepatharrayref, $write_logfile) = @_;
 887
 888     my ($onefile, $includepath, $infoline);
 889
 890     my $foundsourcefile = 0;
 891
 892     for ( my $j = 0; $j <= $#{$includepatharrayref}; $j++ )
 893     {
 894         $includepath = ${$includepatharrayref}[$j];
 895         installer::remover::remove_leading_and_ending_whitespaces(\$includepath);
 896
 897         $onefile = $includepath . $installer::globals::separator . $$searchfilenameref;
 898
 899         if ( -f $onefile )
 900         {
 901             $foundsourcefile = 1;
 902             last;
 903         }
 904     }
 905
 906     if (!($foundsourcefile))
 907     {
 908         $onefile = "";  # the sourcepath has to be empty
 909         if ( $write_logfile)
 910         {
 911             $infoline = "ERROR: Source for $$searchfilenameref not found (classic)!\n";    # Important message in log file
 912             push( @installer::globals::logfileinfo, $infoline);
 913         }
 914     }
 915     else
 916     {
 917         if ( $write_logfile)
 918         {
 919             $infoline = "SUCCESS: Source for $$searchfilenameref: $onefile\n";
 920             push( @installer::globals::logfileinfo, $infoline);
 921         }
 922     }
 923
 924     return \$onefile;
 925 }
 926
 927 ##########################################################################
 928 # Input is one file name, output the complete absolute path of this file
 929 ##########################################################################
 930
 931 sub get_sourcepath_from_filename_and_includepath
 932 {
 933     my ($searchfilenameref, $unused, $write_logfile) = @_;
 934
 935     my ($onefile, $includepath, $infoline);
 936
 937     my $foundsourcefile = 0;
 938     my $foundnewname = 0;
 939
 940     for ( my $j = 0; $j <= $#installer::globals::allincludepaths; $j++ )
 941     {
 942         my $allfiles = $installer::globals::allincludepaths[$j];
 943
 944         if ( exists( $allfiles->{$$searchfilenameref} ))
 945         {
 946             $onefile = $allfiles->{'includepath'} . $installer::globals::separator . $$searchfilenameref;
 947             $foundsourcefile = 1;
 948             last;
 949         }
 950     }
 951
 952     if (!($foundsourcefile))    # testing with lowercase filename
 953     {
 954         # Attention: README01.html is copied for Windows to readme01.html, not case sensitive
 955
 956         for ( my $j = 0; $j <= $#installer::globals::allincludepaths; $j++ )
 957         {
 958             my $allfiles = $installer::globals::allincludepaths[$j];
 959
 960             my $newfilename = $$searchfilenameref;
 961             $newfilename =~ s/readme/README/;       # special handling for readme files
 962             $newfilename =~ s/license/LICENSE/;     # special handling for license files
 963
 964             if ( exists( $allfiles->{$newfilename} ))
 965             {
 966                 $onefile = $allfiles->{'includepath'} . $installer::globals::separator . $newfilename;
 967                 $foundsourcefile = 1;
 968                 $foundnewname = 1;
 969                 last;
 970             }
 971         }
 972     }
 973
 974     if (!($foundsourcefile))
 975     {
 976         $onefile = "";  # the sourcepath has to be empty
 977         if ( $write_logfile)
 978         {
 979             $infoline = "ERROR: Source for $$searchfilenameref not found!\n";    # Important message in log file
 980             push( @installer::globals::logfileinfo, $infoline);
 981         }
 982     }
 983     else
 984     {
 985         if ( $write_logfile)
 986         {
 987             if (!($foundnewname))
 988             {
 989                 $infoline = "SUCCESS: Source for $$searchfilenameref: $onefile\n";
 990             }
 991             else
 992             {
 993                 $infoline = "SUCCESS/WARNING: Special handling for $$searchfilenameref: $onefile\n";
 994             }
 995             push( @installer::globals::logfileinfo, $infoline);
 996         }
 997     }
 998
 999     return \$onefile;
1000 }
1001
1002 ##############################################################
1003 # Getting all source paths for all files to be packed
1004 # $item can be "Files" or "ScpActions"
1005 ##############################################################
1006
1007 sub get_Source_Directory_For_Files_From_Includepathlist
1008 {
1009     my ($filesarrayref, $includepatharrayref, $dirsref, $item, $allvariables) = @_;
1010
1011     installer::logger::include_header_into_logfile("$item:");
1012
1013     my ($foundit, $dontcare, $extrarootdir) =
1014         get_office_directory_gid_and_hostname($dirsref);
1015     my $infoline = "";
1016
1017     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1018     {
1019         my $onefile = ${$filesarrayref}[$i];
1020         my $onelanguage = $onefile->{'specificlanguage'};
1021
1022         if ( ! $onefile->{'Name'} ) { installer::exiter::exit_program("ERROR: $item without name ! GID: $onefile->{'gid'} ! Language: $onelanguage", "get_Source_Directory_For_Files_From_Includepathlist"); }
1023
1024         my $onefilename = $onefile->{'Name'};
1025         if ( $item eq "ScpActions" ) { $onefilename =~ s/\//$installer::globals::separator/g; }
1026         $onefilename =~ s/^\s*\Q$installer::globals::separator\E//;     # filename begins with a slash, for instance /registry/schema/org/openoffice/VCL.xcs
1027
1028         my $styles = "";
1029         my $file_can_miss = 0;
1030         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1031
1032         if (( $installer::globals::languagepack ) && ( ! $onefile->{'ismultilingual'} ) && ( ! ( $styles =~ /\bFORCELANGUAGEPACK\b/ ))) { $file_can_miss = 1; }
1033         if (( $installer::globals::helppack ) && ( ! $onefile->{'ismultilingual'} ) && ( ! ( $styles =~ /\bFORCEHELPPACK\b/ ))) { $file_can_miss = 1; }
1034
1035         my $sourcepathref = "";
1036
1037         my $destination = $onefile->{'destination'};
1038         my $instdirdestination;
1039         if ($destination)
1040         {
1041             if (($installer::globals::iswindowsbuild) && $foundit && $extrarootdir)
1042             {
1043                 $destination =~ s,$extrarootdir/,,; # remove it from path
1044             }
1045             if (($installer::globals::languagepack) && ($installer::globals::ismacbuild))
1046             {   # source files are in $(PRODUCTNAME).app where they will
1047                 # actually copied by the user executing the Language Pack.app
1048                 $destination =~ s, Language Pack.app/,.app/,;
1049             }
1050             $instdirdestination = $ENV{'INSTDIR'} . $installer::globals::separator . $destination;
1051         }
1052         if ($instdirdestination && -f $instdirdestination)
1053         {
1054             $infoline = "SUCCESS: INSTDIR Source for $onefilename: $instdirdestination\n";
1055             push( @installer::globals::logfileinfo, $infoline);
1056             $$sourcepathref = $instdirdestination;
1057         }
1058         else
1059         {
1060         if ( $file_can_miss ) { $sourcepathref = get_sourcepath_from_filename_and_includepath(\$onefilename, $includepatharrayref, 0); }
1061         else { $sourcepathref = get_sourcepath_from_filename_and_includepath(\$onefilename, $includepatharrayref, 1); }
1062         }
1063
1064         $onefile->{'sourcepath'} = $$sourcepathref; # This $$sourcepathref is empty, if no source was found
1065     }
1066
1067     $infoline = "\n";   # empty line after listing of all files
1068     push( @installer::globals::logfileinfo, $infoline);
1069 }
1070
1071 #################################################################################
1072 # Removing files, that shall not be included into languagepacks
1073 # (because of rpm conflicts)
1074 #################################################################################
1075
1076 sub remove_Files_For_Languagepacks
1077 {
1078     my ($itemsarrayref) = @_;
1079
1080     my $infoline;
1081
1082     my @newitemsarray = ();
1083
1084     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1085     {
1086         my $oneitem = ${$itemsarrayref}[$i];
1087         my $gid = $oneitem->{'gid'};
1088
1089         # scp Todo: Remove asap after removal of old setup
1090
1091         if (( $gid eq "gid_File_Extra_Fontunxpsprint" ) ||
1092             ( $gid eq "gid_File_Extra_Migration_Lang" ))
1093         {
1094             $infoline = "ATTENTION: Removing item $oneitem->{'gid'} from the installation set.\n";
1095             push( @installer::globals::logfileinfo, $infoline);
1096
1097             next;
1098         }
1099
1100         push(@newitemsarray, $oneitem);
1101     }
1102
1103     return \@newitemsarray;
1104 }
1105
1106 #################################################################################
1107 # Files, whose source directory is not found, are removed now (this is an ERROR)
1108 #################################################################################
1109
1110 sub remove_Files_Without_Sourcedirectory
1111 {
1112     my ($filesarrayref) = @_;
1113
1114     my $infoline;
1115
1116     my $error_occurred = 0;
1117     my @missingfiles = ();
1118     push(@missingfiles, "ERROR: The following files could not be found: \n");
1119
1120     my @newfilesarray = ();
1121
1122     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1123     {
1124         my $onefile = ${$filesarrayref}[$i];
1125         my $sourcepath = $onefile->{'sourcepath'};
1126
1127         if ($sourcepath eq "")
1128         {
1129             my $styles = $onefile->{'Styles'};
1130             my $filename = $onefile->{'Name'};
1131
1132             if ( ! $installer::globals::languagepack && !$installer::globals::helppack)
1133             {
1134                 $infoline = "ERROR: Removing file $filename from file list.\n";
1135                 push( @installer::globals::logfileinfo, $infoline);
1136
1137                 push(@missingfiles, "ERROR: File not found: $filename\n");
1138                 $error_occurred = 1;
1139
1140                 next;   # removing this file from list, if sourcepath is empty
1141             }
1142             elsif ( $installer::globals::languagepack ) # special case for language packs
1143             {
1144                 if (( $onefile->{'ismultilingual'} ) || ( $styles =~ /\bFORCELANGUAGEPACK\b/ ))
1145                 {
1146                     $infoline = "ERROR: Removing file $filename from file list.\n";
1147                     push( @installer::globals::logfileinfo, $infoline);
1148
1149                     push(@missingfiles, "ERROR: File not found: $filename\n");
1150                     $error_occurred = 1;
1151
1152                     next;   # removing this file from list, if sourcepath is empty
1153                 }
1154                 else
1155                 {
1156                     $infoline = "INFO: Removing file $filename from file list. It is not language dependent.\n";
1157                     push( @installer::globals::logfileinfo, $infoline);
1158                     $infoline = "INFO: It is not language dependent and can be ignored in language packs.\n";
1159                     push( @installer::globals::logfileinfo, $infoline);
1160
1161                     next;   # removing this file from list, if sourcepath is empty
1162                 }
1163             }
1164             else # special case for help packs
1165             {
1166                 if (( $onefile->{'ismultilingual'} ) || ( $styles =~ /\bFORCEHELPPACK\b/ ))
1167                 {
1168                     $infoline = "ERROR: Removing file $filename from file list.\n";
1169                     push( @installer::globals::logfileinfo, $infoline);
1170
1171                     push(@missingfiles, "ERROR: File not found: $filename\n");
1172                     $error_occurred = 1;
1173
1174                     next;   # removing this file from list, if sourcepath is empty
1175                 }
1176                 else
1177                 {
1178                     $infoline = "INFO: Removing file $filename from file list. It is not language dependent.\n";
1179                     push( @installer::globals::logfileinfo, $infoline);
1180                     $infoline = "INFO: It is not language dependent and can be ignored in help packs.\n";
1181                     push( @installer::globals::logfileinfo, $infoline);
1182
1183                     next;   # removing this file from list, if sourcepath is empty
1184                 }
1185            }
1186         }
1187
1188         push(@newfilesarray, $onefile);
1189     }
1190
1191     $infoline = "\n";
1192     push( @installer::globals::logfileinfo, $infoline);
1193
1194     if ( $error_occurred )
1195     {
1196         for ( my $i = 0; $i <= $#missingfiles; $i++ ) { print "$missingfiles[$i]"; }
1197         installer::exiter::exit_program("ERROR: Missing files", "remove_Files_Without_Sourcedirectory");
1198     }
1199
1200     return \@newfilesarray;
1201 }
1202
1203 ############################################################################
1204 # License and Readme files in the default language have to be installed
1205 # in the directory with flag OFFICEDIRECTORY. If this is not defined
1206 # they have to be installed in the installation root.
1207 ############################################################################
1208
1209 sub get_office_directory_gid_and_hostname
1210 {
1211     my ($dirsarrayref) = @_;
1212
1213     my $foundofficedir = 0;
1214     my $gid = "";
1215     my $hostname = "";
1216
1217     for ( my $i = 0; $i <= $#{$dirsarrayref}; $i++ )
1218     {
1219         my $onedir = ${$dirsarrayref}[$i];
1220         if ( $onedir->{'Styles'} )
1221         {
1222             my $styles = $onedir->{'Styles'};
1223
1224             if ( $styles =~ /\bOFFICEDIRECTORY\b/ )
1225             {
1226                 $foundofficedir = 1;
1227                 $gid = $onedir->{'gid'};
1228                 $hostname = $onedir->{'HostName'};
1229                 last;
1230             }
1231         }
1232     }
1233
1234     return ($foundofficedir, $gid, $hostname);
1235 }
1236
1237 ############################################################################
1238 # License and Readme files in the default language have to be installed
1239 # in the installation root (next to the program dir). This is in scp
1240 # project done by a post install basic script
1241 ############################################################################
1242
1243 sub add_License_Files_into_Installdir
1244 {
1245     my ($filesarrayref, $dirsarrayref, $languagesarrayref) = @_;
1246
1247     my $infoline;
1248
1249     my @newfilesarray = ();
1250
1251     my $defaultlanguage = installer::languages::get_default_language($languagesarrayref);
1252
1253     my ($foundofficedir, $officedirectorygid, $officedirectoryhostname) = get_office_directory_gid_and_hostname($dirsarrayref);
1254
1255     # copy all files from directory share/readme, that contain the default language in their name
1256     # without default language into the installation root. This makes the settings of the correct
1257     # file names superfluous. On the other hand this requires a dependency to the directory
1258     # share/readme
1259
1260     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1261     {
1262         my $onefile = ${$filesarrayref}[$i];
1263         my $destination = $onefile->{'destination'};
1264         my $styles = "";
1265         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1266
1267         if ( ( $destination =~ /share\Q$installer::globals::separator\Ereadme\Q$installer::globals::separator\E(\w+?)_?$defaultlanguage\.?(\w*)\s*/ )
1268             || (( $styles =~ /\bROOTLICENSEFILE\b/ ) && ( $destination =~ /\Q$installer::globals::separator\E?(\w+?)_?$defaultlanguage\.?(\w*?)\s*$/ )) )
1269         {
1270             my $filename = $1;
1271             my $extension = $2;
1272
1273             my $newfilename;
1274
1275             if ( $extension eq "" ) { $newfilename = $filename; }
1276             else { $newfilename = $filename . "\." . $extension; }
1277
1278             my %newfile = ();
1279             my $newfile = \%newfile;
1280
1281             installer::converter::copy_item_object($onefile, $newfile);
1282
1283             $newfile->{'gid'} = $onefile->{'gid'} . "_Copy";
1284             $newfile->{'Name'} = $newfilename;
1285             $newfile->{'ismultilingual'} = "0";
1286             $newfile->{'specificlanguage'} = "";
1287             $newfile->{'haslanguagemodule'} = "0";
1288
1289             if ( defined $newfile->{'InstallName'} )
1290             {
1291                 if ( $newfile->{'InstallName'} =~ /^\s*(.*?)_$defaultlanguage\.?(\w*?)\s*$/ )
1292                 {
1293                     my $localfilename = $1;
1294                     my $localextension = $2;
1295
1296                     if ( $localextension eq "" ) { $newfile->{'InstallName'} = $localfilename; }
1297                     else { $newfile->{'InstallName'} = $localfilename . "\." . $localextension; }
1298                 }
1299             }
1300
1301             $newfile->{'removelangfromfile'} = "1"; # Important for files with an InstallName, because language also has to be removed there.
1302
1303             if ( $foundofficedir )
1304             {
1305                 $newfile->{'Dir'} = $officedirectorygid;
1306                 $newfile->{'destination'} = $officedirectoryhostname . $installer::globals::separator . $newfilename;
1307             }
1308             else
1309             {
1310                 $newfile->{'Dir'} = "PREDEFINED_PROGDIR";
1311                 $newfile->{'destination'} = $newfilename;
1312             }
1313
1314             # Also setting "modules=gid_Module_Root_Brand" (module with style: ROOT_BRAND_PACKAGE)
1315             if ( $installer::globals::rootbrandpackageset )
1316             {
1317                 $newfile->{'modules'} = $installer::globals::rootbrandpackage;
1318             }
1319
1320             push(@newfilesarray, $newfile);
1321
1322             $infoline = "New files: Adding file $newfilename for the installation root to the file list. Language: $defaultlanguage\n";
1323             push( @installer::globals::logfileinfo, $infoline);
1324
1325             if ( defined $newfile->{'InstallName'} )
1326             {
1327                 $infoline = "New files: Using installation name: $newfile->{'InstallName'}\n";
1328                 push( @installer::globals::logfileinfo, $infoline);
1329             }
1330         }
1331
1332         push(@newfilesarray, $onefile);
1333     }
1334
1335     return \@newfilesarray;
1336 }
1337
1338 ############################################################################
1339 # Some files are included for more than one language and have the same
1340 # name and the same destination directory for all languages. This would
1341 # lead to conflicts, if the filenames are not changed.
1342 # In scp project this files must have the flag MAKE_LANG_SPECIFIC
1343 # For this files, the language is included into the filename.
1344 ############################################################################
1345
1346 sub make_filename_language_specific
1347 {
1348     my ($filesarrayref) = @_;
1349
1350     my $infoline = "";
1351
1352     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1353     {
1354         my $onefile = ${$filesarrayref}[$i];
1355
1356         if ( $onefile->{'ismultilingual'} )
1357         {
1358             my $styles = "";
1359             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1360             if ( $styles =~ /\bMAKE_LANG_SPECIFIC\b/ )
1361             {
1362                 my $language = $onefile->{'specificlanguage'};
1363                 my $olddestination = $onefile->{'destination'};
1364                 my $oldname = $onefile->{'Name'};
1365
1366                 # Including the language into the file name.
1367                 # But be sure, to include the language before the file extension.
1368
1369                 my $fileextension = "";
1370
1371                 if ( $onefile->{'Name'} =~ /(\.\w+?)\s*$/ ) { $fileextension = $1; }
1372                 if ( $fileextension ne "" )
1373                 {
1374                     $onefile->{'Name'} =~ s/\Q$fileextension\E\s*$/_$language$fileextension/;
1375                     $onefile->{'destination'} =~ s/\Q$fileextension\E\s*$/_$language$fileextension/;
1376                 }
1377
1378                 $infoline = "Flag MAKE_LANG_SPECIFIC:\n";
1379                 push( @installer::globals::logfileinfo, $infoline);
1380                 $infoline = "Changing name from $oldname to $onefile->{'Name'} !\n";
1381                 push( @installer::globals::logfileinfo, $infoline);
1382                 $infoline = "Changing destination from $olddestination to $onefile->{'destination'} !\n";
1383                 push( @installer::globals::logfileinfo, $infoline);
1384             }
1385         }
1386     }
1387 }
1388
1389 ############################################################################
1390 # Because of the item "File" the source name must be "Name". Therefore
1391 # "Copy" is changed to "Name" and "Name" is changed to "DestinationName".
1392 ############################################################################
1393
1394 sub change_keys_of_scpactions
1395 {
1396     my ($itemsarrayref) = @_;
1397
1398     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1399     {
1400         my $oneitem = ${$itemsarrayref}[$i];
1401
1402         my $key;
1403
1404         # First Name to DestinationName, then deleting Name
1405         foreach $key (keys %{$oneitem})
1406         {
1407             if ( $key =~ /\bName\b/ )
1408             {
1409                 my $value = $oneitem->{$key};
1410                 my $oldkey = $key;
1411                 $key =~ s/Name/DestinationName/;
1412                 $oneitem->{$key} = $value;
1413                 delete($oneitem->{$oldkey});
1414             }
1415         }
1416
1417         # Second Copy to Name, then deleting Copy
1418         foreach $key (keys %{$oneitem})
1419         {
1420             if ( $key =~ /\bCopy\b/ )
1421             {
1422                 my $value = $oneitem->{$key};
1423                 my $oldkey = $key;
1424                 $key =~ s/Copy/Name/;
1425                 $oneitem->{$key} = $value;
1426                 delete($oneitem->{$oldkey});
1427             }
1428         }
1429     }
1430 }
1431
1432 ############################################################################
1433 # Removing all language pack files from installation set (files with
1434 # the style LANGUAGEPACK), except this is a language pack.
1435 ############################################################################
1436
1437 sub remove_Languagepacklibraries_from_Installset
1438 {
1439     my ($itemsarrayref) = @_;
1440
1441     my $infoline;
1442
1443     my @newitemsarray = ();
1444
1445     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1446     {
1447         my $oneitem = ${$itemsarrayref}[$i];
1448         my $styles = "";
1449         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1450
1451         if ( $styles =~ /\bLANGUAGEPACK\b/ )
1452         {
1453             $infoline = "Removing language pack file $oneitem->{'gid'} from the installation set.\n";
1454             push( @installer::globals::globallogfileinfo, $infoline);
1455
1456             next;
1457         }
1458
1459         push(@newitemsarray, $oneitem);
1460     }
1461
1462     $infoline = "\n";
1463     push( @installer::globals::globallogfileinfo, $infoline);
1464
1465     return \@newitemsarray;
1466 }
1467
1468 ############################################################################
1469 # Removing all help pack files from installation set (files with
1470 # the style HELPPACK), except this is a help pack.
1471 ############################################################################
1472
1473 sub remove_Helppacklibraries_from_Installset
1474 {
1475     my ($itemsarrayref) = @_;
1476
1477     my $infoline;
1478
1479     my @newitemsarray = ();
1480
1481     for ( my $i = 0; $i <= $#{$itemsarrayref}; $i++ )
1482     {
1483         my $oneitem = ${$itemsarrayref}[$i];
1484         my $styles = "";
1485         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1486
1487         if ( $styles =~ /\bHELPPACK\b/ )
1488         {
1489             $infoline = "Removing help pack file $oneitem->{'gid'} from the installation set.\n";
1490             push( @installer::globals::globallogfileinfo, $infoline);
1491
1492             next;
1493         }
1494
1495         push(@newitemsarray, $oneitem);
1496     }
1497
1498     $infoline = "\n";
1499     push( @installer::globals::globallogfileinfo, $infoline);
1500
1501     return \@newitemsarray;
1502 }
1503
1504 ############################################################################
1505 # Some files cotain a $ in their name. epm conflicts with such files.
1506 # Solution: Renaming this files, converting "$" to "$$"
1507 ############################################################################
1508
1509 sub quoting_illegal_filenames
1510 {
1511     my ($filesarrayref) = @_;
1512
1513     # This function has to be removed as soon as possible!
1514
1515     installer::logger::include_header_into_logfile("Renaming illegal filenames:");
1516
1517     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1518     {
1519         my $onefile = ${$filesarrayref}[$i];
1520         my $filename = $onefile->{'Name'};
1521
1522         if ( $filename =~ /\$/ )
1523         {
1524             my $sourcepath = $onefile->{'sourcepath'};
1525             my $destpath = $onefile->{'destination'};
1526
1527             # sourcepath and destination have to be quoted for epm list file
1528
1529             $destpath =~ s/\$/\$\$/g;
1530             $sourcepath =~ s/\$/\$\$/g;
1531
1532             my $infoline = "ATTENTION: Files: Quoting sourcepath $onefile->{'sourcepath'} to $sourcepath\n";
1533             push( @installer::globals::logfileinfo, $infoline);
1534             $infoline = "ATTENTION: Files: Quoting destination path $onefile->{'destination'} to $destpath\n";
1535             push( @installer::globals::logfileinfo, $infoline);
1536
1537             $onefile->{'sourcepath'} = $sourcepath;
1538             $onefile->{'destination'} = $destpath;
1539         }
1540     }
1541 }
1542
1543 ############################################################################
1544 # Removing multiple occurrences of same module.
1545 ############################################################################
1546
1547 sub optimize_list
1548 {
1549     my ( $longlist ) = @_;
1550     my %tmpHash;
1551
1552     $longlist =~ s/^\s+//;
1553     $longlist =~ s/\s+$//;
1554     $longlist =~ s/\s*,\s*/,/g;
1555
1556     @tmpHash{split /,/, $longlist} = ();
1557     return join(",", sort keys %tmpHash);
1558 }
1559
1560 #######################################################################
1561 # Collecting all directories needed for the epm list
1562 # 1. Looking for all destination paths in the files array
1563 # 2. Looking for directories with CREATE flag in the directory array
1564 #######################################################################
1565
1566 ##################################
1567 # Collecting directories: Part 1
1568 ##################################
1569
1570 sub collect_directories_from_filesarray
1571 {
1572     my ($filesarrayref) = @_;
1573
1574     my @alldirectories = ();
1575     my %alldirectoryhash = ();
1576
1577     my $predefinedprogdir_added = 0;
1578
1579     # Preparing this already as hash, although the only needed value at the moment is the HostName
1580     # But also adding: "specificlanguage" and "Dir" (for instance gid_Dir_Program)
1581
1582     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
1583     {
1584         my $onefile = ${$filesarrayref}[$i];
1585         my $destinationpath = $onefile->{'destination'};
1586         installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationpath);
1587         $destinationpath =~ s/\Q$installer::globals::separator\E\s*$//;     # removing ending slashes or backslashes
1588
1589         do
1590         {
1591             if (!exists($alldirectoryhash{$destinationpath}))
1592             {
1593                 my %directoryhash = ();
1594                 $directoryhash{'HostName'} = $destinationpath;
1595                 $directoryhash{'specificlanguage'} = $onefile->{'specificlanguage'};
1596                 $directoryhash{'Dir'} = $onefile->{'Dir'};
1597                 $directoryhash{'modules'} = $onefile->{'modules'}; # NEW, saving modules
1598
1599                 $predefinedprogdir_added ||= $onefile->{'Dir'} eq "PREDEFINED_PROGDIR";
1600
1601                 $alldirectoryhash{$destinationpath} = \%directoryhash;
1602             }
1603             else
1604             {
1605                 # Adding the modules to the module list!
1606                 $alldirectoryhash{$destinationpath}->{'modules'} .= "," . $onefile->{'modules'};
1607             }
1608         } while ($destinationpath =~ s/(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/$1/);  # as long as the path contains slashes
1609     }
1610
1611     # if there is no file in the root directory PREDEFINED_PROGDIR, it has to be included into the directory array now
1612     # HostName= specificlanguage=   Dir=PREDEFINED_PROGDIR
1613
1614     if (! $predefinedprogdir_added )
1615     {
1616         my %directoryhash = ();
1617         $directoryhash{'HostName'} = "";
1618         $directoryhash{'specificlanguage'} = "";
1619         $directoryhash{'modules'} = ""; # ToDo?
1620         $directoryhash{'Dir'} = "PREDEFINED_PROGDIR";
1621
1622         push(@alldirectories, \%directoryhash);
1623     }
1624
1625     # Creating directory array
1626     foreach my $destdir ( sort keys %alldirectoryhash )
1627     {
1628         $alldirectoryhash{$destdir}->{'modules'} = optimize_list($alldirectoryhash{$destdir}->{'modules'});
1629         push(@alldirectories, $alldirectoryhash{$destdir});
1630     }
1631
1632     return (\@alldirectories, \%alldirectoryhash);
1633 }
1634
1635 ##################################
1636 # Collecting directories: Part 2
1637 ##################################
1638
1639 sub collect_directories_with_create_flag_from_directoryarray
1640 {
1641     my ($directoryarrayref, $alldirectoryhash) = @_;
1642
1643     my $alreadyincluded = 0;
1644     my @alldirectories = ();
1645
1646     for ( my $i = 0; $i <= $#{$directoryarrayref}; $i++ )
1647     {
1648         my $onedir = ${$directoryarrayref}[$i];
1649         my $styles = "";
1650         $newdirincluded = 0;
1651
1652         if ( $onedir->{'Styles'} ) { $styles = $onedir->{'Styles'}; }
1653
1654         if ( $styles =~ /\bCREATE\b/ )
1655         {
1656             my $directoryname = "";
1657
1658             if ( $onedir->{'HostName'} ) { $directoryname = $onedir->{'HostName'}; }
1659             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"); }
1660
1661             $alreadyincluded = 0;
1662             if ( exists($alldirectoryhash->{$directoryname}) ) { $alreadyincluded = 1; }
1663
1664             if (!($alreadyincluded))
1665             {
1666                 my %directoryhash = ();
1667                 $directoryhash{'HostName'} = $directoryname;
1668                 $directoryhash{'specificlanguage'} = $onedir->{'specificlanguage'};
1669                 $directoryhash{'Dir'} = $onedir->{'gid'};
1670                 $directoryhash{'Styles'} = $onedir->{'Styles'};
1671
1672                 # saving also the modules
1673                 if ( ! $onedir->{'modules'} ) { installer::exiter::exit_program("ERROR: No assigned modules found for directory $onedir->{'gid'}", "collect_directories_with_create_flag_from_directoryarray"); }
1674                 $directoryhash{'modules'} = $onedir->{'modules'};
1675
1676                 $alldirectoryhash->{$directoryname} = \%directoryhash;
1677                 $newdirincluded = 1;
1678
1679                 # Problem: The $destinationpath can be share/registry/schema/org/openoffice
1680                 # but not all directories contain files and will be added to this list.
1681                 # Therefore the path has to be analyzed.
1682
1683                 while ( $directoryname =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )  # as long as the path contains slashes
1684                 {
1685                     $directoryname = $1;
1686
1687                     $alreadyincluded = 0;
1688                     if ( exists($alldirectoryhash->{$directoryname}) ) { $alreadyincluded = 1; }
1689
1690                     if (!($alreadyincluded))
1691                     {
1692                         my %directoryhash = ();
1693
1694                         $directoryhash{'HostName'} = $directoryname;
1695                         $directoryhash{'specificlanguage'} = $onedir->{'specificlanguage'};
1696                         $directoryhash{'Dir'} = $onedir->{'gid'};
1697                         if ( ! $installer::globals::iswindowsbuild ) { $directoryhash{'Styles'} = "(CREATE)"; } # Exeception for Windows?
1698
1699                         # saving also the modules
1700                         $directoryhash{'modules'} = $onedir->{'modules'};
1701
1702                         $alldirectoryhash->{$directoryname} = \%directoryhash;
1703                         $newdirincluded = 1;
1704                     }
1705                     else
1706                     {
1707                         # Adding the modules to the module list!
1708                         $alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
1709                     }
1710                 }
1711             }
1712             else
1713             {
1714                 # Adding the modules to the module list!
1715                 $alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
1716
1717                 while ( $directoryname =~ /(^.*\S)\Q$installer::globals::separator\E(\S.*?)\s*$/ )  # as long as the path contains slashes
1718                 {
1719                     $directoryname = $1;
1720                     # Adding the modules to the module list!
1721                     $alldirectoryhash->{$directoryname}->{'modules'} = $alldirectoryhash->{$directoryname}->{'modules'} . "," . $onedir->{'modules'};
1722                 }
1723             }
1724         }
1725
1726         # Saving the styles for already added directories in function collect_directories_from_filesarray
1727
1728         if (( ! $newdirincluded ) && ( $styles ne "" ))
1729         {
1730             $styles =~ s/\bWORKSTATION\b//;
1731             $styles =~ s/\bCREATE\b//;
1732
1733             if (( ! ( $styles =~ /^\s*\(\s*\)\s*$/ )) && ( ! ( $styles =~ /^\s*\(\s*\,\s*\)\s*$/ )) && ( ! ( $styles =~ /^\s*$/ ))) # checking, if there are styles left
1734             {
1735                 my $directoryname = "";
1736                 if ( $onedir->{'HostName'} ) { $directoryname = $onedir->{'HostName'}; }
1737                 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"); }
1738
1739                 if ( exists($alldirectoryhash->{$directoryname}) )
1740                 {
1741                     $alldirectoryhash->{$directoryname}->{'Styles'} = $styles;
1742                 }
1743             }
1744         }
1745     }
1746
1747     # Creating directory array
1748     foreach my $destdir ( sort keys %{$alldirectoryhash} )
1749     {
1750         $alldirectoryhash->{$destdir}->{'modules'} = optimize_list($alldirectoryhash->{$destdir}->{'modules'});
1751         push(@alldirectories, $alldirectoryhash->{$destdir});
1752     }
1753
1754     return (\@alldirectories, \%alldirectoryhash);
1755 }
1756
1757 #################################################
1758 # Determining the destination file of a link
1759 #################################################
1760
1761 sub get_destination_file_path_for_links
1762 {
1763     my ($linksarrayref, $filesarrayref) = @_;
1764
1765     my $infoline;
1766
1767     for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
1768     {
1769         my $fileid = "";
1770         my $onelink = ${$linksarrayref}[$i];
1771         if ( $onelink->{'FileID'} ) { $fileid = $onelink->{'FileID'}; }
1772
1773         if (!( $fileid eq "" ))
1774         {
1775             my $foundfile = 0;
1776
1777             for ( my $j = 0; $j <= $#{$filesarrayref}; $j++ )
1778             {
1779                 my $onefile = ${$filesarrayref}[$j];
1780                 my $filegid = $onefile->{'gid'};
1781
1782                 if ( $filegid eq $fileid )
1783                 {
1784                     $foundfile = 1;
1785                     $onelink->{'destinationfile'} = $onefile->{'destination'};
1786                     last;
1787                 }
1788             }
1789
1790             if (!($foundfile))
1791             {
1792                 $infoline = "Warning: FileID $fileid for Link $onelink->{'gid'} not found!\n";
1793                 push( @installer::globals::logfileinfo, $infoline);
1794             }
1795         }
1796     }
1797
1798     $infoline = "\n";
1799     push( @installer::globals::logfileinfo, $infoline);
1800 }
1801
1802 #################################################
1803 # Determining the destination link of a link
1804 #################################################
1805
1806 sub get_destination_link_path_for_links
1807 {
1808     my ($linksarrayref) = @_;
1809
1810     my $infoline;
1811
1812     for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
1813     {
1814         my $shortcutid = "";
1815         my $onelink = ${$linksarrayref}[$i];
1816         if ( $onelink->{'ShortcutID'} ) { $shortcutid = $onelink->{'ShortcutID'}; }
1817
1818         if (!( $shortcutid eq "" ))
1819         {
1820             my $foundlink = 0;
1821
1822             for ( my $j = 0; $j <= $#{$linksarrayref}; $j++ )
1823             {
1824                 my $destlink = ${$linksarrayref}[$j];
1825                 $shortcutgid = $destlink->{'gid'};
1826
1827                 if ( $shortcutgid eq $shortcutid )
1828                 {
1829                     $foundlink = 1;
1830                     $onelink->{'destinationfile'} = $destlink->{'destination'};     # making key 'destinationfile'
1831                     last;
1832                 }
1833             }
1834
1835             if (!($foundlink))
1836             {
1837                 $infoline = "Warning: ShortcutID $shortcutid for Link $onelink->{'gid'} not found!\n";
1838                 push( @installer::globals::logfileinfo, $infoline);
1839             }
1840         }
1841     }
1842
1843     $infoline = "\n";
1844     push( @installer::globals::logfileinfo, $infoline);
1845 }
1846
1847 ###################################################################################
1848 # Items with flag WORKSTATION are not needed (here: links and configurationitems)
1849 ###################################################################################
1850
1851 sub remove_workstation_only_items
1852 {
1853     my ($itemarrayref) = @_;
1854
1855     my @newitemarray = ();
1856
1857     for ( my $i = 0; $i <= $#{$itemarrayref}; $i++ )
1858     {
1859         my $oneitem = ${$itemarrayref}[$i];
1860         my $styles = $oneitem->{'Styles'};
1861
1862         if (( $styles =~ /\bWORKSTATION\b/ ) &&
1863             (!( $styles =~ /\bNETWORK\b/ )) &&
1864             (!( $styles =~ /\bSTANDALONE\b/ )))
1865         {
1866             next;   # removing this link, it is only needed for a workstation installation
1867         }
1868
1869         push(@newitemarray, $oneitem);
1870     }
1871
1872     return \@newitemarray;
1873 }
1874
1875 ################################################
1876 # Resolving relative path in links
1877 ################################################
1878
1879 sub resolve_links_with_flag_relative
1880 {
1881     my ($linksarrayref) = @_;
1882
1883     # Before this step is:
1884     # destination=program/libsalhelperC52.so.3, this will be the name of the link
1885     # destinationfile=program/libsalhelperC52.so.3, this will be the linked file or name
1886     # If the flag RELATIVE is set, the paths have to be analyzed. If the flag is not set
1887     # (this will not occur in the future?) destinationfile has to be an absolute path name
1888
1889     for ( my $i = 0; $i <= $#{$linksarrayref}; $i++ )
1890     {
1891         my $onelink = ${$linksarrayref}[$i];
1892         my $styles = $onelink->{'Styles'};
1893
1894         if ( $styles =~ /\bRELATIVE\b/ )
1895         {
1896             # ToDo: This is only a simple not sufficient mechanism
1897
1898             my $destination = $onelink->{'destination'};
1899             my $destinationfile = $onelink->{'destinationfile'};
1900
1901             my $destinationpath = $destination;
1902
1903             installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationpath);
1904
1905             my $destinationfilepath = $destinationfile;
1906
1907             # it is possible, that the destinationfile is no longer part of the files collector
1908             if ($destinationfilepath) { installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationfilepath); }
1909             else { $destinationfilepath = ""; }
1910
1911             if ( $destinationpath eq $destinationfilepath )
1912             {
1913                 # link and file are in the same directory
1914                 # Therefore the path of the file can be removed
1915
1916                 my $newdestinationfile = $destinationfile;
1917                 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$newdestinationfile);
1918
1919                 $onelink->{'destinationfile'} = $newdestinationfile;
1920             }
1921         }
1922     }
1923 }
1924
1925 ########################################################################
1926 # This function is a helper of function "assigning_modules_to_items"
1927 ########################################################################
1928
1929 sub insert_for_item ($$$)
1930 {
1931     my ($hash, $item, $id) = @_;
1932
1933     if (!defined $hash->{$item})
1934     {
1935         my @gids = ();
1936         $hash->{$item} = \@gids;
1937     }
1938     my $gid_list = $hash->{$item};
1939     push @{$gid_list}, $id;
1940     $hash->{$item} = $gid_list;
1941 }
1942
1943 sub build_modulegids_table
1944 {
1945     my ($modulesref, $itemname) = @_;
1946
1947     my %module_lookup_table = ();
1948
1949     # build map of item names to list of respective module gids
1950     # containing these items
1951     for my $onemodule (@{$modulesref})
1952     {
1953         next if ( ! defined $onemodule->{$itemname} );
1954         # these are the items contained in this module
1955         # eg. Files = (gid_a_b_c,gid_d_e_f)
1956         my $module_gids = $onemodule->{$itemname};
1957
1958         # prune outer brackets
1959         $module_gids =~ s|^\s*\(||g;
1960         $module_gids =~ s|\)\s*$||g;
1961         for my $id (split (/,/, $module_gids))
1962         {
1963             chomp $id;
1964             insert_for_item(\%module_lookup_table, lc ($id), $onemodule->{'gid'});
1965         }
1966     }
1967
1968     return \%module_lookup_table;
1969 }
1970
1971 ########################################################################
1972 # Items like files do not know their modules
1973 # This function is a helper of function "assigning_modules_to_items"
1974 ########################################################################
1975
1976 sub get_string_of_modulegids_for_itemgid
1977 {
1978     my ($module_lookup_table, $modulesref, $itemgid, $itemname) = @_;
1979
1980     my $allmodules = "";
1981     my $haslanguagemodule = 0;
1982     my %foundmodules = ();
1983
1984     my $gid_list = $module_lookup_table->{lc($itemgid)};
1985
1986     for my $gid (@{$gid_list})
1987     {
1988         $foundmodules{$gid} = 1;
1989         $allmodules = $allmodules . "," . $gid;
1990         # Is this module a language module? This info should be stored at the file.
1991         if ( exists($installer::globals::alllangmodules{$gid}) ) { $haslanguagemodule = 1; }
1992      }
1993
1994     $allmodules =~ s/^\s*\,//;  # removing leading comma
1995
1996     # Check: All modules or no module must have flag LANGUAGEMODULE
1997     if ( $haslanguagemodule )
1998     {
1999         my $isreallylanguagemodule = _key_in_a_is_also_key_in_b(\%foundmodules, \%installer::globals::alllangmodules);
2000         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");  }
2001     }
2002
2003     return ($allmodules, $haslanguagemodule);
2004 }
2005
2006 ########################################################
2007 # Items like files do not know their modules
2008 # This function add the {'modules'} to these items
2009 ########################################################
2010
2011 sub assigning_modules_to_items
2012 {
2013     my ($modulesref, $itemsref, $itemname) = @_;
2014
2015     my $infoline = "";
2016     my $languageassignmenterror = 0;
2017     my @languageassignmenterrors = ();
2018
2019     my $module_lookup_table = build_modulegids_table($modulesref, $itemname);
2020
2021     for my $oneitem (@{$itemsref})
2022     {
2023         my $itemgid = $oneitem->{'gid'};
2024
2025         my $styles = "";
2026         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
2027         if (( $itemname eq "Dirs" ) && ( ! ( $styles =~ /\bCREATE\b/ ))) { next; }
2028
2029         if ( $itemgid eq "" )
2030         {
2031             installer::exiter::exit_program("ERROR in item collection: No gid for item $oneitem->{'Name'}", "assigning_modules_to_items");
2032         }
2033
2034         # every item can belong to many modules
2035
2036         my ($modulegids, $haslanguagemodule) = get_string_of_modulegids_for_itemgid($module_lookup_table, $modulesref, $itemgid, $itemname);
2037
2038         if ($modulegids eq "")
2039         {
2040             installer::exiter::exit_program("ERROR in file collection: No module found for $itemname $itemgid", "assigning_modules_to_items");
2041         }
2042
2043         $oneitem->{'modules'} = $modulegids;
2044         $oneitem->{'haslanguagemodule'} = $haslanguagemodule;
2045
2046         # Important check: "ismultilingual" and "haslanguagemodule" must have the same value !
2047         if (( $oneitem->{'ismultilingual'} ) && ( ! $oneitem->{'haslanguagemodule'} ))
2048         {
2049             $infoline = "Error: \"$oneitem->{'gid'}\" is multi lingual, but not in language pack (Assigned module: $modulegids)!\n";
2050             push( @installer::globals::globallogfileinfo, $infoline);
2051             push( @languageassignmenterrors, $infoline );
2052             $languageassignmenterror = 1;
2053         }
2054         if (( $oneitem->{'haslanguagemodule'} ) && ( ! $oneitem->{'ismultilingual'} ))
2055         {
2056             $infoline = "Error: \"$oneitem->{'gid'}\" is in language pack, but not multi lingual (Assigned module: $modulegids)!\n";
2057             push( @installer::globals::globallogfileinfo, $infoline);
2058             push( @languageassignmenterrors, $infoline );
2059             $languageassignmenterror = 1;
2060         }
2061     }
2062
2063     if ($languageassignmenterror)
2064     {
2065         for ( my $i = 0; $i <= $#languageassignmenterrors; $i++ ) { print "$languageassignmenterrors[$i]"; }
2066         installer::exiter::exit_program("ERROR: Incorrect assignments for language packs.", "assigning_modules_to_items");
2067     }
2068
2069 }
2070
2071 #################################################################################################
2072 # Root path (for instance /opt/openofficeorg20) needs to be added to directories, files and links
2073 #################################################################################################
2074
2075 sub add_rootpath_to_directories
2076 {
2077     my ($dirsref, $rootpath) = @_;
2078
2079     for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
2080     {
2081         my $onedir = ${$dirsref}[$i];
2082         my $dir = "";
2083
2084         if ( $onedir->{'Dir'} ) { $dir = $onedir->{'Dir'}; }
2085
2086         if (!($dir =~ /\bPREDEFINED_/ ))
2087         {
2088             my $hostname = $onedir->{'HostName'};
2089             $hostname = $rootpath . $installer::globals::separator . $hostname;
2090             $onedir->{'HostName'} = $hostname;
2091         }
2092
2093         # added
2094
2095         if ( $dir =~ /\bPREDEFINED_PROGDIR\b/ )
2096         {
2097             my $hostname = $onedir->{'HostName'};
2098             if ( $hostname eq "" ) { $onedir->{'HostName'} = $rootpath; }
2099             else { $onedir->{'HostName'} = $rootpath . $installer::globals::separator . $hostname; }
2100         }
2101     }
2102 }
2103
2104 sub add_rootpath_to_files
2105 {
2106     my ($filesref, $rootpath) = @_;
2107
2108     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2109     {
2110         my $onefile = ${$filesref}[$i];
2111         my $destination = $onefile->{'destination'};
2112         $destination = $rootpath . $installer::globals::separator . $destination;
2113         $onefile->{'destination'} = $destination;
2114     }
2115 }
2116
2117 sub add_rootpath_to_links
2118 {
2119     my ($linksref, $rootpath) = @_;
2120
2121     for ( my $i = 0; $i <= $#{$linksref}; $i++ )
2122     {
2123         my $onelink = ${$linksref}[$i];
2124         my $styles = $onelink->{'Styles'};
2125
2126         my $destination = $onelink->{'destination'};
2127         $destination = $rootpath . $installer::globals::separator . $destination;
2128         $onelink->{'destination'} = $destination;
2129
2130         if (!($styles =~ /\bRELATIVE\b/ )) # for absolute links
2131         {
2132             my $destinationfile = $onelink->{'destinationfile'};
2133             $destinationfile = $rootpath . $installer::globals::separator . $destinationfile;
2134             $onelink->{'destinationfile'} = $destinationfile;
2135         }
2136     }
2137 }
2138
2139 #################################################################################
2140 # Collecting all parent gids
2141 #################################################################################
2142
2143 sub collect_all_parent_feature
2144 {
2145     my ($modulesref) = @_;
2146
2147     my @allparents = ();
2148
2149     my $found_root_module = 0;
2150
2151     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2152     {
2153         my $onefeature = ${$modulesref}[$i];
2154
2155         my $parentgid = "";
2156         if ( $onefeature->{'ParentID'} )
2157         {
2158             $parentgid = $onefeature->{'ParentID'};
2159         }
2160
2161         if ( $parentgid ne "" )
2162         {
2163             if (! grep {$_ eq $parentgid} @allparents)
2164             {
2165                 push(@allparents, $parentgid);
2166             }
2167         }
2168
2169         # Setting the global root module
2170
2171         if ( $parentgid eq "" )
2172         {
2173             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"); }
2174             $installer::globals::rootmodulegid = $onefeature->{'gid'};
2175             $found_root_module = 1;
2176             $infoline = "Setting Root Module: $installer::globals::rootmodulegid\n";
2177             push( @installer::globals::globallogfileinfo, $infoline);
2178         }
2179
2180         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"); }
2181
2182     }
2183
2184     return \@allparents;
2185 }
2186
2187 #################################################################################
2188 # Checking for every feature, whether it has children
2189 #################################################################################
2190
2191 sub set_children_flag
2192 {
2193     my ($modulesref) = @_;
2194
2195     my $allparents = collect_all_parent_feature($modulesref);
2196
2197     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2198     {
2199         my $onefeature = ${$modulesref}[$i];
2200         my $gid = $onefeature->{'gid'};
2201
2202         # is this gid a parent?
2203
2204         if ( grep {$_ eq $gid} @{$allparents} )
2205         {
2206             $onefeature->{'has_children'} = 1;
2207         }
2208         else
2209         {
2210             $onefeature->{'has_children'} = 0;
2211         }
2212     }
2213 }
2214
2215 #################################################################################
2216 # All modules, that use a template module, do now get the assignments of
2217 # the template module.
2218 #################################################################################
2219
2220 sub resolve_assigned_modules
2221 {
2222     my ($modulesref) = @_;
2223
2224     # collecting all template modules
2225
2226     my %directaccess = ();
2227
2228     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2229     {
2230         my $onefeature = ${$modulesref}[$i];
2231         my $styles = "";
2232         if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2233         if ( $styles =~ /\bTEMPLATEMODULE\b/ ) { $directaccess{$onefeature->{'gid'}} = $onefeature; }
2234
2235         # also looking for module with flag ROOT_BRAND_PACKAGE, to save is for further usage
2236         if ( $styles =~ /\bROOT_BRAND_PACKAGE\b/ )
2237         {
2238             $installer::globals::rootbrandpackage = $onefeature->{'gid'};
2239             $installer::globals::rootbrandpackageset = 1;
2240         }
2241     }
2242
2243     # looking, where template modules are assigned
2244
2245     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2246     {
2247         my $onefeature = ${$modulesref}[$i];
2248         if ( $onefeature->{'Assigns'} )
2249         {
2250             my $templategid = $onefeature->{'Assigns'};
2251
2252             if ( ! exists($directaccess{$templategid}) )
2253             {
2254                 installer::exiter::exit_program("ERROR: Did not find definition of assigned template module \"$templategid\"", "resolve_assigned_modules");
2255             }
2256
2257             # Currently no merging of Files, Dirs, ...
2258             # This has to be included here, if it is required
2259             my @items_at_modules = ("Files", "Dirs", "Unixlinks");
2260             for my $item (@items_at_modules)
2261             {
2262                 if ( exists($directaccess{$templategid}->{$item}) ) { $onefeature->{$item} = $directaccess{$templategid}->{$item}; }
2263             }
2264         }
2265     }
2266 }
2267
2268 #################################################################################
2269 # Removing the template modules from the list, after all
2270 # assignments are transferred to the "real" modules.
2271 #################################################################################
2272
2273 sub remove_template_modules
2274 {
2275     my ($modulesref) = @_;
2276
2277     my @modules = ();
2278
2279     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2280     {
2281         my $onefeature = ${$modulesref}[$i];
2282         my $styles = "";
2283         if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2284         if ( $styles =~ /\bTEMPLATEMODULE\b/ ) { next; }
2285
2286         push(@modules, $onefeature);
2287     }
2288
2289     return \@modules;
2290 }
2291
2292 #################################################################################
2293 # Collecting all modules with flag LANGUAGEMODULE in a global
2294 # collector.
2295 #################################################################################
2296
2297 sub collect_all_languagemodules
2298 {
2299     my ($modulesref) = @_;
2300
2301     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2302     {
2303         my $onefeature = ${$modulesref}[$i];
2304         my $styles = "";
2305         if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2306         if ( $styles =~ /\bLANGUAGEMODULE\b/ )
2307         {
2308             if ( ! exists($onefeature->{'Language'}) ) { installer::exiter::exit_program("ERROR: \"$onefeature->{'gid'}\" has flag LANGUAGEMODULE, but does not know its language!", "collect_all_languagemodules"); }
2309             $installer::globals::alllangmodules{$onefeature->{'gid'}} = $onefeature->{'Language'};
2310             # Collecting also the english names, that are used for nsis unpack directory for language packs
2311             my $lang = $onefeature->{'Language'};
2312             my $name = "";
2313             foreach my $localkey ( keys %{$onefeature} )
2314             {
2315                 if ( $localkey =~ /^\s*Name\s*\(\s*en-US\s*\)\s*$/ )
2316                 {
2317                     $installer::globals::all_english_languagestrings{$lang} = $onefeature->{$localkey};
2318                 }
2319             }
2320         }
2321     }
2322 }
2323
2324 #################################################################################
2325 # Selecting from all collected english language strings those, that are really
2326 # required in this installation set.
2327 #################################################################################
2328
2329 sub select_required_language_strings
2330 {
2331     my ($modulesref) = @_;
2332
2333     for ( my $i = 0; $i <= $#{$modulesref}; $i++ )
2334     {
2335         my $onefeature = ${$modulesref}[$i];
2336         my $styles = "";
2337         if ( $onefeature->{'Styles'} ) { $styles = $onefeature->{'Styles'}; }
2338         if ( $styles =~ /\bLANGUAGEMODULE\b/ )
2339         {
2340             if ( ! exists($onefeature->{'Language'}) ) { installer::exiter::exit_program("ERROR: \"$onefeature->{'gid'}\" has flag LANGUAGEMODULE, but does not know its language!", "select_required_language_strings"); }
2341             my $lang = $onefeature->{'Language'};
2342
2343             if (( exists($installer::globals::all_english_languagestrings{$lang}) ) && ( ! exists($installer::globals::all_required_english_languagestrings{$lang}) ))
2344             {
2345                 $installer::globals::all_required_english_languagestrings{$lang} = $installer::globals::all_english_languagestrings{$lang};
2346             }
2347         }
2348     }
2349 }
2350
2351 ################################################
2352 # Controlling that all keys in hash A are
2353 # also key in hash B.
2354 ################################################
2355
2356 sub _key_in_a_is_also_key_in_b
2357 {
2358     my ( $hashref_a, $hashref_b) = @_;
2359
2360     my $returnvalue = 1;
2361
2362     my $key;
2363     foreach $key ( keys %{$hashref_a} )
2364     {
2365         if ( ! exists($hashref_b->{$key}) )
2366         {
2367             print "*****\n";
2368             foreach $keyb ( keys %{$hashref_b} ) { print "$keyb : $hashref_b->{$keyb}\n"; }
2369             print "*****\n";
2370             $returnvalue = 0;
2371         }
2372     }
2373
2374     return $returnvalue;
2375 }
2376
2377 1;