solenv/bin/modules/installer/scriptitems.pm

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