solenv/bin/modules/installer/worker.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: worker.pm,v $
  10 #
  11 # $Revision: 1.65.56.1 $
  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::worker;
  33
  34 use Cwd;
  35 use File::Copy;
  36 use File::stat;
  37 use File::Temp qw(tmpnam);
  38 use installer::control;
  39 use installer::converter;
  40 use installer::existence;
  41 use installer::exiter;
  42 use installer::files;
  43 use installer::globals;
  44 use installer::logger;
  45 use installer::mail;
  46 use installer::pathanalyzer;
  47 use installer::scpzipfiles;
  48 use installer::scriptitems;
  49 use installer::sorter;
  50 use installer::systemactions;
  51 use installer::windows::language;
  52
  53 #####################################################################
  54 # Unpacking all files ending with tar.gz in a specified directory
  55 #####################################################################
  56
  57 sub unpack_all_targzfiles_in_directory
  58 {
  59     my ( $directory ) = @_;
  60
  61     installer::logger::include_header_into_logfile("Unpacking tar.gz files:");
  62
  63     installer::logger::print_message( "... unpacking tar.gz files ... \n" );
  64
  65     my $localdirectory = $directory . $installer::globals::separator . "packages";
  66     my $alltargzfiles = installer::systemactions::find_file_with_file_extension("tar.gz", $localdirectory);
  67
  68     for ( my $i = 0; $i <= $#{$alltargzfiles}; $i++ )
  69     {
  70         my $onefile = $localdirectory . $installer::globals::separator . ${$alltargzfiles}[$i];
  71
  72         my $systemcall = "cd $localdirectory; cat ${$alltargzfiles}[$i] \| gunzip \| tar -xf -";
  73         $returnvalue = system($systemcall);
  74
  75         my $infoline = "Systemcall: $systemcall\n";
  76         push( @installer::globals::logfileinfo, $infoline);
  77
  78         if ($returnvalue)
  79         {
  80             $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
  81             push( @installer::globals::logfileinfo, $infoline);
  82         }
  83         else
  84         {
  85             $infoline = "Success: Executed \"$systemcall\" successfully!\n";
  86             push( @installer::globals::logfileinfo, $infoline);
  87         }
  88     }
  89 }
  90
  91 #########################################
  92 # Copying installation sets to ship
  93 #########################################
  94
  95 sub copy_install_sets_to_ship
  96 {
  97     my ( $destdir, $shipinstalldir  ) = @_;
  98
  99     installer::logger::include_header_into_logfile("Copying installation set to ship:");
 100
 101     my $dirname = $destdir;
 102     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$dirname);
 103     $dirname = $dirname . "_inprogress";
 104     my $localshipinstalldir = $shipinstalldir . $installer::globals::separator . $dirname;
 105     if ( ! -d $localshipinstalldir ) { installer::systemactions::create_directory_structure($localshipinstalldir); }
 106
 107     # copy installation set to /ship ($localshipinstalldir)
 108     installer::logger::print_message( "... copy installation set from " . $destdir . " to " . $localshipinstalldir . "\n" );
 109     installer::systemactions::copy_complete_directory($destdir, $localshipinstalldir);
 110
 111     if (( ! $installer::globals::iswindowsbuild ) && ( $installer::globals::addjavainstaller ))
 112     {
 113         # Setting Unix rights for Java starter ("setup")
 114         my $localcall = "chmod 775 $localshipinstalldir/setup \>\/dev\/null 2\>\&1";
 115         system($localcall);
 116     }
 117
 118     # unpacking the tar.gz file for Solaris
 119     if ( $installer::globals::issolarisbuild ) { unpack_all_targzfiles_in_directory($localshipinstalldir); }
 120
 121     $localshipinstalldir = installer::systemactions::rename_string_in_directory($localshipinstalldir, "_inprogress", "");
 122
 123     return $localshipinstalldir;
 124 }
 125
 126 #########################################
 127 # Copying installation sets to ship
 128 #########################################
 129
 130 sub link_install_sets_to_ship
 131 {
 132     my ( $destdir, $shipinstalldir  ) = @_;
 133
 134     installer::logger::include_header_into_logfile("Linking installation set to ship:");
 135
 136     my $infoline = "... destination directory: $shipinstalldir ...\n";
 137     installer::logger::print_message( $infoline );
 138     push( @installer::globals::logfileinfo, $infoline);
 139
 140     if ( ! -d $shipinstalldir)
 141     {
 142         $infoline = "Creating directory: $shipinstalldir\n";
 143         push( @installer::globals::logfileinfo, $infoline);
 144         installer::systemactions::create_directory_structure($shipinstalldir);
 145         $infoline = "Created directory: $shipinstalldir\n";
 146         push( @installer::globals::logfileinfo, $infoline);
 147     }
 148
 149     my $dirname = $destdir;
 150     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$dirname);
 151
 152     my $localshipinstalldir = $shipinstalldir . $installer::globals::separator . $dirname;
 153
 154     # link installation set to /ship ($localshipinstalldir)
 155     installer::logger::print_message( "... linking installation set from " . $destdir . " to " . $localshipinstalldir . "\n" );
 156
 157     my $systemcall = "ln -s $destdir $localshipinstalldir";
 158
 159     $returnvalue = system($systemcall);
 160
 161     $infoline = "Systemcall: $systemcall\n";
 162     push( @installer::globals::logfileinfo, $infoline);
 163
 164     if ($returnvalue)
 165     {
 166         $infoline = "ERROR: Could not create link \"$localshipinstalldir\"!\n";
 167         push( @installer::globals::logfileinfo, $infoline);
 168     }
 169     else
 170     {
 171         $infoline = "Success: Created link \"$localshipinstalldir\"!\n";
 172         push( @installer::globals::logfileinfo, $infoline);
 173     }
 174
 175     return $localshipinstalldir;
 176 }
 177
 178 #########################################
 179 # Create checksum file
 180 #########################################
 181
 182 sub make_checksum_file
 183 {
 184     my ( $filesref, $includepatharrayref ) = @_;
 185
 186     my @checksum = ();
 187
 188     my $checksumfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$installer::globals::checksumfile, $includepatharrayref, 1);
 189     if ( $$checksumfileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $installer::globals::checksumfile !", "make_checksum_file"); }
 190
 191 #       # very slow on Windows
 192 #       for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 193 #       {
 194 #               my $onefile = ${$filesref}[$i];
 195 #               my $systemcall = "$$checksumfileref $onefile->{'sourcepath'} |";
 196 #               open (CHECK, "$systemcall");
 197 #               my $localchecksum = <CHECK>;
 198 #               close (CHECK);
 199 #               push(@checksum, $localchecksum);
 200 #       }
 201
 202     my $systemcall = "$$checksumfileref";
 203
 204     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 205     {
 206         my $onefile = ${$filesref}[$i];
 207         $systemcall = $systemcall . " " . $onefile->{'sourcepath'};             # very very long systemcall
 208
 209         if ((( $i > 0 ) &&  ( $i%100 == 0 )) || ( $i == $#{$filesref} ))        # limiting to 100 files
 210         {
 211             $systemcall = $systemcall . " \|";
 212
 213             my @localchecksum = ();
 214             open (CHECK, "$systemcall");
 215             @localchecksum = <CHECK>;
 216             close (CHECK);
 217
 218             for ( my $j = 0; $j <= $#localchecksum; $j++ ) { push(@checksum, $localchecksum[$j]); }
 219
 220             $systemcall = "$$checksumfileref";  # reset the system call
 221         }
 222     }
 223
 224     return \@checksum;
 225 }
 226
 227 #########################################
 228 # Saving the checksum file
 229 #########################################
 230
 231 sub save_checksum_file
 232 {
 233     my ($current_install_number, $installchecksumdir, $checksumfile) = @_;
 234
 235     my $numberedchecksumfilename = $installer::globals::checksumfilename;
 236     $numberedchecksumfilename =~ s/\./_$current_install_number\./;      # checksum.txt -> checksum_01.txt
 237     installer::files::save_file($installchecksumdir . $installer::globals::separator . $numberedchecksumfilename, $checksumfile);
 238 }
 239
 240 #################################################
 241 # Writing some global information into
 242 # the list of files without flag PATCH
 243 #################################################
 244
 245 sub write_nopatchlist_header
 246 {
 247     my ( $content ) = @_;
 248
 249     my @header = ();
 250     my $infoline = "This is a list of files, that are defined in scp-projects without\n";
 251     push(@header, $infoline);
 252     $infoline = "flag \"PATCH\". Important: This does not mean in any case, that \n";
 253     push(@header, $infoline);
 254     $infoline = "this files are included into or excluded from a patch. \n\n";
 255     push(@header, $infoline);
 256     $infoline = "Exception Linux: A patch rpm is a complete rpm. This means that all \n";
 257     push(@header, $infoline);
 258     $infoline = "files are included into a patch rpm, if only one file of the rpm has the \n";
 259     push(@header, $infoline);
 260     $infoline = "style \"PATCH\". \n\n";
 261     push(@header, $infoline);
 262
 263     for ( my $i = 0; $i <= $#header; $i++ ) { push(@{$content},$header[$i]); }
 264 }
 265
 266 #################################################
 267 # Creating the content of the list of files
 268 # without flag PATCH.
 269 # All files are saved in
 270 # @{$installer::globals::nopatchfilecollector}
 271 #################################################
 272
 273 sub create_nopatchlist
 274 {
 275     my @content =();
 276
 277     write_nopatchlist_header(\@content);
 278
 279     for ( my $i = 0; $i <= $#{$installer::globals::nopatchfilecollector}; $i++ )
 280     {
 281         my $onefile = ${$installer::globals::nopatchfilecollector}[$i];
 282         my $oneline = $onefile->{'destination'};
 283         if ( $onefile->{'zipfilename'} ) { $oneline = $oneline . " (" . $onefile->{'zipfilename'} . ")"; }
 284         $oneline = $oneline . "\n";
 285         push(@content, $oneline);
 286     }
 287
 288     return \@content;
 289 }
 290
 291 #########################################
 292 # Saving the patchlist file
 293 #########################################
 294
 295 sub save_patchlist_file
 296 {
 297     my ($installlogdir, $patchlistfilename) = @_;
 298
 299     my $installpatchlistdir = installer::systemactions::create_directory_next_to_directory($installlogdir, "patchlist");
 300     $patchlistfilename =~ s/log\_/patchfiles\_/;
 301     $patchlistfilename =~ s/\.log/\.txt/;
 302     installer::files::save_file($installpatchlistdir . $installer::globals::separator . $patchlistfilename, \@installer::globals::patchfilecollector);
 303     installer::logger::print_message( "... creating patchlist file $patchlistfilename \n" );
 304
 305     if (( $installer::globals::patch ) && ( ! $installer::globals::creating_windows_installer_patch ))  # only for non-Windows patches
 306     {
 307         $patchlistfilename =~ s/patchfiles\_/nopatchfiles\_/;
 308         my $nopatchlist = create_nopatchlist();
 309         installer::files::save_file($installpatchlistdir . $installer::globals::separator . $patchlistfilename, $nopatchlist);
 310         installer::logger::print_message( "... creating patch exclusion file $patchlistfilename \n" );
 311     }
 312
 313 }
 314
 315 ###############################################################
 316 # Removing all directories of a special language
 317 # in the directory $basedir
 318 ###############################################################
 319
 320 sub remove_old_installation_sets
 321 {
 322     my ($basedir) = @_;
 323
 324     installer::logger::print_message( "... removing old installation directories ...\n" );
 325
 326     my $removedir = $basedir;
 327
 328     if ( -d $removedir ) { installer::systemactions::remove_complete_directory($removedir, 1); }
 329
 330     # looking for non successful old installation sets
 331
 332     $removedir = $basedir . "_witherror";
 333     if ( -d $removedir ) { installer::systemactions::remove_complete_directory($removedir, 1); }
 334
 335     $removedir = $basedir . "_inprogress";
 336     if ( -d $removedir ) { installer::systemactions::remove_complete_directory($removedir, 1); }
 337
 338     # finally the $basedir can be created empty
 339
 340     if ( $installer::globals::localinstalldirset ) { installer::systemactions::create_directory_structure($basedir); }
 341
 342     installer::systemactions::create_directory($basedir);
 343 }
 344
 345 ###############################################################
 346 # Removing all non successful installation sets on ship
 347 ###############################################################
 348
 349 sub remove_old_ship_installation_sets
 350 {
 351     my ($fulldir, $counter) = @_;
 352
 353     installer::logger::print_message( "... removing old installation directories ...\n" );
 354
 355     my $basedir = $fulldir;
 356     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
 357
 358     # collecting all directories next to the new installation directory
 359     my $alldirs = installer::systemactions::get_all_directories($basedir);
 360
 361     if ( $fulldir =~ /^\s*(.*?inprogress\-)(\d+)(.*?)\s*$/ )
 362     {
 363         my $pre_inprogress = $1;                # $pre still contains "inprogress"
 364         my $number = $2;
 365         my $post = $3;
 366         my $pre_witherror = $pre_inprogress;
 367         $pre_witherror =~ s/inprogress/witherror/;
 368
 369         for ( my $i = 0; $i <= $#{$alldirs}; $i++ )
 370         {
 371             if ( ${$alldirs}[$i] eq $fulldir ) { next; }        # do not delete the newly created directory
 372
 373             if ( ${$alldirs}[$i] =~ /^\s*\Q$pre_inprogress\E\d+\Q$post\E\s*$/ ) # removing old "inprogress" directories
 374             {
 375                 installer::systemactions::remove_complete_directory(${$alldirs}[$i], 1);
 376             }
 377
 378             if ( ${$alldirs}[$i] =~ /^\s*\Q$pre_witherror\E\d+\Q$post\E\s*$/ )  # removing old "witherror" directories
 379             {
 380                 installer::systemactions::remove_complete_directory(${$alldirs}[$i], 1);
 381             }
 382         }
 383     }
 384 }
 385
 386 ###############################################################
 387 # Creating the installation directory structure
 388 ###############################################################
 389
 390 sub create_installation_directory
 391 {
 392     my ($shipinstalldir, $languagestringref, $current_install_number_ref) = @_;
 393
 394     my $installdir = "";
 395
 396     my $languageref = $languagestringref;
 397
 398     if ( $installer::globals::updatepack )
 399     {
 400         $installdir = $shipinstalldir;
 401         installer::systemactions::create_directory_structure($installdir);
 402         $$current_install_number_ref = installer::systemactions::determine_maximum_number($installdir, $languageref);
 403         $installdir = installer::systemactions::rename_string_in_directory($installdir, "number", $$current_install_number_ref);
 404         remove_old_ship_installation_sets($installdir);
 405     }
 406     else
 407     {
 408         $installdir = installer::systemactions::create_directories("install", $languageref);
 409         if ( $installer::globals::localinstalldir )
 410         {
 411             $installdir = $installer::globals::localinstalldir;
 412             $installer::globals::localinstalldirset = 1;
 413         }
 414         installer::logger::print_message( "... creating installation set in $installdir ...\n" );
 415         remove_old_installation_sets($installdir);
 416         my $inprogressinstalldir = $installdir . "_inprogress";
 417         installer::systemactions::rename_directory($installdir, $inprogressinstalldir);
 418         $installdir = $inprogressinstalldir;
 419     }
 420
 421     $installer::globals::saveinstalldir = $installdir;  # saving directory globally, in case of exiting
 422
 423     return $installdir;
 424 }
 425
 426 ###############################################################
 427 # Analyzing and creating the log file
 428 ###############################################################
 429
 430 sub analyze_and_save_logfile
 431 {
 432     my ($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number) = @_;
 433
 434     my $is_success = 1;
 435     my $finalinstalldir = "";
 436
 437     installer::logger::print_message( "... checking log file " . $loggingdir . $installer::globals::logfilename . "\n" );
 438
 439     my $contains_error = installer::control::check_logfile(\@installer::globals::logfileinfo);
 440
 441     # Dependent from the success, the installation directory can be renamed and mails can be send.
 442
 443     if ( $contains_error )
 444     {
 445         my $errordir = installer::systemactions::rename_string_in_directory($installdir, "_inprogress", "_witherror");
 446         if ( $installer::globals::updatepack ) { installer::mail::send_fail_mail($allsettingsarrayref, $languagestringref, $errordir); }
 447         # Error output to STDERR
 448         for ( my $j = 0; $j <= $#installer::globals::errorlogfileinfo; $j++ )
 449         {
 450             my $line = $installer::globals::errorlogfileinfo[$j];
 451             $line =~ s/\s*$//g;
 452             installer::logger::print_error( $line );
 453         }
 454         $is_success = 0;
 455
 456         $finalinstalldir = $errordir;
 457     }
 458     else
 459     {
 460         my $destdir = "";
 461
 462         if ( $installer::globals::updatepack )
 463         {
 464             if ( $installdir =~ /_download_inprogress/ ) { $destdir = installer::systemactions::rename_string_in_directory($installdir, "_download_inprogress", "_download"); }
 465             elsif ( $installdir =~ /_jds_inprogress/ ) { $destdir = installer::systemactions::rename_string_in_directory($installdir, "_jds_inprogress", "_jds"); }
 466             elsif ( $installdir =~ /_msp_inprogress/ ) { $destdir = installer::systemactions::rename_string_in_directory($installdir, "_msp_inprogress", "_msp"); }
 467             else
 468             {
 469                 if ( $installdir =~ /_packed/ ) { $destdir = installer::systemactions::rename_string_in_directory($installdir, "_inprogress", ""); }
 470                 else { $destdir = installer::systemactions::rename_string_in_directory($installdir, "_inprogress", "_packed"); }
 471             }
 472             installer::mail::send_success_mail($allsettingsarrayref, $languagestringref, $destdir);
 473         }
 474         else
 475         {
 476             $destdir = installer::systemactions::rename_string_in_directory($installdir, "_inprogress", "");
 477         }
 478
 479         $finalinstalldir = $destdir;
 480     }
 481
 482     # Saving the logfile in the log file directory and additionally in a log directory in the install directory
 483
 484     my $numberedlogfilename = $installer::globals::logfilename;
 485     if ( $installer::globals::updatepack ) { $numberedlogfilename =~ s /log_/log_$current_install_number\_/; }
 486     installer::logger::print_message( "... creating log file $numberedlogfilename \n" );
 487     installer::files::save_file($loggingdir . $numberedlogfilename, \@installer::globals::logfileinfo);
 488     installer::files::save_file($installlogdir . $installer::globals::separator . $numberedlogfilename, \@installer::globals::logfileinfo);
 489
 490     # Saving the checksumfile in a checksum directory in the install directory
 491     # installer::worker::save_checksum_file($current_install_number, $installchecksumdir, $checksumfile);
 492
 493     # Saving the list of patchfiles in a patchlist directory in the install directory
 494     if (( $installer::globals::patch ) || ( $installer::globals::creating_windows_installer_patch )) { installer::worker::save_patchlist_file($installlogdir, $numberedlogfilename); }
 495
 496     if ( $installer::globals::creating_windows_installer_patch ) { $installer::globals::creating_windows_installer_patch = 0; }
 497
 498     return ($is_success, $finalinstalldir);
 499 }
 500
 501 ###############################################################
 502 # Analyzing and creating the log file
 503 ###############################################################
 504
 505 sub save_logfile_after_linking
 506 {
 507     my ($loggingdir, $installlogdir, $current_install_number) = @_;
 508
 509     # Saving the logfile in the log file directory and additionally in a log directory in the install directory
 510     my $numberedlogfilename = $installer::globals::logfilename;
 511     if ( $installer::globals::updatepack ) { $numberedlogfilename =~ s /log_/log_$current_install_number\_/; }
 512     installer::logger::print_message( "... creating log file $numberedlogfilename \n" );
 513     installer::files::save_file($loggingdir . $numberedlogfilename, \@installer::globals::logfileinfo);
 514     installer::files::save_file($installlogdir . $installer::globals::separator . $numberedlogfilename, \@installer::globals::logfileinfo);
 515 }
 516
 517 ###############################################################
 518 # Removing all directories that are saved in the
 519 # global directory @installer::globals::removedirs
 520 ###############################################################
 521
 522 sub clean_output_tree
 523 {
 524     installer::logger::print_message( "... cleaning the output tree ...\n" );
 525
 526     for ( my $i = 0; $i <= $#installer::globals::removedirs; $i++ )
 527     {
 528         if ( -d $installer::globals::removedirs[$i] )
 529         {
 530             installer::logger::print_message( "... removing directory $installer::globals::removedirs[$i] ...\n" );
 531             installer::systemactions::remove_complete_directory($installer::globals::removedirs[$i], 1);
 532         }
 533     }
 534
 535     # Last try to remove the ship test directory
 536
 537     if ( $installer::globals::shiptestdirectory )
 538     {
 539         if ( -d $installer::globals::shiptestdirectory )
 540         {
 541             my $infoline = "Last try to remove $installer::globals::shiptestdirectory . \n";
 542             push(@installer::globals::logfileinfo, $infoline);
 543             my $systemcall = "rmdir $installer::globals::shiptestdirectory";
 544             my $returnvalue = system($systemcall);
 545         }
 546     }
 547 }
 548
 549 ###############################################################
 550 # Removing all directories that are saved in the
 551 # global directory @installer::globals::jdsremovedirs
 552 ###############################################################
 553
 554 sub clean_jds_temp_dirs
 555 {
 556     installer::logger::print_message( "... cleaning jds directories ...\n" );
 557
 558     for ( my $i = 0; $i <= $#installer::globals::jdsremovedirs; $i++ )
 559     {
 560         if ( -d $installer::globals::jdsremovedirs[$i] )
 561         {
 562             installer::logger::print_message( "... removing directory $installer::globals::jdsremovedirs[$i] ...\n" );
 563             installer::systemactions::remove_complete_directory($installer::globals::jdsremovedirs[$i], 1);
 564         }
 565     }
 566 }
 567
 568 ###########################################################
 569 # Copying a reference array
 570 ###########################################################
 571
 572 sub copy_array_from_references
 573 {
 574     my ( $arrayref ) = @_;
 575
 576     my @newarray = ();
 577
 578     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
 579     {
 580         push(@newarray, ${$arrayref}[$i]);
 581     }
 582
 583     return \@newarray;
 584 }
 585
 586 ###########################################################
 587 # Copying a reference hash
 588 ###########################################################
 589
 590 sub copy_hash_from_references
 591 {
 592     my ($hashref) = @_;
 593
 594     my %newhash = ();
 595     my $key;
 596
 597     foreach $key (keys %{$hashref})
 598     {
 599         $newhash{$key} = $hashref->{$key};
 600     }
 601
 602     return \%newhash;
 603 }
 604
 605 ###########################################################
 606 # Setting one language in the language independent
 607 # array of include pathes with $(LANG)
 608 ###########################################################
 609
 610 sub get_language_specific_include_pathes
 611 {
 612     my ( $patharrayref, $onelanguage ) = @_;
 613
 614     my @patharray = ();
 615
 616     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
 617     {
 618         my $line = ${$patharrayref}[$i];
 619         $line =~ s/\$\(LANG\)/$onelanguage/g;
 620         push(@patharray ,$line);
 621     }
 622
 623     return \@patharray;
 624 }
 625
 626 ##############################################################
 627 # Returning the first item with a defined flag
 628 ##############################################################
 629
 630 sub return_first_item_with_special_flag
 631 {
 632     my ($itemsref, $flag) = @_;
 633
 634     my $firstitem = "";
 635
 636     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
 637     {
 638         my $oneitem = ${$itemsref}[$i];
 639         my $styles = "";
 640         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
 641
 642         if ( $styles =~ /\b$flag\b/ )
 643         {
 644             $firstitem = $oneitem;
 645             last;
 646         }
 647     }
 648
 649     return $firstitem;
 650 }
 651
 652 ##############################################################
 653 # Collecting all items with a defined flag
 654 ##############################################################
 655
 656 sub collect_all_items_with_special_flag
 657 {
 658     my ($itemsref, $flag) = @_;
 659
 660     my @allitems = ();
 661
 662     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
 663     {
 664         my $oneitem = ${$itemsref}[$i];
 665         my $styles = "";
 666         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
 667
 668         if ( $styles =~ /\b$flag\b/ )
 669         {
 670             push( @allitems, $oneitem );
 671         }
 672     }
 673
 674     return \@allitems;
 675 }
 676
 677 ##############################################################
 678 # Collecting all files without patch flag in
 679 # $installer::globals::nopatchfilecollector
 680 ##############################################################
 681
 682 sub collect_all_files_without_patch_flag
 683 {
 684     my ($filesref) = @_;
 685
 686     my $newfiles = collect_all_items_without_special_flag($filesref, "PATCH");
 687
 688     for ( my $i = 0; $i <= $#{$newfiles}; $i++ ) { push(@{$installer::globals::nopatchfilecollector}, ${$newfiles}[$i]); }
 689 }
 690
 691 ##############################################################
 692 # Collecting all items without a defined flag
 693 ##############################################################
 694
 695 sub collect_all_items_without_special_flag
 696 {
 697     my ($itemsref, $flag) = @_;
 698
 699     my @allitems = ();
 700
 701     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
 702     {
 703         my $oneitem = ${$itemsref}[$i];
 704         my $styles = "";
 705         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
 706
 707         if ( !( $styles =~ /\b$flag\b/ ))
 708         {
 709             push( @allitems, $oneitem );
 710         }
 711     }
 712
 713     return \@allitems;
 714 }
 715
 716 ##############################################################
 717 # Removing all items with a defined flag from collector
 718 ##############################################################
 719
 720 sub remove_all_items_with_special_flag
 721 {
 722     my ($itemsref, $flag) = @_;
 723
 724     my @allitems = ();
 725
 726     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
 727     {
 728         my $oneitem = ${$itemsref}[$i];
 729         my $styles = "";
 730         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'} };
 731         if ( $styles =~ /\b$flag\b/ )
 732         {
 733             my $infoline = "Attention: Removing from collector: $oneitem->{'Name'} !\n";
 734             push( @installer::globals::logfileinfo, $infoline);
 735             if ( $flag eq "BINARYTABLE_ONLY" ) { push(@installer::globals::binarytableonlyfiles, $oneitem); }
 736             next;
 737         }
 738         push( @allitems, $oneitem );
 739     }
 740
 741     return \@allitems;
 742 }
 743
 744 ###########################################################
 745 # Mechanism for simple installation without packing
 746 ###########################################################
 747
 748 sub install_simple ($$$$$$)
 749 {
 750     my ($packagename, $languagestring, $directoriesarray, $filesarray, $linksarray, $unixlinksarray) = @_;
 751
 752         # locate GNU cp on the system
 753         my $gnucp = 'cp';
 754         if ( $ENV{'GNUCOPY'} ) { $gnucp = $ENV{'GNUCOPY'}; }
 755     my $copyopts = '-af';
 756     $copyopts = '-PpRf' unless ( $ENV{'GNUCOPY'} ); # if not gnucopy, assume POSIX copy
 757
 758     installer::logger::print_message( "... installing module $packagename ...\n" );
 759
 760     my $destdir = $installer::globals::destdir;
 761     my @lines = ();
 762
 763     installer::logger::print_message( "DestDir: $destdir \n" );
 764     installer::logger::print_message( "Rootpath: $installer::globals::rootpath \n" );
 765
 766     `mkdir -p $destdir` if $destdir ne "";
 767     `mkdir -p $destdir$installer::globals::rootpath`;
 768
 769     # Create Directories
 770     for ( my $i = 0; $i <= $#{$directoriesarray}; $i++ )
 771     {
 772         my $onedir = ${$directoriesarray}[$i];
 773         my $dir = "";
 774
 775         if ( $onedir->{'Dir'} ) { $dir = $onedir->{'Dir'}; }
 776
 777         if ((!($dir =~ /\bPREDEFINED_/ )) || ( $dir =~ /\bPREDEFINED_PROGDIR\b/ ))
 778         {
 779                         my $hostname = $onedir->{'HostName'};
 780
 781                         # ignore '.' subdirectories
 782                         next if ( $hostname =~ m/\.$/ );
 783                         # remove './' from the path
 784                         $hostname =~ s/\.\///g;
 785
 786                         # printf "mkdir $destdir$hostname\n";
 787                         mkdir $destdir . $hostname;
 788                         push @lines, "%dir " . $hostname . "\n";
 789         }
 790     }
 791
 792     for ( my $i = 0; $i <= $#{$filesarray}; $i++ )
 793     {
 794         my $onefile = ${$filesarray}[$i];
 795         my $unixrights = $onefile->{'UnixRights'};
 796         my $destination = $onefile->{'destination'};
 797         my $sourcepath = $onefile->{'sourcepath'};
 798
 799         # This is necessary to install SDK that includes files with $ in its name
 800         # Otherwise, the following shell commands does not work and the file list
 801         # is not correct
 802         $destination =~ s/\$\$/\$/;
 803         $sourcepath =~ s/\$\$/\$/;
 804
 805                 # remove './' from the path
 806                 $sourcepath =~ s/\.\///g;
 807                 $destination =~ s/\.\///g;
 808
 809         push @lines, "$destination\n";
 810         # printf "cp $sourcepath $destdir$destination\n";
 811         copy ("$sourcepath", "$destdir$destination") || die "Can't copy file: $sourcepath -> $destdir$destination $!";
 812         my $sourcestat = stat($sourcepath);
 813         utime ($sourcestat->atime, $sourcestat->mtime, "$destdir$destination");
 814         chmod (oct($unixrights), "$destdir$destination") || die "Can't change permissions: $!";
 815          push @lines, "$destination\n";
 816     }
 817
 818     for ( my $i = 0; $i <= $#{$linksarray}; $i++ )
 819     {
 820         my $onelink = ${$linksarray}[$i];
 821         my $destination = $onelink->{'destination'};
 822         my $destinationfile = $onelink->{'destinationfile'};
 823
 824         # print "link $destinationfile -> $destdir$destination\n";
 825         symlink ("$destinationfile", "$destdir$destination") || die "Can't create symlink: $!";
 826         push @lines, "$destination\n";
 827     }
 828
 829     for ( my $i = 0; $i <= $#{$unixlinksarray}; $i++ )
 830     {
 831         my $onelink = ${$unixlinksarray}[$i];
 832         my $target = $onelink->{'Target'};
 833         my $destination = $onelink->{'destination'};
 834
 835         # print "Unix link $target -> $destdir$destination\n";
 836         `ln -sf '$target' '$destdir$destination'`;
 837         push @lines, "$destination\n";
 838     }
 839
 840     if ( $destdir ne "" )
 841     {
 842         my $filelist;
 843         my $fname = $installer::globals::destdir . "/$packagename";
 844         open ($filelist, ">$fname") || die "Can't open $fname: $!";
 845         print $filelist @lines;
 846         close ($filelist);
 847     }
 848
 849 }
 850
 851 ###########################################################
 852 # Adding shellnew files into files collector for
 853 # user installation
 854 ###########################################################
 855
 856 sub add_shellnewfile_into_filesarray
 857 {
 858     my ($filesref, $onefile, $inffile) = @_;
 859
 860     my %shellnewfile = ();
 861     my $shellnewfileref = \%shellnewfile;
 862
 863     installer::converter::copy_item_object($inffile, $shellnewfileref);
 864
 865     $shellnewfileref->{'Name'} = $onefile->{'Name'};
 866     $shellnewfileref->{'sourcepath'} = $onefile->{'sourcepath'};
 867     $shellnewfileref->{'gid'} = $onefile->{'gid'} . "_Userinstall";
 868
 869     # the destination has to be adapted
 870     my $destination = $inffile->{'destination'};
 871     installer::pathanalyzer::get_path_from_fullqualifiedname(\$destination);
 872     $destination = $destination . $onefile->{'Name'};
 873     $shellnewfileref->{'destination'} = $destination;
 874
 875     # add language specific inffile into filesarray
 876     push(@{$filesref}, $shellnewfileref);
 877 }
 878
 879 ###########################################################
 880 # Replacing one placehoder in template file
 881 ###########################################################
 882
 883 sub replace_in_template_file
 884 {
 885     my ($templatefile, $placeholder, $newstring) = @_;
 886
 887     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 888     {
 889         ${$templatefile}[$i] =~ s/\Q$placeholder\E/$newstring/g;
 890     }
 891 }
 892
 893 ###########################################################
 894 # Replacing one placehoder with an array in template file
 895 ###########################################################
 896
 897 sub replace_array_in_template_file
 898 {
 899     my ($templatefile, $placeholder, $arrayref) = @_;
 900
 901     for ( my $i = 0; $i <= $#{$templatefile}; $i++ )
 902     {
 903         if ( ${$templatefile}[$i] =~ /\Q$placeholder\E/ )
 904         {
 905             my @return = splice(@{$templatefile}, $i, 1, @{$arrayref});
 906         }
 907     }
 908 }
 909
 910 ###########################################################
 911 # Collecting all modules from registry items
 912 ###########################################################
 913
 914 sub collect_all_modules
 915 {
 916     my ($registryitemsref) = @_;
 917
 918     my @allmodules = ();
 919
 920     for ( my $i = 0; $i <= $#{$registryitemsref}; $i++ )
 921     {
 922         $registryitem = ${$registryitemsref}[$i];
 923         my $module = $registryitem->{'ModuleID'};
 924
 925         if ( ! installer::existence::exists_in_array($module, \@allmodules) )
 926         {
 927             push(@allmodules, $module);
 928         }
 929     }
 930
 931     return \@allmodules;
 932 }
 933
 934 ###########################################################
 935 # Changing the content of the inf file
 936 ###########################################################
 937
 938 sub write_content_into_inf_file
 939 {
 940     my ($templatefile, $filesref, $registryitemsref, $folderref, $folderitemsref, $modulesref, $onelanguage, $inffile, $firstlanguage, $allvariableshashref) = @_;
 941
 942     # First part: Shellnew files
 943     # SHELLNEWFILESPLACEHOLDER
 944
 945     my $rootmodule = 0;
 946     # inf files can be assigned to "gid_Module_Root_Files_2"
 947     if ( $inffile->{'modules'} =~ /Module_Root/i ) { $rootmodule = 1; }
 948
 949     if ( $rootmodule )
 950     {
 951         my $shellnewstring = "";
 952
 953         for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 954         {
 955             my $onefile = ${$filesref}[$i];
 956             my $directory = $onefile->{'Dir'};
 957
 958             if ( $directory =~ /\bPREDEFINED_OSSHELLNEWDIR\b/ )
 959             {
 960                 $shellnewstring = $shellnewstring . $onefile->{'Name'} . "\n";
 961                 if (( $firstlanguage ) && ( ! $installer::globals::shellnewfilesadded )) { add_shellnewfile_into_filesarray($filesref, $onefile, $inffile); }
 962             }
 963         }
 964
 965         $shellnewstring =~ s/\s*$//;
 966         replace_in_template_file($templatefile, "SHELLNEWFILESPLACEHOLDER", $shellnewstring);
 967
 968         $installer::globals::shellnewfilesadded = 1;
 969     }
 970
 971     # Second part: Start menu entries
 972
 973     # The OfficeMenuFolder is defined as: $productname . " " . $productversion;
 974
 975     my $productname = $allvariableshashref->{'PRODUCTNAME'};
 976     my $productversion = $allvariableshashref->{'PRODUCTVERSION'};
 977     my $productkey = $productname . " " . $productversion;
 978
 979     replace_in_template_file($templatefile, "OFFICEFOLDERPLACEHOLDER", $productkey);
 980
 981     # Setting name target and infotip for all applications
 982
 983     for ( my $i = 0; $i <= $#{$folderitemsref}; $i++ )
 984     {
 985         my $folderitem = ${$folderitemsref}[$i];
 986
 987         my $styles = "";
 988         if ( $folderitem->{'Styles'} ) { $styles = $folderitem->{'Styles'}; }
 989         if ( $styles =~ /\bNON_ADVERTISED\b/ ) { next; }        # no entry for non-advertised shortcuts
 990
 991         if (( ! $folderitem->{'ismultilingual'} ) || (( $folderitem->{'ismultilingual'} ) && ( $folderitem->{'specificlanguage'} eq $onelanguage )))
 992         {
 993             my $gid = $folderitem->{'gid'};
 994             my $app = $gid;
 995             $app =~ s/gid_Folderitem_//;
 996             $app = uc($app);
 997
 998             my $name = $folderitem->{'Name'};
 999             my $placeholder = "PLACEHOLDER_FOLDERITEM_NAME_" . $app;
1000             replace_in_template_file($templatefile, $placeholder, $name);
1001
1002             my $tooltip = $folderitem->{'Tooltip'};
1003             $placeholder = "PLACEHOLDER_FOLDERITEM_TOOLTIP_" . $app;
1004             replace_in_template_file($templatefile, $placeholder, $tooltip);
1005
1006             my $executablegid = $folderitem->{'FileID'};
1007             my $exefile = installer::existence::get_specified_file($filesref, $executablegid);
1008             my $exefilename = $exefile->{'Name'};
1009             $placeholder = "PLACEHOLDER_FOLDERITEM_TARGET_" . $app;
1010             replace_in_template_file($templatefile, $placeholder, $exefilename);
1011         }
1012     }
1013
1014     # Third part: Windows registry entries
1015
1016     # collecting all modules
1017
1018     my $allmodules = collect_all_modules($registryitemsref);
1019
1020     my @registryitems = ();
1021     my $allsectionsstring = "";
1022
1023     for ( my $j = 0; $j <= $#{$allmodules}; $j++ )
1024     {
1025         my $moduleid = ${$allmodules}[$j];
1026
1027         my $inffilemodule = $inffile->{'modules'};
1028         # inf files can be assigned to "gid_Module_Root_Files_2", but RegistryItems to "gid_Module_Root"
1029         if ( $inffilemodule =~ /Module_Root/i ) { $inffilemodule = $installer::globals::rootmodulegid; }
1030
1031         if ( ! ( $moduleid eq $inffilemodule )) { next; }
1032
1033         my $shortmodulename = $moduleid;
1034         $shortmodulename =~ s/gid_Module_//;
1035         my $sectionname = "InstRegKeys." . $shortmodulename;
1036         $allsectionsstring = $allsectionsstring . $sectionname . ",";
1037         my $sectionheader = "\[" . $sectionname . "\]" . "\n";
1038         push(@registryitems, $sectionheader);
1039
1040         for ( my $i = 0; $i <= $#{$registryitemsref}; $i++ )
1041         {
1042             my $registryitem = ${$registryitemsref}[$i];
1043
1044             if ( ! ( $registryitem->{'ModuleID'} eq $moduleid )) { next; }
1045
1046             if (( ! $registryitem->{'ismultilingual'} ) || (( $registryitem->{'ismultilingual'} ) && ( $registryitem->{'specificlanguage'} eq $onelanguage )))
1047             {
1048                 # Syntax: HKCR,".bau",,,"soffice.StarConfigFile.6"
1049
1050                 my $regroot = "";
1051                 my $parentid = "";
1052                 if ( $registryitem->{'ParentID'} ) { $parentid = $registryitem->{'ParentID'}; }
1053                 if ( $parentid eq "PREDEFINED_HKEY_CLASSES_ROOT" ) { $regroot = "HKCR"; }
1054                 if ( $parentid eq "PREDEFINED_HKEY_LOCAL_MACHINE" ) { $regroot = "HKCU"; }
1055
1056                 my $subkey = "";
1057                 if ( $registryitem->{'Subkey'} ) { $subkey = $registryitem->{'Subkey'}; }
1058                 if ( $subkey ne "" ) { $subkey = "\"" . $subkey . "\""; }
1059
1060                 my $valueentryname = "";
1061                 if ( $registryitem->{'Name'} ) { $valueentryname = $registryitem->{'Name'}; }
1062                 if ( $valueentryname ne "" ) { $valueentryname = "\"" . $valueentryname . "\""; }
1063
1064                 my $flag = "";
1065
1066                 my $value = "";
1067                 if ( $registryitem->{'Value'} ) { $value = $registryitem->{'Value'}; }
1068                 if ( $value =~ /\<progpath\>/ ) { $value =~ s/\\\"/\"\"/g; } # Quoting for INF is done by double ""
1069                 $value =~ s/\\\"/\"/g;  # no more masquerading of '"'
1070                 $value =~ s/\<progpath\>/\%OFFICEINSTALLLOCATION\%/g;
1071                 # $value =~ s/\%OFFICEINSTALLLOCATION\%\\/\%OFFICEINSTALLLOCATION\%/g;          # removing "\" after "%OFFICEINSTALLLOCATION%"
1072                 if ( $value ne "" ) { $value = "\"" . $value . "\""; }
1073
1074                 my $oneline = $regroot . "," . $subkey . "," . $valueentryname . "," . $flag . "," . $value . "\n";
1075
1076                 push(@registryitems, $oneline);
1077             }
1078         }
1079
1080         push(@registryitems, "\n"); # empty line after each section
1081     }
1082
1083     # replacing the $allsectionsstring
1084     $allsectionsstring =~ s/\,\s*$//;
1085     replace_in_template_file($templatefile, "ALLREGISTRYSECTIONSPLACEHOLDER", $allsectionsstring);
1086
1087     # replacing the placeholder for all registry keys
1088     replace_array_in_template_file($templatefile, "REGISTRYKEYSPLACEHOLDER", \@registryitems);
1089
1090 }
1091
1092 ###########################################################
1093 # Creating inf files for local user system integration
1094 ###########################################################
1095
1096 sub create_inf_file
1097 {
1098     my ($filesref, $registryitemsref, $folderref, $folderitemsref, $modulesref, $languagesarrayref, $languagestringref, $allvariableshashref) = @_;
1099
1100     # collecting all files with flag INFFILE
1101
1102     my $inf_files = collect_all_items_with_special_flag($filesref ,"INFFILE");
1103
1104     if ( $#{$inf_files} > -1 )
1105     {
1106         # create new language specific inffile
1107         installer::logger::include_header_into_logfile("Creating inf files:");
1108
1109         my $infdirname = "inffiles";
1110         my $infdir = installer::systemactions::create_directories($infdirname, $languagestringref);
1111
1112         my $infoline = "Number of inf files: $#{$inf_files} + 1 \n";
1113         push( @installer::globals::logfileinfo, $infoline);
1114
1115         # there are inffiles for all modules
1116
1117         for ( my $i = 0; $i <= $#{$inf_files}; $i++ )
1118         {
1119             my $inffile = ${$inf_files}[$i];
1120             my $inf_file_name = $inffile->{'Name'};
1121
1122             my $templatefilename = $inffile->{'sourcepath'};
1123
1124             if ( ! -f $templatefilename ) { installer::exiter::exit_program("ERROR: Could not find file $templatefilename !", "create_inf_file");  }
1125
1126             # iterating over all languages
1127
1128             for ( my $j = 0; $j <= $#{$languagesarrayref}; $j++ )       # iterating over all languages
1129             {
1130                 my $firstlanguage = 0;
1131                 if ( $j == 0 ) { $firstlanguage = 1; }
1132
1133                 my $onelanguage = ${$languagesarrayref}[$j];
1134
1135                 $infoline = "Templatefile: $inf_file_name, Language: $onelanguage \n";
1136                 push( @installer::globals::logfileinfo, $infoline);
1137
1138                 my $templatefile = installer::files::read_file($templatefilename);
1139
1140                 my $linesbefore = $#{$templatefile};
1141
1142                 write_content_into_inf_file($templatefile, $filesref, $registryitemsref, $folderref, $folderitemsref, $modulesref, $onelanguage, $inffile, $firstlanguage, $allvariableshashref);
1143
1144                 $infoline = "Lines change: From $linesbefore to $#{$templatefile}.\n";
1145                 push( @installer::globals::logfileinfo, $infoline);
1146
1147                 # rename language specific inffile
1148                 my $language_inf_file_name = $inf_file_name;
1149                 my $windowslanguage = installer::windows::language::get_windows_language($onelanguage);
1150                 $language_inf_file_name =~ s/\.inf/_$windowslanguage\.inf/;
1151
1152                 my $sourcepath = $infdir . $installer::globals::separator . $language_inf_file_name;
1153                 installer::files::save_file($sourcepath, $templatefile);
1154
1155                 $infoline = "Saving file: $sourcepath\n";
1156                 push( @installer::globals::logfileinfo, $infoline);
1157
1158                 # creating new file object
1159
1160                 my %languageinffile = ();
1161                 my $languageinifileref = \%languageinffile;
1162
1163                 if ( $j < $#{$languagesarrayref} ) { installer::converter::copy_item_object($inffile, $languageinifileref); }
1164                 else { $languageinifileref = $inffile; }
1165
1166                 $languageinifileref->{'Name'} = $language_inf_file_name;
1167                 $languageinifileref->{'sourcepath'} = $sourcepath;
1168                 # destination and gid also have to be adapted
1169                 $languageinifileref->{'gid'} = $languageinifileref->{'gid'} . "_" . $onelanguage;
1170                 my $destination = $languageinifileref->{'destination'};
1171                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$destination);
1172                 $destination = $destination . $language_inf_file_name;
1173                 $languageinifileref->{'destination'} = $destination;
1174
1175                 # add language specific inffile into filesarray
1176                 if ( $j < $#{$languagesarrayref} ) { push(@{$filesref}, $languageinifileref); }
1177             }
1178         }
1179     }
1180 }
1181
1182 ###########################################################
1183 # Selecting patch items
1184 ###########################################################
1185
1186 sub select_patch_items
1187 {
1188     my ( $itemsref, $itemname ) = @_;
1189
1190     installer::logger::include_header_into_logfile("Selecting items for patches. Item: $itemname");
1191
1192     my @itemsarray = ();
1193
1194     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
1195     {
1196         my $oneitem = ${$itemsref}[$i];
1197
1198         my $name = $oneitem->{'Name'};
1199         if (( $name =~ /\bLICENSE/ ) || ( $name =~ /\bREADME/ ))
1200         {
1201             push(@itemsarray, $oneitem);
1202             next;
1203         }
1204
1205         # Items with style "PATCH" have to be included into the patch
1206         my $styles = "";
1207         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1208         if ( $styles =~ /\bPATCH\b/ ) { push(@itemsarray, $oneitem); }
1209     }
1210
1211     return \@itemsarray;
1212 }
1213
1214 ###########################################################
1215 # Selecting patch items
1216 ###########################################################
1217
1218 sub select_patch_items_without_name
1219 {
1220     my ( $itemsref, $itemname ) = @_;
1221
1222     installer::logger::include_header_into_logfile("Selecting RegistryItems for patches");
1223
1224     my @itemsarray = ();
1225
1226     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
1227     {
1228         my $oneitem = ${$itemsref}[$i];
1229
1230         # Items with style "PATCH" have to be included into the patch
1231         my $styles = "";
1232         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1233         if ( $styles =~ /\bPATCH\b/ ) { push(@itemsarray, $oneitem); }
1234     }
1235
1236     return \@itemsarray;
1237 }
1238
1239 ###########################################################
1240 # Selecting patch items
1241 ###########################################################
1242
1243 sub select_langpack_items
1244 {
1245     my ( $itemsref, $itemname ) = @_;
1246
1247     installer::logger::include_header_into_logfile("Selecting RegistryItems for Language Packs");
1248
1249     my @itemsarray = ();
1250
1251     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
1252     {
1253         my $oneitem = ${$itemsref}[$i];
1254
1255         # Items with style "LANGUAGEPACK" have to be included into the patch
1256         my $styles = "";
1257         if ( $oneitem->{'Styles'} ) { $styles = $oneitem->{'Styles'}; }
1258         if (( $styles =~ /\bLANGUAGEPACK\b/ ) || ( $styles =~ /\bFORCELANGUAGEPACK\b/ )) { push(@itemsarray, $oneitem); }
1259     }
1260
1261     return \@itemsarray;
1262 }
1263
1264 ###########################################################
1265 # Searching if LICENSE and README, which are not removed
1266 # in select_patch_items are really needed for the patch.
1267 # If not, they are removed now.
1268 ###########################################################
1269
1270 sub analyze_patch_files
1271 {
1272     my ( $filesref ) = @_;
1273
1274     installer::logger::include_header_into_logfile("Analyzing patch files");
1275
1276     my @filesarray = ();
1277
1278     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1279     {
1280         my $onefile = ${$filesref}[$i];
1281         my $styles = "";
1282         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1283         if ( !( $styles =~ /\bPATCH\b/) ) { next; }     # removing all files without flag PATCH (LICENSE, README, ...)
1284
1285         if ( $installer::globals::iswindowsbuild )
1286         {
1287             # all files of the Windows patch belong to the root module
1288             $onefile->{'modules'} = $installer::globals::rootmodulegid;
1289         }
1290
1291         push(@filesarray, $onefile);
1292     }
1293
1294     return \@filesarray;
1295 }
1296
1297 ###########################################################
1298 # Sorting an array
1299 ###########################################################
1300
1301 sub sort_array
1302 {
1303     my ( $arrayref ) = @_;
1304
1305     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
1306     {
1307         my $under = ${$arrayref}[$i];
1308
1309         for ( my $j = $i + 1; $j <= $#{$arrayref}; $j++ )
1310         {
1311             my $over = ${$arrayref}[$j];
1312
1313             if ( $under gt $over)
1314             {
1315                 ${$arrayref}[$i] = $over;
1316                 ${$arrayref}[$j] = $under;
1317                 $under = $over;
1318             }
1319         }
1320     }
1321 }
1322
1323 ###########################################################
1324 # Renaming linux files with flag LINUXLINK
1325 ###########################################################
1326
1327 sub prepare_linuxlinkfiles
1328 {
1329     my ( $filesref ) = @_;
1330
1331     @installer::globals::linuxlinks = (); # empty this array, because it could be already used
1332     @installer::globals::linuxpatchfiles = (); # empty this array, because it could be already used
1333     @installer::globals::allfilessav = (); # empty this array, because it could be already used. Required for forced links
1334
1335     my @filesarray = ();
1336
1337     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1338     {
1339         my $onefile = ${$filesref}[$i];
1340         my %linkfilehash = ();
1341         my $linkfile = \%linkfilehash;
1342         installer::converter::copy_item_object($onefile, $linkfile);
1343
1344         my $ispatchfile = 0;
1345         my $styles = "";
1346         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1347         if ( $styles =~ /\bPATCH\b/ ) { $ispatchfile = 1; }
1348
1349         # Collecting all files for the mechanism with forced links
1350         # Saving a copy
1351         my %copyfilehash = ();
1352         my $copyfile = \%copyfilehash;
1353         installer::converter::copy_item_object($onefile, $copyfile);
1354         push( @installer::globals::allfilessav, $copyfile);
1355
1356         my $original_destination = $onefile->{'destination'};
1357         # $onefile->{'destination'} is used in the epm list file. This value can be changed now!
1358
1359         if ( $ispatchfile ) { $onefile->{'destination'} = $onefile->{'destination'} . "\.$installer::globals::linuxlibrarypatchlevel"; }
1360         else { $onefile->{'destination'} = $onefile->{'destination'} . "\.$installer::globals::linuxlibrarybaselevel"; }
1361
1362         my $infoline = "LINUXLINK: Changing file destination from $original_destination to $onefile->{'destination'} !\n";
1363         push( @installer::globals::logfileinfo, $infoline);
1364
1365         # all files without PATCH flag are included into the RPM
1366         if ( ! $ispatchfile ) { push( @filesarray, $onefile); }
1367         else { push( @installer::globals::linuxpatchfiles, $onefile); }
1368
1369         # Preparing the collector for the links
1370         # Setting the new file name as destination of the link
1371         my $linkdestination = $linkfile->{'Name'};
1372         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
1373         if ( $ispatchfile ) { $linkfile->{'destinationfile'} = $linkdestination . "\.$installer::globals::linuxlibrarypatchlevel"; }
1374         else { $linkfile->{'destinationfile'} = $linkdestination . "\.$installer::globals::linuxlibrarybaselevel"; }
1375         push( @installer::globals::linuxlinks, $linkfile );
1376
1377         $infoline = "LINUXLINK: Created link: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
1378         push( @installer::globals::logfileinfo, $infoline);
1379     }
1380
1381     return \@filesarray;
1382 }
1383
1384 ###########################################################
1385 # Adding links into "u-RPMs", that have the flag
1386 # FORCE_INTO_UPDATE_PACKAGE
1387 # This is only relevant for Linux
1388 ###########################################################
1389
1390 sub prepare_forced_linuxlinkfiles
1391 {
1392     my ( $linksref ) = @_;
1393
1394     my @linksarray = ();
1395
1396     for ( my $i = 0; $i <= $#{$linksref}; $i++ )
1397     {
1398         my $onelink = ${$linksref}[$i];
1399
1400         my $isforcedlink = 0;
1401         my $styles = "";
1402         if ( $onelink->{'Styles'} ) { $styles = $onelink->{'Styles'}; }
1403         if ( $styles =~ /\bFORCE_INTO_UPDATE_PACKAGE\b/ ) { $isforcedlink = 1; }
1404
1405         if ( $isforcedlink )
1406         {
1407             my $fileid = "";
1408
1409             if ( $onelink->{'ShortcutID'} )
1410             {
1411                 $fileid = $onelink->{'ShortcutID'};
1412
1413                 my $searchedlinkfile = find_file_by_id($linksref, $fileid);
1414
1415                 # making a copy!
1416                 my %linkfilehash = ();
1417                 my $linkfile = \%linkfilehash;
1418                 installer::converter::copy_item_object($searchedlinkfile, $linkfile);
1419
1420                 $linkfile->{'Name'} = $onelink->{'Name'};
1421                 $linkfile->{'destinationfile'} = $linkfile->{'destination'};
1422                 my $linkdestination = $linkfile->{'destinationfile'};
1423                 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
1424                 $linkfile->{'destinationfile'} = $linkdestination;
1425
1426                 my $localdestination = $linkfile->{'destination'};
1427                 # Getting the path
1428                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$localdestination);
1429                 $localdestination =~ s/\Q$installer::globals::separator\E\s*$//;
1430                 $linkfile->{'destination'} = $localdestination . $installer::globals::separator . $onelink->{'Name'};
1431
1432                 $infoline = "Forced link into update file: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
1433                 push( @installer::globals::logfileinfo, $infoline);
1434
1435                 # The file, defined by the link, has to be included into the
1436                 # link array @installer::globals::linuxlinks
1437                 push( @installer::globals::linuxlinks, $linkfile );
1438             }
1439
1440             if ( $onelink->{'FileID'} )
1441             {
1442                 $fileid = $onelink->{'FileID'};
1443
1444                 my $searchedlinkfile = find_file_by_id(\@installer::globals::allfilessav, $fileid);
1445
1446                 # making a copy!
1447                 my %linkfilehash = ();
1448                 my $linkfile = \%linkfilehash;
1449                 installer::converter::copy_item_object($searchedlinkfile, $linkfile);
1450
1451                 $linkfile->{'Name'} = $onelink->{'Name'};
1452                 $linkfile->{'destinationfile'} = $linkfile->{'destination'};
1453                 my $linkdestination = $linkfile->{'destinationfile'};
1454                 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$linkdestination);
1455                 $linkfile->{'destinationfile'} = $linkdestination;
1456
1457                 my $localdestination = $linkfile->{'destination'};
1458                 # Getting the path
1459                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$localdestination);
1460                 $localdestination =~ s/\Q$installer::globals::separator\E\s*$//;
1461                 $linkfile->{'destination'} = $localdestination . $installer::globals::separator . $onelink->{'Name'};
1462
1463                 $infoline = "Forced link into update file: $linkfile->{'destination'} pointing to $linkfile->{'destinationfile'} !\n";
1464                 push( @installer::globals::logfileinfo, $infoline);
1465
1466                 # The file, defined by the link, has to be included into the
1467                 # link array @installer::globals::linuxlinks
1468                 push( @installer::globals::linuxlinks, $linkfile );
1469              }
1470
1471             if ( $fileid eq "" ) { installer::exiter::exit_program("ERROR: No FileID assigned to forced link $onelink->{'gid'} !", "prepare_forced_linuxlinkfiles"); }
1472
1473         }
1474         else
1475         {
1476             # Links with flag FORCE_INTO_UPDATE_PACKAGE are forced into "u"-RPM. All other
1477             # links are included into the non-"u"-package.
1478             push( @linksarray, $onelink );
1479         }
1480     }
1481
1482     return \@linksarray;
1483 }
1484
1485 ###########################################################
1486 # reorganizing the patchfile content,
1487 # sorting for directory to decrease the file size
1488 ###########################################################
1489
1490 sub reorg_patchfile
1491 {
1492     my ($patchfiles, $patchfiledirectories) = @_;
1493
1494     my @patchfilesarray = ();
1495     my $line = "";
1496     my $directory = "";
1497
1498     # iterating over all directories, writing content into new patchfiles list
1499
1500     for ( my $i = 0; $i <= $#{$patchfiledirectories}; $i++ )
1501     {
1502         $directory = ${$patchfiledirectories}[$i];
1503         $line = "[" . $directory . "]" . "\n";
1504         push(@patchfilesarray, $line);
1505
1506         for ( my $j = 0; $j <= $#{$patchfiles}; $j++ )
1507         {
1508             # "\tXXXXX\t" . $olddestination . "\n";
1509             if ( ${$patchfiles}[$j] =~ /^\s*(.*?)\s*\tXXXXX\t\Q$directory\E\s*$/ )
1510             {
1511                 $line = $1 . "\n";
1512                 push(@patchfilesarray, $line);
1513             }
1514         }
1515     }
1516
1517     return \@patchfilesarray;
1518 }
1519
1520 ###########################################################
1521 # One special file has to be the last in patchfile.txt.
1522 # Controlling this file, guarantees, that all files were
1523 # patch correctly. Using version.ini makes it easy to
1524 # control this by looking into the about box
1525 # -> shifting one section to the end
1526 ###########################################################
1527
1528 sub shift_section_to_end
1529 {
1530     my ($patchfilelist) = @_;
1531
1532     my @patchfile = ();
1533     my @lastsection = ();
1534     my $lastsection = "program";
1535     my $notlastsection = "Basis\\program";
1536     my $record = 0;
1537
1538     for ( my $i = 0; $i <= $#{$patchfilelist}; $i++ )
1539     {
1540         my $line = ${$patchfilelist}[$i];
1541
1542         if (( $record ) && ( $line =~ /^\s*\[/ )) { $record = 0; }
1543
1544         if (( $line =~ /^\s*\[\Q$lastsection\E\\\]\s*$/ ) && ( ! ( $line =~ /\Q$notlastsection\E\\\]\s*$/ ))) { $record = 1; }
1545
1546         if ( $record ) { push(@lastsection, $line); }
1547         else { push(@patchfile, $line); }
1548     }
1549
1550     if ( $#lastsection > -1 )
1551     {
1552         for ( my $i = 0; $i <= $#lastsection; $i++ )
1553         {
1554             push(@patchfile, $lastsection[$i]);
1555         }
1556     }
1557
1558     return \@patchfile;
1559 }
1560
1561 ###########################################################
1562 # One special file has to be the last in patchfile.txt.
1563 # Controlling this file, guarantees, that all files were
1564 # patch correctly. Using version.ini makes it easy to
1565 # control this by looking into the about box
1566 # -> shifting one file of the last section to the end
1567 ###########################################################
1568
1569 sub shift_file_to_end
1570 {
1571     my ($patchfilelist) = @_;
1572
1573     my @patchfile = ();
1574     my $lastfilename = "version.ini";
1575     my $lastfileline = "";
1576     my $foundfile = 0;
1577
1578     # Only searching this file in the last section
1579     my $lastsectionname = "";
1580
1581     for ( my $i = 0; $i <= $#{$patchfilelist}; $i++ )
1582     {
1583         my $line = ${$patchfilelist}[$i];
1584         if ( $line =~ /^\s*\[(.*?)\]\s*$/ ) { $lastsectionname = $1; }
1585     }
1586
1587     my $record = 0;
1588     for ( my $i = 0; $i <= $#{$patchfilelist}; $i++ )
1589     {
1590         my $line = ${$patchfilelist}[$i];
1591
1592         if ( $line =~ /^\s*\[\Q$lastsectionname\E\]\s*$/ ) { $record = 1; }
1593
1594         if (( $line =~ /^\s*\"\Q$lastfilename\E\"\=/ ) && ( $record ))
1595         {
1596             $lastfileline = $line;
1597             $foundfile = 1;
1598             $record = 0;
1599             next;
1600         }
1601
1602         push(@patchfile, $line);
1603     }
1604
1605     if ( $foundfile ) { push(@patchfile, $lastfileline); }
1606
1607     return      \@patchfile;
1608 }
1609
1610 ###########################################################
1611 # Putting hash content into array and sorting it
1612 ###########################################################
1613
1614 sub sort_hash
1615 {
1616     my ( $hashref ) =  @_;
1617
1618     my $item = "";
1619     my @sortedarray = ();
1620
1621     foreach $item (keys %{$hashref}) { push(@sortedarray, $item); }
1622     installer::sorter::sorting_array_of_strings(\@sortedarray);
1623
1624     return \@sortedarray;
1625 }
1626
1627 ###########################################################
1628 # Renaming Windows files in Patch and creating file
1629 # patchfiles.txt
1630 ###########################################################
1631
1632 sub prepare_windows_patchfiles
1633 {
1634     my ( $filesref, $languagestringref, $allvariableshashref ) = @_;
1635
1636     my @patchfiles = ();
1637     my %patchfiledirectories = ();
1638     my $patchfilename = "patchlist.txt";
1639     my $patchfilename2 = "patchmsi.dll";
1640
1641     if ( ! $allvariableshashref->{'WINDOWSPATCHLEVEL'} ) { installer::exiter::exit_program("ERROR: No Windows patch level defined in list file (WINDOWSPATCHLEVEL) !", "prepare_windows_patchfiles"); }
1642     # my $windowspatchlevel = $allvariableshashref->{'WINDOWSPATCHLEVEL'};
1643     my $windowspatchlevel = $installer::globals::buildid;
1644
1645     # the environment variable CWS_WORK_STAMP is set only in CWS
1646     if ( $ENV{'CWS_WORK_STAMP'} ) { $windowspatchlevel = $ENV{'CWS_WORK_STAMP'} . $windowspatchlevel; }
1647
1648     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1649     {
1650         my $onefile = ${$filesref}[$i];
1651
1652         my $filename = $onefile->{'Name'};
1653         if (( $filename eq $patchfilename ) || ( $filename eq $patchfilename2 )) { next; }
1654
1655         my $styles = "";
1656         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1657         if ( $styles =~ /\bDONTRENAMEINPATCH\b/ ) { next; }
1658
1659         # special handling for files with flag DONTSHOW. This files get the extension ".dontshow" to be filtered by dialogs.
1660         my $localwindowspatchlevel = $windowspatchlevel;
1661         if ( $styles =~ /\bDONTSHOW\b/ ) { $localwindowspatchlevel = $localwindowspatchlevel . "\.dontshow"; }
1662
1663         my $olddestination = $onefile->{'destination'};
1664         my $newdestination = $olddestination . "." . $localwindowspatchlevel;
1665         my $localfilename = $olddestination;
1666         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$localfilename);  # file name part
1667         my $line = "\"" . $localfilename . "\"" . "=" . "\"" . "\." . $localwindowspatchlevel . "\"";
1668         $onefile->{'destination'} = $newdestination;
1669
1670         my $newfilename = $onefile->{'Name'} . "." . $localwindowspatchlevel;
1671         $onefile->{'Name'} = $newfilename;
1672
1673         # adding section information (section is the directory)
1674         my $origolddestination = $olddestination;
1675         installer::pathanalyzer::get_path_from_fullqualifiedname(\$olddestination);     # directory part
1676         if ( ! $olddestination ) { $olddestination = "_root";  }
1677         if ( ! exists($patchfiledirectories{$olddestination}) ) { $patchfiledirectories{$olddestination} = 1; }
1678         $line = $line . "\tXXXXX\t" . $olddestination . "\n";
1679
1680         push(@patchfiles, $line);
1681
1682         # also collecting all files from patch in @installer::globals::patchfilecollector
1683         my $patchfileline = $origolddestination . "\n";
1684         push(@installer::globals::patchfilecollector, $patchfileline);
1685     }
1686
1687     my $winpatchdirname = "winpatch";
1688     my $winpatchdir = installer::systemactions::create_directories($winpatchdirname, $languagestringref);
1689
1690     my $patchlistfile = installer::existence::get_specified_file_by_name($filesref, $patchfilename);
1691
1692     # reorganizing the patchfile content, sorting for directory to decrease the file size
1693     my $sorteddirectorylist = sort_hash(\%patchfiledirectories);
1694     my $patchfilelist = reorg_patchfile(\@patchfiles, $sorteddirectorylist);
1695
1696     # shifting version.ini to the end of the list, to guarantee, that all files are patched
1697     # if the correct version is shown in the about box
1698     $patchfilelist = shift_section_to_end($patchfilelist);
1699     $patchfilelist = shift_file_to_end($patchfilelist);
1700
1701     # saving the file
1702     $patchfilename = $winpatchdir . $installer::globals::separator . $patchfilename;
1703     installer::files::save_file($patchfilename, $patchfilelist);
1704
1705     my $infoline = "\nCreated list of patch files: $patchfilename\n";
1706     push( @installer::globals::logfileinfo, $infoline);
1707
1708     # and assigning the new source
1709     $patchlistfile->{'sourcepath'} = $patchfilename;
1710
1711     # and finally checking the file size
1712     if ( -f $patchfilename )    # test of existence
1713     {
1714         my $filesize = ( -s $patchfilename );
1715         $infoline = "Size of patch file list: $filesize\n\n";
1716         push( @installer::globals::logfileinfo, $infoline);
1717         installer::logger::print_message( "... size of patch list file: $filesize Byte ... \n" );
1718
1719         # Win 98: Maximum size of ini file is 65 kB
1720         # if ( $filesize > 64000 ) { installer::exiter::exit_program("ERROR: Maximum size of patch file list is 65 kB (Win98), now reached: $filesize Byte !", "prepare_windows_patchfiles"); }
1721     }
1722
1723 }
1724
1725 ###########################################################
1726 # Replacing %-variables with the content
1727 # of $allvariableshashref
1728 ###########################################################
1729
1730 sub replace_variables_in_string
1731 {
1732     my ( $string, $variableshashref ) = @_;
1733
1734     if ( $string =~ /^.*\%\w+.*$/ )
1735     {
1736         my $key;
1737
1738         foreach $key (keys %{$variableshashref})
1739         {
1740             my $value = $variableshashref->{$key};
1741             $key = "\%" . $key;
1742             $string =~ s/\Q$key\E/$value/g;
1743         }
1744     }
1745
1746     return $string;
1747 }
1748
1749 ###########################################################
1750 # Replacing %-variables with the content
1751 # of $allvariableshashref
1752 ###########################################################
1753
1754 sub replace_dollar_variables_in_string
1755 {
1756     my ( $string, $variableshashref ) = @_;
1757
1758     if ( $string =~ /^.*\$\{\w+\}.*$/ )
1759     {
1760         my $key;
1761
1762         foreach $key (keys %{$variableshashref})
1763         {
1764             my $value = $variableshashref->{$key};
1765             $key = "\$\{" . $key . "\}";
1766             $string =~ s/\Q$key\E/$value/g;
1767         }
1768     }
1769
1770     return $string;
1771 }
1772
1773 ###########################################################
1774 # The list file contains the list of packages/RPMs that
1775 # have to be copied.
1776 ###########################################################
1777
1778 sub get_all_files_from_filelist
1779 {
1780     my ( $listfile, $section ) = @_;
1781
1782     my @allpackages = ();
1783
1784     for ( my $i = 0; $i <= $#{$listfile}; $i++ )
1785     {
1786         my $line = ${$listfile}[$i];
1787         if ( $line =~ /^\s*\#/ ) { next; } # this is a comment line
1788         if ( $line =~ /^\s*$/ ) { next; } # empty line
1789         $line =~ s/^\s*//;
1790         $line =~ s/\s*$//;
1791         push(@allpackages, $line);
1792     }
1793
1794     return \@allpackages;
1795 }
1796
1797 ###########################################################
1798 # Getting one section from a file. Section begins with
1799 # [xyz] and ends with file end or next [abc].
1800 ###########################################################
1801
1802 sub get_section_from_file
1803 {
1804     my ($file, $sectionname) = @_;
1805
1806     my @section = ();
1807     my $record = 0;
1808
1809     for ( my $i = 0; $i <= $#{$file}; $i++ )
1810     {
1811         my $line = ${$file}[$i];
1812
1813         if (( $record ) && ( $line =~ /^\s*\[/ ))
1814         {
1815             $record = 0;
1816             last;
1817         }
1818
1819         if ( $line =~ /^\s*\[\Q$sectionname\E\]\s*$/ ) { $record = 1; }
1820
1821         if ( $line =~ /^\s*\[/ ) { next; } # this is a section line
1822         if ( $line =~ /^\s*\#/ ) { next; } # this is a comment line
1823         if ( $line =~ /^\s*$/ ) { next; }  # empty line
1824         $line =~ s/^\s*//;
1825         $line =~ s/\s*$//;
1826         if ( $record ) { push(@section, $line); }
1827     }
1828
1829     return \@section;
1830
1831 }
1832
1833 #######################################################
1834 # Substituting one variable in the xml file
1835 #######################################################
1836
1837 sub replace_one_dollar_variable
1838 {
1839     my ($file, $variable, $searchstring) = @_;
1840
1841     for ( my $i = 0; $i <= $#{$file}; $i++ )
1842     {
1843         ${$file}[$i] =~ s/\$\{$searchstring\}/$variable/g;
1844     }
1845 }
1846
1847 #######################################################
1848 # Substituting the variables in the xml file
1849 #######################################################
1850
1851 sub substitute_dollar_variables
1852 {
1853     my ($file, $variableshashref) = @_;
1854
1855     my $key;
1856
1857     foreach $key (keys %{$variableshashref})
1858     {
1859         my $value = $variableshashref->{$key};
1860         replace_one_dollar_variable($file, $value, $key);
1861     }
1862 }
1863
1864 #############################################################################
1865 # Collecting all packages or rpms located in the installation directory
1866 #############################################################################
1867
1868 sub get_all_packages_in_installdir
1869 {
1870     my ($directory) = @_;
1871
1872     my $infoline = "";
1873
1874     my @allpackages = ();
1875     my $allpackages = \@allpackages;
1876
1877     if ( $installer::globals::islinuxrpmbuild )
1878     {
1879         $allpackages = installer::systemactions::find_file_with_file_extension("rpm", $directory);
1880     }
1881
1882     if ( $installer::globals::issolarisbuild )
1883     {
1884         $allpackages = installer::systemactions::get_all_directories($directory);
1885     }
1886
1887     return $allpackages;
1888 }
1889
1890 ###############################################################
1891 # The list of exclude packages can contain the
1892 # beginning of the package name, not the complete name.
1893 ###############################################################
1894
1895 sub is_matching
1896 {
1897     my ($onepackage, $allexcludepackages ) = @_;
1898
1899     my $matches = 0;
1900
1901     for ( my $i = 0; $i <= $#{$allexcludepackages}; $i++ )
1902     {
1903         my $oneexcludepackage = ${$allexcludepackages}[$i];
1904
1905         if ( $onepackage =~ /^\s*$oneexcludepackage/ )
1906         {
1907             $matches = 1;
1908             last;
1909         }
1910     }
1911
1912     return $matches;
1913 }
1914
1915 ###############################################################
1916 # Copying all Solaris packages or RPMs from installation set
1917 ###############################################################
1918
1919 sub copy_all_packages
1920 {
1921     my ($allexcludepackages, $sourcedir, $destdir) = @_;
1922
1923     my $infoline = "";
1924
1925     $sourcedir =~ s/\/\s*$//;
1926     $destdir =~ s/\/\s*$//;
1927
1928     # $allexcludepackages is a list of RPMs and packages, that shall NOT be included into jds product
1929     my $allpackages = get_all_packages_in_installdir($sourcedir);
1930
1931     for ( my $i = 0; $i <= $#{$allpackages}; $i++ )
1932     {
1933         my $onepackage = ${$allpackages}[$i];
1934
1935         my $packagename = $onepackage;
1936
1937         if ( $installer::globals::issolarispkgbuild )   # on Solaris $onepackage contains the complete path
1938         {
1939             installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$packagename);
1940         }
1941
1942         if ( ! installer::existence::exists_in_array($packagename, $allexcludepackages))
1943         {
1944             if ( ! is_matching($packagename, $allexcludepackages ) )
1945             {
1946
1947                 if ( $installer::globals::islinuxrpmbuild )
1948                 {
1949                     my $sourcepackage = $sourcedir . $installer::globals::separator . $packagename;
1950                     my $destfile = $destdir . $installer::globals::separator . $packagename;
1951                     if ( ! -f $sourcepackage ) { installer::exiter::exit_program("ERROR: Could not find RPM $sourcepackage!", "copy_all_packages"); }
1952                     installer::systemactions::hardlink_one_file($sourcepackage, $destfile);
1953                 }
1954
1955                 if ( $installer::globals::issolarispkgbuild )
1956                 {
1957                     my $destinationdir = $destdir . $installer::globals::separator . $packagename;
1958                     if ( ! -d $onepackage ) { installer::exiter::exit_program("ERROR: Could not find Solaris package $onepackage!", "copy_all_packages"); }
1959                     # installer::systemactions::hardlink_complete_directory($onepackage, $destinationdir);
1960                     # installer::systemactions::copy_complete_directory($onepackage, $destinationdir);
1961
1962                     my $systemcall = "cp -p -R $onepackage $destinationdir";
1963                      make_systemcall($systemcall);
1964                 }
1965             }
1966             else
1967             {
1968                 $infoline = "Excluding package (matching): $onepackage\n";
1969                 push( @installer::globals::logfileinfo, $infoline);
1970             }
1971         }
1972         else
1973         {
1974             $infoline = "Excluding package (precise name): $onepackage\n";
1975             push( @installer::globals::logfileinfo, $infoline);
1976         }
1977     }
1978 }
1979
1980 ######################################################
1981 # Making systemcall
1982 ######################################################
1983
1984 sub make_systemcall
1985 {
1986     my ($systemcall) = @_;
1987
1988     my $returnvalue = system($systemcall);
1989
1990     my $infoline = "Systemcall: $systemcall\n";
1991     push( @installer::globals::logfileinfo, $infoline);
1992
1993     if ($returnvalue)
1994     {
1995         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
1996         push( @installer::globals::logfileinfo, $infoline);
1997     }
1998     else
1999     {
2000         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2001         push( @installer::globals::logfileinfo, $infoline);
2002     }
2003 }
2004
2005 ###########################################################
2006 # Copying all Solaris packages or RPMs from solver
2007 ###########################################################
2008
2009 sub copy_additional_packages
2010 {
2011     my ($allcopypackages, $destdir, $includepatharrayref) = @_;
2012
2013     my $infoline = "Copy additional packages into installation set.\n";
2014     push( @installer::globals::logfileinfo, $infoline);
2015
2016     $destdir =~ s/\/\s*$//;
2017
2018     for ( my $i = 0; $i <= $#{$allcopypackages}; $i++ )
2019     {
2020         my $onepackage = ${$allcopypackages}[$i];
2021         $infoline = "Copy package: $onepackage\n";
2022         push( @installer::globals::logfileinfo, $infoline);
2023
2024         # this package must be delivered into the solver
2025
2026         my $packagesourceref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$onepackage, $includepatharrayref, 0);
2027         if ($$packagesourceref eq "") { installer::exiter::exit_program("ERROR: Could not find jds file $onepackage!", "copy_additional_packages"); }
2028
2029         if ( $onepackage =~ /\.tar\.gz\s*$/ )
2030         {
2031             my $systemcall = "cd $destdir; cat $$packagesourceref | gunzip | tar -xf -";
2032             make_systemcall($systemcall);
2033         }
2034         else
2035         {
2036             my $destfile = $destdir . $installer::globals::separator . $onepackage;
2037             installer::systemactions::copy_one_file($$packagesourceref, $destfile);
2038         }
2039     }
2040 }
2041
2042 ###########################################################
2043 # Creating jds installation sets
2044 ###########################################################
2045
2046 sub create_jds_sets
2047 {
2048     my ($installationdir, $allvariableshashref, $languagestringref, $languagesarrayref, $includepatharrayref) = @_;
2049
2050     installer::logger::print_message( "\n******************************************\n" );
2051     installer::logger::print_message( "... creating jds installation set ...\n" );
2052     installer::logger::print_message( "******************************************\n" );
2053
2054     installer::logger::include_header_into_logfile("Creating jds installation sets:");
2055
2056     my $firstdir = $installationdir;
2057     installer::pathanalyzer::get_path_from_fullqualifiedname(\$firstdir);
2058
2059     my $lastdir = $installationdir;
2060     installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$lastdir);
2061
2062     if ( $lastdir =~ /\./ ) { $lastdir =~ s/\./_jds_inprogress\./ }
2063     else { $lastdir = $lastdir . "_jds_inprogress"; }
2064
2065     # removing existing directory "_native_packed_inprogress" and "_native_packed_witherror" and "_native_packed"
2066
2067     my $jdsdir = $firstdir . $lastdir;
2068     if ( -d $jdsdir ) { installer::systemactions::remove_complete_directory($jdsdir); }
2069
2070     my $olddir = $jdsdir;
2071     $olddir =~ s/_inprogress/_witherror/;
2072     if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
2073
2074     $olddir = $jdsdir;
2075     $olddir =~ s/_inprogress//;
2076     if ( -d $olddir ) { installer::systemactions::remove_complete_directory($olddir); }
2077
2078     # creating the new directory
2079
2080     installer::systemactions::create_directory($jdsdir);
2081
2082     $installer::globals::saveinstalldir = $jdsdir;
2083
2084     # find and read jds files list
2085     my $filelistname = $installer::globals::jdsexcludefilename;
2086
2087     my $filelistnameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filelistname, "", 0);
2088     if ($$filelistnameref eq "") { installer::exiter::exit_program("ERROR: Could not find jds list file $filelistname!", "create_jds_sets"); }
2089
2090     my $listfile = installer::files::read_file($$filelistnameref);
2091
2092     my $infoline = "Found jds list file: $$filelistnameref\n";
2093     push( @installer::globals::logfileinfo, $infoline);
2094
2095     # substituting the variables
2096     substitute_dollar_variables($listfile, $allvariableshashref);
2097
2098     # determining the packages/RPMs to copy
2099     my $allexcludepackages = get_section_from_file($listfile, "excludefiles");
2100     my $allcopypackages = get_section_from_file($listfile, "copyfiles");
2101
2102     # determining the source directory
2103     my $alldirs = installer::systemactions::get_all_directories($installationdir);
2104     my $sourcedir = ${$alldirs}[0]; # there is only one directory
2105
2106     if ( $installer::globals::issolarisbuild ) { $sourcedir = $installer::globals::saved_packages_path; }
2107
2108     # copy all packages/RPMs
2109     copy_all_packages($allexcludepackages, $sourcedir, $jdsdir);
2110     copy_additional_packages($allcopypackages, $jdsdir, $includepatharrayref);
2111
2112     return $jdsdir;
2113 }
2114
2115 #############################################################################
2116 # Checking, whether this installation set contains the correct languages
2117 #############################################################################
2118
2119 sub check_jds_language
2120 {
2121     my ($allvariableshashref, $languagestringref) = @_;
2122
2123     my $infoline = "";
2124
2125     # languagesarrayref and $allvariableshashref->{'JDSLANG'}
2126
2127     if ( ! $allvariableshashref->{'JDSLANG'} ) { installer::exiter::exit_program("ERROR: For building JDS installation sets \"JDSLANG\" must be defined!", "check_jds_language"); }
2128     my $languagestring = $allvariableshashref->{'JDSLANG'};
2129
2130     my $sortedarray1 = installer::converter::convert_stringlist_into_array(\$languagestring, ",");
2131
2132     installer::sorter::sorting_array_of_strings($sortedarray1);
2133
2134     my $sortedarray2 = installer::converter::convert_stringlist_into_array($languagestringref, "_");
2135     installer::sorter::sorting_array_of_strings($sortedarray2);
2136
2137     my $string1 = installer::converter::convert_array_to_comma_separated_string($sortedarray1);
2138     my $string2 = installer::converter::convert_array_to_comma_separated_string($sortedarray2);
2139
2140     my $arrays_are_equal = compare_arrays($sortedarray1, $sortedarray2);
2141
2142     return $arrays_are_equal;
2143 }
2144
2145 ###################################################################################
2146 # Comparing two arrays. The arrays are equal, if the complete content is equal.
2147 ###################################################################################
2148
2149 sub compare_arrays
2150 {
2151     my ($array1, $array2) = @_;
2152
2153     my $arrays_are_equal = 1;
2154
2155     # checking the size
2156
2157     if ( ! ( $#{$array1} == $#{$array2} )) { $arrays_are_equal = 0; }   # different size
2158
2159     if ( $arrays_are_equal ) # only make further investigations if size is equal
2160     {
2161         for ( my $i = 0; $i <= $#{$array1}; $i++ )
2162         {
2163             # ingnoring whitespaces at end and beginning
2164             ${$array1}[$i] =~ s/^\s*//;
2165             ${$array2}[$i] =~ s/^\s*//;
2166             ${$array1}[$i] =~ s/\s*$//;
2167             ${$array2}[$i] =~ s/\s*$//;
2168
2169             if ( ! ( ${$array1}[$i] eq ${$array2}[$i] ))
2170             {
2171                 $arrays_are_equal = 0;
2172                 last;
2173             }
2174         }
2175     }
2176
2177     return $arrays_are_equal;
2178 }
2179
2180 #################################################################
2181 # Copying the files defined as ScpActions into the
2182 # installation set.
2183 #################################################################
2184
2185 sub put_scpactions_into_installset
2186 {
2187     my ($installdir) = @_;
2188
2189     installer::logger::include_header_into_logfile("Start: Copying scp action files into installation set");
2190
2191     for ( my $i = 0; $i <= $#installer::globals::allscpactions; $i++ )
2192     {
2193         my $onescpaction = $installer::globals::allscpactions[$i];
2194
2195         my $subdir = "";
2196         if ( $onescpaction->{'Subdir'} ) { $subdir = $onescpaction->{'Subdir'}; }
2197
2198         if ( $onescpaction->{'Name'} eq "loader.exe" ) { next; }        # do not copy this ScpAction loader
2199
2200         my $destdir = $installdir;
2201         $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
2202         if ( $subdir ) { $destdir = $destdir . $installer::globals::separator . $subdir; }
2203
2204         my $sourcefile = $onescpaction->{'sourcepath'};
2205         my $destfile = $destdir . $installer::globals::separator . $onescpaction->{'DestinationName'};
2206
2207         my $styles = "";
2208         if ( $onescpaction->{'Styles'} ) { $styles = $onescpaction->{'Styles'}; }
2209         if (( $styles =~ /\bFILE_CAN_MISS\b/ ) && ( $sourcefile eq "" )) { next; }
2210
2211         if (( $subdir =~ /\// ) || ( $subdir =~ /\\/ ))
2212         {
2213             installer::systemactions::create_directory_structure($destdir);
2214         }
2215         else
2216         {
2217             installer::systemactions::create_directory($destdir);
2218         }
2219
2220         installer::systemactions::copy_one_file($sourcefile, $destfile);
2221
2222         if ( $onescpaction->{'UnixRights'} )
2223         {
2224             my $localcall = "chmod $onescpaction->{'UnixRights'} $destfile \>\/dev\/null 2\>\&1";
2225             system($localcall);
2226         }
2227
2228     }
2229
2230     installer::logger::include_header_into_logfile("End: Copying scp action files into installation set");
2231
2232 }
2233
2234 #################################################################
2235 # Collecting scp actions for all languages
2236 #################################################################
2237
2238 sub collect_scpactions
2239 {
2240     my ($allscpactions) = @_;
2241
2242     for ( my $i = 0; $i <= $#{$allscpactions}; $i++ )
2243     {
2244         push(@installer::globals::allscpactions, ${$allscpactions}[$i]);
2245     }
2246 }
2247
2248 #################################################################
2249 # Setting the platform name for download
2250 #################################################################
2251
2252 sub get_platform_name
2253 {
2254     my $platformname = "";
2255
2256     if (( $installer::globals::islinuxintelrpmbuild ) || ( $installer::globals::islinuxinteldebbuild ))
2257     {
2258         $platformname = "LinuxIntel";
2259     }
2260     elsif (( $installer::globals::islinuxppcrpmbuild ) || ( $installer::globals::islinuxppcdebbuild ))
2261     {
2262         $platformname = "LinuxPowerPC";
2263     }
2264     elsif (( $installer::globals::islinuxx86_64rpmbuild ) || ( $installer::globals::islinuxx86_64debbuild ))
2265     {
2266         $platformname = "LinuxX86-64";
2267     }
2268     elsif ( $installer::globals::issolarissparcbuild )
2269     {
2270         $platformname = "SolarisSparc";
2271     }
2272     elsif ( $installer::globals::issolarisx86build )
2273     {
2274         $platformname = "Solarisx86";
2275     }
2276     elsif ( $installer::globals::iswindowsbuild )
2277     {
2278         $platformname = "Win32Intel";
2279     }
2280     elsif ( $installer::globals::compiler =~ /^unxmacxi/ )
2281     {
2282         $platformname = "MacOSXIntel";
2283     }
2284     elsif ( $installer::globals::compiler =~ /^unxmacxp/ )
2285     {
2286         $platformname = "MacOSXPowerPC";
2287     }
2288     else
2289     {
2290         # $platformname = $installer::globals::packageformat;
2291         $platformname = $installer::globals::compiler;
2292     }
2293
2294     return $platformname;
2295 }
2296
2297 ###########################################################
2298 # Adding additional variables into the variableshashref,
2299 # that are defined in include files in the solver. The
2300 # names of the include files are stored in
2301 # ADD_INCLUDE_FILES (comma separated list).
2302 ###########################################################
2303
2304 sub add_variables_from_inc_to_hashref
2305 {
2306     my ($allvariables, $includepatharrayref) = @_;
2307
2308     my $infoline = "";
2309     my $includefilelist = "";
2310     if ( $allvariables->{'ADD_INCLUDE_FILES'} ) { $includefilelist = $allvariables->{'ADD_INCLUDE_FILES'}; }
2311
2312     my $includefiles = installer::converter::convert_stringlist_into_array_without_linebreak_and_quotes(\$includefilelist, ",");
2313
2314     for ( my $i = 0; $i <= $#{$includefiles}; $i++ )
2315     {
2316         my $includefilename = ${$includefiles}[$i];
2317         $includefilename =~ s/^\s*//;
2318         $includefilename =~ s/\s*$//;
2319         $includefilenameref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$includefilename, $includepatharrayref, 1);
2320         if ( $$includefilenameref eq "" ) { installer::exiter::exit_program("Include file $includefilename not found!\nADD_INCLUDE_FILES = $allvariables->{'ADD_INCLUDE_FILES'}", "add_variables_from_inc_to_hashref"); }
2321
2322         $infoline = "Including inc file: $$includefilenameref \n";
2323         push( @installer::globals::globallogfileinfo, $infoline);
2324
2325         my $includefile = installer::files::read_file($$includefilenameref);
2326
2327         for ( my $j = 0; $j <= $#{$includefile}; $j++ )
2328         {
2329             # Analyzing all "key=value" lines
2330             my $oneline = ${$includefile}[$j];
2331
2332             if ( $oneline =~ /^\s*(\S+)\s*\=\s*(.*?)\s*$/ )     # no white space allowed in key
2333             {
2334                 my $key = $1;
2335                 my $value = $2;
2336                 $allvariables->{$key} = $value;
2337                 $infoline = "Setting of variable: $key = $value\n";
2338                 push( @installer::globals::globallogfileinfo, $infoline);
2339             }
2340         }
2341     }
2342
2343     # Allowing different Java versions for Windows and Unix. Instead of "JAVAVERSION"
2344     # the property "WINDOWSJAVAVERSION" has to be used, if it is set.
2345
2346     if ( $installer::globals::iswindowsbuild )
2347     {
2348         if (( exists($allvariables->{'WINDOWSJAVAVERSION'})) && ( $allvariables->{'WINDOWSJAVAVERSION'} ne "" ))
2349         {
2350             $allvariables->{'JAVAVERSION'} = $allvariables->{'WINDOWSJAVAVERSION'};
2351             $infoline = "Changing value of property \"JAVAVERSION\" to $allvariables->{'JAVAVERSION'} (property \"WINDOWSJAVAVERSION\").\n";
2352             push( @installer::globals::globallogfileinfo, $infoline);
2353         }
2354     }
2355 }
2356
2357 ##############################################
2358 # Collecting all files from include pathes
2359 ##############################################
2360
2361 sub collect_all_files_from_includepathes
2362 {
2363     my ($patharrayref) = @_;
2364
2365     installer::logger::globallog("Reading all directories: Start");
2366     installer::logger::print_message( "... reading include pathes ...\n" );
2367     # empty the global
2368
2369     @installer::globals::allincludepathes =();
2370     my $infoline;
2371
2372     for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
2373     {
2374         $includepath = ${$patharrayref}[$i];
2375         installer::remover::remove_leading_and_ending_whitespaces(\$includepath);
2376
2377         if ( ! -d $includepath )
2378         {
2379             $infoline = "$includepath does not exist. (Can be removed from include path list?)\n";
2380             push( @installer::globals::globallogfileinfo, $infoline);
2381             next;
2382         }
2383
2384         my @sourcefiles = ();
2385         my $pathstring = "";
2386         # installer::systemactions::read_complete_directory($includepath, $pathstring, \@sourcefiles);
2387         installer::systemactions::read_full_directory($includepath, $pathstring, \@sourcefiles);
2388
2389         if ( ! ( $#sourcefiles > -1 ))
2390         {
2391             $infoline = "$includepath is empty. (Can be removed from include path list?)\n";
2392             push( @installer::globals::globallogfileinfo, $infoline);
2393         }
2394         else
2395         {
2396             my $number = $#sourcefiles + 1;
2397             $infoline = "Directory $includepath contains $number files (including subdirs)\n";
2398             push( @installer::globals::globallogfileinfo, $infoline);
2399
2400             my %allfileshash = ();
2401             $allfileshash{'includepath'} = $includepath;
2402
2403             for ( my $j = 0; $j <= $#sourcefiles; $j++ )
2404             {
2405                 $allfileshash{$sourcefiles[$j]} = 1;
2406             }
2407
2408             push(@installer::globals::allincludepathes, \%allfileshash);
2409         }
2410     }
2411
2412     $installer::globals::include_pathes_read = 1;
2413
2414     installer::logger::globallog("Reading all directories: End");
2415     push( @installer::globals::globallogfileinfo, "\n");
2416 }
2417
2418 ##############################################
2419 # Searching for a file with the gid
2420 ##############################################
2421
2422 sub find_file_by_id
2423 {
2424     my ( $filesref, $gid ) = @_;
2425
2426     my $foundfile = 0;
2427     my $onefile;
2428
2429     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2430     {
2431         $onefile = ${$filesref}[$i];
2432         my $filegid = $onefile->{'gid'};
2433
2434         if ( $filegid eq $gid )
2435         {
2436             $foundfile = 1;
2437             last;
2438         }
2439     }
2440
2441     # It does not need to exist. For example products that do not contain the libraries.
2442     # if (! $foundfile ) { installer::exiter::exit_program("ERROR: No unique file name found for $filename !", "get_selfreg_file"); }
2443
2444     if (! $foundfile ) { $onefile  = ""; }
2445
2446     return $onefile;
2447 }
2448
2449 ##############################################
2450 # Searching for an item with the gid
2451 ##############################################
2452
2453 sub find_item_by_gid
2454 {
2455     my ( $itemsref, $gid ) = @_;
2456
2457     my $founditem = 0;
2458     my $oneitem = "";
2459
2460     for ( my $i = 0; $i <= $#{$itemsref}; $i++ )
2461     {
2462         my $localitem = ${$itemsref}[$i];
2463         my $itemgid = $localitem->{'gid'};
2464
2465         if ( $itemgid eq $gid )
2466         {
2467             $oneitem = $localitem;
2468             $founditem = 1;
2469             last;
2470         }
2471     }
2472
2473     return $oneitem;
2474 }
2475
2476 #########################################################
2477 # Calling sum
2478 #########################################################
2479
2480 sub call_sum
2481 {
2482     my ($filename) = @_;
2483
2484     $sumfile = "/usr/bin/sum";
2485
2486     if ( ! -f $sumfile ) { installer::exiter::exit_program("ERROR: No file /usr/bin/sum", "call_sum"); }
2487
2488     my $systemcall = "$sumfile $filename |";
2489
2490     my $sumoutput = "";
2491
2492     open (SUM, "$systemcall");
2493     $sumoutput = <SUM>;
2494     close (SUM);
2495
2496     my $returnvalue = $?;       # $? contains the return value of the systemcall
2497
2498     my $infoline = "Systemcall: $systemcall\n";
2499     push( @installer::globals::logfileinfo, $infoline);
2500
2501     if ($returnvalue)
2502     {
2503         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2504         push( @installer::globals::logfileinfo, $infoline);
2505     }
2506     else
2507     {
2508         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2509         push( @installer::globals::logfileinfo, $infoline);
2510     }
2511
2512     return $sumoutput;
2513 }
2514
2515 #########################################################
2516 # Calling wc
2517 # wc -c pkginfo | cut -f6 -d' '
2518 #########################################################
2519
2520 sub call_wc
2521 {
2522     my ($filename) = @_;
2523
2524     $wcfile = "/usr/bin/wc";
2525
2526     if ( ! -f $wcfile ) { installer::exiter::exit_program("ERROR: No file /usr/bin/wc", "call_wc"); }
2527
2528     my $systemcall = "$wcfile -c $filename |";
2529
2530     my $wcoutput = "";
2531
2532     open (WC, "$systemcall");
2533     $wcoutput = <WC>;
2534     close (WC);
2535
2536     my $returnvalue = $?;       # $? contains the return value of the systemcall
2537
2538     my $infoline = "Systemcall: $systemcall\n";
2539     push( @installer::globals::logfileinfo, $infoline);
2540
2541     if ($returnvalue)
2542     {
2543         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2544         push( @installer::globals::logfileinfo, $infoline);
2545     }
2546     else
2547     {
2548         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2549         push( @installer::globals::logfileinfo, $infoline);
2550     }
2551
2552     return $wcoutput;
2553 }
2554
2555 ##############################################
2556 # Setting architecture ARCH=i86pc
2557 # instead of ARCH=i386.
2558 ##############################################
2559
2560 sub set_old_architecture_string
2561 {
2562     my ($pkginfofile) = @_;
2563
2564     for ( my $i = 0; $i <= $#{$pkginfofile}; $i++ )
2565     {
2566         if ( ${$pkginfofile}[$i] =~ /^\s*ARCH=i386\s*$/ )
2567         {
2568             ${$pkginfofile}[$i] =~ s/i386/i86pc/;
2569             last;
2570         }
2571     }
2572 }
2573
2574 ##############################################
2575 # For the new copied package, it is necessary
2576 # that a value for the key SUNW_REQUIRES
2577 # is set. Otherwise this copied package
2578 # with ARCH=i86pc would be useless.
2579 ##############################################
2580
2581 sub check_requires_setting
2582 {
2583     my ($pkginfofile) = @_;
2584
2585     my $found = 0;
2586     my $patchid = "";
2587
2588     for ( my $i = 0; $i <= $#{$pkginfofile}; $i++ )
2589     {
2590         if ( ${$pkginfofile}[$i] =~ /^\s*SUNW_REQUIRES=(\S*?)\s*$/ )
2591         {
2592             $patchid = $1;
2593             $found = 1;
2594             last;
2595         }
2596     }
2597
2598     if (( ! $found ) || ( $patchid eq "" )) { installer::exiter::exit_program("ERROR: No patch id defined for SUNW_REQUIRES in patch pkginfo file!", "check_requires_setting"); }
2599 }
2600
2601 ##############################################
2602 # Setting checksum and wordcount for changed
2603 # pkginfo file into pkgmap.
2604 ##############################################
2605
2606 sub set_pkginfo_line
2607 {
2608     my ($pkgmapfile, $pkginfofilename) = @_;
2609
2610     # 1 i pkginfo 442 34577 1166716297
2611     # ->
2612     # 1 i pkginfo 443 34737 1166716297
2613     #
2614     # wc -c pkginfo | cut -f6 -d' '  -> 442  (variable)
2615     # sum pkginfo | cut -f1 -d' '  -> 34577  (variable)
2616     # grep 'pkginfo' pkgmap | cut -f6 -d' '  -> 1166716297  (fix)
2617
2618     my $checksum = call_sum($pkginfofilename);
2619     if ( $checksum =~ /^\s*(\d+)\s+.*$/ ) { $checksum = $1; }
2620
2621     my $wordcount = call_wc($pkginfofilename);
2622     if ( $wordcount =~ /^\s*(\d+)\s+.*$/ ) { $wordcount = $1; }
2623
2624     for ( my $i = 0; $i <= $#{$pkgmapfile}; $i++ )
2625     {
2626         if ( ${$pkgmapfile}[$i] =~ /(^.*\bpkginfo\b\s+)(\d+)(\s+)(\d+)(\s+)(\d+)(\s*$)/ )
2627         {
2628             my $newline = $1 . $wordcount . $3 . $checksum . $5 . $6 . $7;
2629             ${$pkgmapfile}[$i] = $newline;
2630             last;
2631         }
2632     }
2633 }
2634
2635 ##############################################
2636 # Setting time stamp of copied files to avoid
2637 # errors from pkgchk.
2638 ##############################################
2639
2640 sub set_time_stamp
2641 {
2642     my ($olddir, $newdir, $copyfiles) = @_;
2643
2644     for ( my $i = 0; $i <= $#{$copyfiles}; $i++ )
2645     {
2646         my $sourcefile = $olddir . $installer::globals::separator . ${$copyfiles}[$i];
2647         my $destfile = $newdir . $installer::globals::separator . ${$copyfiles}[$i];
2648
2649         my $systemcall = "touch -r $sourcefile $destfile";
2650
2651         my $returnvalue = system($systemcall);
2652
2653         my $infoline = "Systemcall: $systemcall\n";
2654         push( @installer::globals::logfileinfo, $infoline);
2655
2656         if ($returnvalue)
2657         {
2658             $infoline = "ERROR: \"$systemcall\" failed!\n";
2659             push( @installer::globals::logfileinfo, $infoline);
2660         }
2661         else
2662         {
2663             $infoline = "Success: \"$systemcall\" !\n";
2664             push( @installer::globals::logfileinfo, $infoline);
2665         }
2666     }
2667 }
2668
2669 ##############################################
2670 # Include only files from install directory
2671 # in pkgmap file.
2672 ##############################################
2673 ########################################
2674 # Generating pathes for cygwin.
2675 ########################################
2676
2677 sub generate_cygwin_pathes
2678 {
2679     my ($filesref) = @_;
2680
2681     my ($tmpfilehandle, $tmpfilename) = tmpnam();
2682     open SOURCEPATHLIST, ">$tmpfilename" or die "oops...\n";
2683     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2684     {
2685         print SOURCEPATHLIST "${$filesref}[$i]->{'sourcepath'}\n";
2686     }
2687     close SOURCEPATHLIST;
2688     my @cyg_sourcepathlist = qx{cygpath -w -f "$tmpfilename"};
2689     chomp @cyg_sourcepathlist;
2690     unlink "$tmpfilename" or die "oops\n";
2691     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2692     {
2693         ${$filesref}[$i]->{'cyg_sourcepath'} = $cyg_sourcepathlist[$i];
2694     }
2695 }
2696
2697 sub filter_pkgmapfile
2698 {
2699     my ($pkgmapfile) = @_;
2700
2701     my @pkgmap = ();
2702
2703     my $line = ": 1 10\n";
2704     push(@pkgmap, $line);
2705
2706     for ( my $i = 0; $i <= $#{$pkgmapfile}; $i++ )
2707     {
2708         $line = ${$pkgmapfile}[$i];
2709         if ( $line =~ /^\s*1\si\s/ ) { push(@pkgmap, $line); }
2710     }
2711
2712     return \@pkgmap;
2713 }
2714
2715 ##############################################
2716 # Creating double packages for Solaris x86.
2717 # One package with ARCH=i386 and one with
2718 # ARCH=i86pc.
2719 ##############################################
2720
2721 sub fix_solaris_x86_patch
2722 {
2723     my ($packagename, $subdir) = @_;
2724
2725     # changing into directory of packages, important for soft linking
2726     my $startdir = cwd();
2727     chdir($subdir);
2728
2729     # $packagename is: "SUNWstaroffice-core01"
2730     # Current working directory is: "<path>/install/en-US_inprogress"
2731
2732     # create new folder in "packages": $packagename . ".i"
2733     my $newpackagename = $packagename . "\.i";
2734     my $newdir = $newpackagename;
2735     installer::systemactions::create_directory($newdir);
2736
2737     # collecting all directories in the package
2738     my $olddir = $packagename;
2739     my $allsubdirs = installer::systemactions::get_all_directories_without_path($olddir);
2740
2741     # link all directories from $packagename to $packagename . ".i"
2742     for ( my $i = 0; $i <= $#{$allsubdirs}; $i++ )
2743     {
2744         my $sourcedir = $olddir . $installer::globals::separator . ${$allsubdirs}[$i];
2745         my $destdir = $newdir . $installer::globals::separator . ${$allsubdirs}[$i];
2746         my $directory_depth = 2; # important for soft links, two directories already exist
2747         installer::systemactions::softlink_complete_directory($sourcedir, $destdir, $directory_depth);
2748     }
2749
2750     # copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
2751     my @allcopyfiles = ("pkginfo", "pkgmap");
2752     for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
2753     {
2754         my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
2755         my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
2756         installer::systemactions::copy_one_file($sourcefile, $destfile);
2757     }
2758
2759     # change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
2760     my $pkginfofilename = "pkginfo";
2761     $pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
2762
2763     my $pkginfofile = installer::files::read_file($pkginfofilename);
2764     set_old_architecture_string($pkginfofile);
2765     installer::files::save_file($pkginfofilename, $pkginfofile);
2766
2767     # adapt the values in pkgmap for pkginfo file, because this file was edited
2768     my $pkgmapfilename = "pkgmap";
2769     $pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
2770
2771     my $pkgmapfile = installer::files::read_file($pkgmapfilename);
2772     set_pkginfo_line($pkgmapfile, $pkginfofilename);
2773     installer::files::save_file($pkgmapfilename, $pkgmapfile);
2774
2775     # changing back to startdir
2776     chdir($startdir);
2777 }
2778
2779 ###################################################
2780 # Creating double core01 package for Solaris x86.
2781 # One package with ARCH=i386 and one with
2782 # ARCH=i86pc. This is necessary, to inform the
2783 # user about the missing "small patch", if
2784 # packages with ARCH=i86pc are installed.
2785 ###################################################
2786
2787 sub fix2_solaris_x86_patch
2788 {
2789     my ($packagename, $subdir) = @_;
2790
2791     if ( $packagename =~ /-core01\s*$/ )        # only this one package needs to be duplicated
2792     {
2793         my $startdir = cwd();
2794         chdir($subdir);
2795
2796         # $packagename is: "SUNWstaroffice-core01"
2797         # Current working directory is: "<path>/install/en-US_inprogress"
2798
2799         # create new package in "packages": $packagename . ".i"
2800         my $olddir = $packagename;
2801         my $newpackagename = $packagename . "\.i";
2802         my $newdir = $newpackagename;
2803
2804         installer::systemactions::create_directory($newdir);
2805
2806         my $oldinstalldir = $olddir . $installer::globals::separator . "install";
2807         my $newinstalldir = $newdir . $installer::globals::separator . "install";
2808
2809         installer::systemactions::copy_complete_directory($oldinstalldir, $newinstalldir);
2810
2811         # setting time stamp of all copied files to avoid errors from pkgchk
2812         my $allinstallfiles = installer::systemactions::get_all_files_from_one_directory_without_path($newinstalldir);
2813         set_time_stamp($oldinstalldir, $newinstalldir, $allinstallfiles);
2814
2815         # copy "pkginfo" and "pkgmap" from $packagename to $packagename . ".i"
2816         my @allcopyfiles = ("pkginfo", "pkgmap");
2817         for ( my $i = 0; $i <= $#allcopyfiles; $i++ )
2818         {
2819             my $sourcefile = $olddir . $installer::globals::separator . $allcopyfiles[$i];
2820             my $destfile = $newdir . $installer::globals::separator . $allcopyfiles[$i];
2821             installer::systemactions::copy_one_file($sourcefile, $destfile);
2822         }
2823
2824         # change in pkginfo in $packagename . ".i" the value for ARCH from i386 to i86pc
2825         my $pkginfofilename = "pkginfo";
2826         $pkginfofilename = $newdir . $installer::globals::separator . $pkginfofilename;
2827
2828         my $pkginfofile = installer::files::read_file($pkginfofilename);
2829         set_old_architecture_string($pkginfofile);
2830         check_requires_setting($pkginfofile);
2831         installer::files::save_file($pkginfofilename, $pkginfofile);
2832
2833         # adapt the values in pkgmap for pkginfo file, because this file was edited
2834         my $pkgmapfilename = "pkgmap";
2835         $pkgmapfilename = $newdir . $installer::globals::separator . $pkgmapfilename;
2836
2837         my $pkgmapfile = installer::files::read_file($pkgmapfilename);
2838         set_pkginfo_line($pkgmapfile, $pkginfofilename);
2839         $pkgmapfile = filter_pkgmapfile($pkgmapfile);
2840         installer::files::save_file($pkgmapfilename, $pkgmapfile);
2841
2842         # setting time stamp of all copied files to avoid errors from pkgchk
2843         set_time_stamp($olddir, $newdir, \@allcopyfiles);
2844
2845         # changing back to startdir
2846         chdir($startdir);
2847     }
2848 }
2849
2850 ################################################
2851 # Files with flag HIDDEN get a dot at the
2852 # beginning of the file name. This cannot be
2853 # defined in scp2 project, because tooling
2854 # cannot handle files with beginning dot
2855 # correctly.
2856 ################################################
2857
2858 sub resolving_hidden_flag
2859 {
2860     my ($filesarrayref, $variableshashref, $item, $languagestringref) = @_;
2861
2862     my $diritem = lc($item);
2863     my $infoline = "";
2864
2865     my $hiddendirbase = installer::systemactions::create_directories("hidden_$diritem", $languagestringref);
2866
2867     installer::logger::include_header_into_logfile("$item with flag HIDDEN:");
2868
2869     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
2870     {
2871         my $onefile = ${$filesarrayref}[$i];
2872         my $styles = "";
2873
2874         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
2875
2876         if ( $styles =~ /\bHIDDEN\b/ )
2877         {
2878             # Language specific subdirectory
2879
2880             my $onelanguage = $onefile->{'specificlanguage'};
2881
2882             if ($onelanguage eq "")
2883             {
2884                 $onelanguage = "00";    # files without language into directory "00"
2885             }
2886
2887             my $hiddendir = $hiddendirbase . $installer::globals::separator . $onelanguage . $installer::globals::separator;
2888             installer::systemactions::create_directory($hiddendir);     # creating language specific directories
2889
2890             # copy files and edit them with the variables defined in the zip.lst
2891
2892             my $onefilename = $onefile->{'Name'};
2893             my $newfilename = "\." . $onefilename;
2894             my $sourcefile = $onefile->{'sourcepath'};
2895             my $destfile = $hiddendir . $newfilename;
2896
2897             my $copysuccess = installer::systemactions::copy_one_file($sourcefile, $destfile);
2898
2899             if ( $copysuccess )
2900             {
2901                 # $onefile->{'Name'} = $newfilename;
2902                 $onefile->{'sourcepath'} = $destfile;
2903                 $destination = $onefile->{'destination'};
2904                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$destination);
2905                 if ( $destination eq "" ) { $onefile->{'destination'} = $newfilename; }
2906                 else { $onefile->{'destination'} = $destination . $installer::globals::separator . $newfilename; }
2907
2908                 $infoline = "Success: Using file with flag HIDDEN from \"$onefile->{'sourcepath'}\"!\n";
2909                 push( @installer::globals::logfileinfo, $infoline);
2910             }
2911             else
2912             {
2913                 $infoline = "Error: Failed to copy HIDDEN file from \"$sourcefile\" to \"$destfile\"!\n";
2914                 push( @installer::globals::logfileinfo, $infoline);
2915             }
2916         }
2917     }
2918
2919     $infoline = "\n";
2920     push( @installer::globals::logfileinfo, $infoline);
2921 }
2922
2923 ################################################
2924 # Controlling that all keys in hash A are
2925 # also key in hash B.
2926 ################################################
2927
2928 sub key_in_a_is_also_key_in_b
2929 {
2930     my ( $hashref_a, $hashref_b) = @_;
2931
2932     my $returnvalue = 1;
2933
2934     my $key;
2935     foreach $key ( keys %{$hashref_a} )
2936     {
2937         if ( ! exists($hashref_b->{$key}) )
2938         {
2939             print "*****\n";
2940             foreach $keyb ( keys %{$hashref_b} ) { print "$keyb : $hashref_b->{$keyb}\n"; }
2941             print "*****\n";
2942             $returnvalue = 0;
2943         }
2944     }
2945
2946     return $returnvalue;
2947 }
2948
2949 ################################################
2950 # Setting all spellchecker languages
2951 ################################################
2952
2953 sub set_spellcheckerlanguages
2954 {
2955     my ( $productlanguagesarrayref, $allvariables ) = @_;
2956
2957     my %productlanguages = ();
2958     for ( my $i = 0; $i <= $#{$productlanguagesarrayref}; $i++ ) { $productlanguages{${$productlanguagesarrayref}[$i]} = 1;  }
2959
2960     my $spellcheckfilename = $allvariables->{'SPELLCHECKERFILE'};
2961
2962     my $spellcheckfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$spellcheckfilename, "", 1);
2963
2964     if ($$spellcheckfileref eq "") { installer::exiter::exit_program("ERROR: Could not find $spellcheckfilename!", "set_spellcheckerlanguages"); }
2965
2966     my $infoline = "Using spellchecker file: $$spellcheckfileref \n";
2967     push( @installer::globals::globallogfileinfo, $infoline);
2968
2969     my $spellcheckfile = installer::files::read_file($$spellcheckfileref);
2970     my %spellcheckhash = ();
2971
2972     for ( my $j = 0; $j <= $#{$spellcheckfile}; $j++ )
2973     {
2974         # Analyzing all "key=value" lines
2975         my $oneline = ${$spellcheckfile}[$j];
2976
2977         if ( $oneline =~ /^\s*(\S+)\s*\=\s*\"(.*?)\"\s*$/ )     # no white space allowed in key
2978         {
2979             my $onelang = $1;
2980             my $languagelist = $2;
2981             $spellcheckhash{$onelang} = $languagelist;
2982
2983             # Special handling for language packs. Do only include that one language of the language pack, no further language.
2984             # And this only, if the language of the language pack is also already part of the language list
2985
2986             if ( $installer::globals::languagepack )
2987             {
2988                 if ( $languagelist =~ /\b$onelang\b/ ) { $spellcheckhash{$onelang} = $onelang; }
2989                 else { $spellcheckhash{$onelang} = ""; }
2990             }
2991         }
2992     }
2993
2994     # Collecting all required languages in %installer::globals::spellcheckerlanguagehash
2995
2996     foreach my $lang (keys %productlanguages)
2997     {
2998         my $languagelist = "";
2999         if ( exists($spellcheckhash{$lang}) ) { $languagelist = $spellcheckhash{$lang}; }
3000         else { $languagelist = $spellcheckhash{'en-US'}; }      # defaulting to English
3001
3002         my $langlisthash = installer::converter::convert_stringlist_into_hash(\$languagelist, ",");
3003         foreach my $onelang ( keys %{$langlisthash} ) { $installer::globals::spellcheckerlanguagehash{$onelang} = 1; }
3004     }
3005
3006     $installer::globals::analyze_spellcheckerlanguage = 1;
3007
3008     # Logging
3009
3010     my $langstring = "";
3011     foreach my $lang (sort keys %installer::globals::spellcheckerlanguagehash) { $langstring = $langstring . "," . $lang }
3012     $langstring =~ s/^\s*,//;
3013
3014     $infoline = "Collected spellchecker languages for spellchecker: $langstring \n";
3015     push( @installer::globals::globallogfileinfo, $infoline);
3016 }
3017
3018 ################################################
3019 # Including a license text into setup script
3020 ################################################
3021
3022 sub put_license_into_setup
3023 {
3024     my ($installdir, $includepatharrayref) = @_;
3025
3026     # find and read english license file
3027     my $licenselanguage = "en-US";                                      # always english !
3028     my $licensefilename = "LICENSE_" . $licenselanguage;
3029     my $licenseincludepatharrayref = get_language_specific_include_pathes($includepatharrayref, $licenselanguage);
3030
3031     my $licenseref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefilename, $licenseincludepatharrayref, 0);
3032     if ($$licenseref eq "") { installer::exiter::exit_program("ERROR: Could not find License file $licensefilename!", "put_license_into_setup"); }
3033     my $licensefile = installer::files::read_file($$licenseref);
3034
3035     # Read setup
3036     my $setupfilename = $installdir . $installer::globals::separator . "setup";
3037     my $setupfile = installer::files::read_file($setupfilename);
3038
3039     # Replacement
3040     my $infoline = "Adding licensefile into setup script\n";
3041     push( @installer::globals::logfileinfo, $infoline);
3042
3043     my $includestring = "";
3044     for ( my $i = 0; $i <= $#{$licensefile}; $i++ ) { $includestring = $includestring . ${$licensefile}[$i]; }
3045     for ( my $i = 0; $i <= $#{$setupfile}; $i++ ) { ${$setupfile}[$i] =~ s/LICENSEFILEPLACEHOLDER/$includestring/; }
3046
3047     # Write setup
3048     installer::files::save_file($setupfilename, $setupfile);
3049 }
3050
3051 ################################################
3052 # Setting global path to getuid.so library
3053 ################################################
3054
3055 sub set_getuid_path
3056 {
3057     my ($includepatharrayref) = @_;
3058
3059     my $getuidlibraryname = "getuid.so";
3060     my $getuidlibraryref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$getuidlibraryname, $includepatharrayref, 0);
3061     if ($$getuidlibraryref eq "") { installer::exiter::exit_program("ERROR: Could not find $getuidlibraryname!", "set_getuid_path"); }
3062
3063     $installer::globals::getuidpath = $$getuidlibraryref;
3064     $installer::globals::getuidpathset = 1;
3065 }
3066
3067 #########################################################
3068 # Create a tar file from the binary package
3069 #########################################################
3070
3071 sub tar_package
3072 {
3073     my ( $installdir, $packagename, $tarfilename, $getuidlibrary) = @_;
3074
3075     my $ldpreloadstring = "";
3076     if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3077
3078     my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - $packagename > $tarfilename";
3079     # my $systemcall = "cd $installdir; $ldpreloadstring tar -cf - * > $tarfilename";
3080
3081     my $returnvalue = system($systemcall);
3082
3083     my $infoline = "Systemcall: $systemcall\n";
3084     push( @installer::globals::logfileinfo, $infoline);
3085
3086     if ($returnvalue)
3087     {
3088         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
3089         push( @installer::globals::logfileinfo, $infoline);
3090     }
3091     else
3092     {
3093         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
3094         push( @installer::globals::logfileinfo, $infoline);
3095     }
3096
3097     my $localcall = "chmod 775 $tarfilename \>\/dev\/null 2\>\&1";
3098     $returnvalue = system($localcall);
3099
3100     my $fulltarfile = $installdir . $installer::globals::separator . $tarfilename;
3101     my $filesize = ( -s $fulltarfile );
3102
3103     return $filesize;
3104 }
3105
3106 #########################################################
3107 # Create a tar file from the binary package
3108 #########################################################
3109
3110 sub untar_package
3111 {
3112     my ( $installdir, $tarfilename, $getuidlibrary) = @_;
3113
3114     my $ldpreloadstring = "";
3115     if ( $getuidlibrary ne "" ) { $ldpreloadstring = "LD_PRELOAD=" . $getuidlibrary; }
3116
3117     my $systemcall = "cd $installdir; $ldpreloadstring tar -xf $tarfilename";
3118
3119     my $returnvalue = system($systemcall);
3120
3121     my $infoline = "Systemcall: $systemcall\n";
3122     push( @installer::globals::logfileinfo, $infoline);
3123
3124     if ($returnvalue)
3125     {
3126         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
3127         push( @installer::globals::logfileinfo, $infoline);
3128     }
3129     else
3130     {
3131         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
3132         push( @installer::globals::logfileinfo, $infoline);
3133     }
3134
3135     my $localcall = "chmod 775 $tarfilename \>\/dev\/null 2\>\&1";
3136     $returnvalue = system($localcall);
3137 }
3138
3139 #########################################################
3140 # Shuffle an array (Fisher Yates shuffle)
3141 #########################################################
3142
3143 sub shuffle_array
3144 {
3145     my ( $arrayref ) = @_;
3146
3147     # my $counter = 0;
3148     # my $infoline = "Old package order: \n";
3149     # push( @installer::globals::logfileinfo, $infoline);
3150     # foreach my $onepackage ( @{$arrayref} )
3151     # {
3152     #   $counter++;
3153     #   $infoline = "$counter: $onepackage->{'module'}\n";
3154     #   push( @installer::globals::logfileinfo, $infoline);
3155     # }
3156
3157     my $i = @$arrayref;
3158     while (--$i)
3159     {
3160         my $j = int rand ($i+1);
3161         @$arrayref[$i,$j] = @$arrayref[$j,$i];
3162     }
3163
3164     # $counter = 0;
3165     # $infoline = "New package order: \n";
3166     # push( @installer::globals::logfileinfo, $infoline);
3167     # foreach my $onepackage ( @{$arrayref} )
3168     # {
3169     #   $counter++;
3170     #   $infoline = "$counter: $onepackage->{'module'}\n";
3171     #   push( @installer::globals::logfileinfo, $infoline);
3172     # }
3173 }
3174
3175 ################################################
3176 # Defining the English license text to add
3177 # it into Solaris packages.
3178 ################################################
3179
3180 sub set_english_license
3181 {
3182     my $additional_license_name = $installer::globals::englishsolarislicensename;       # always the English file
3183     my $licensefileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$additional_license_name, "" , 0);
3184     if ( $$licensefileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find license file $additional_license_name!", "set_english_license"); }
3185     $installer::globals::englishlicenseset = 1;
3186     $installer::globals::englishlicense = installer::files::read_file($$licensefileref);
3187     installer::scpzipfiles::replace_all_ziplistvariables_in_file($installer::globals::englishlicense, $variableshashref);
3188 }
3189
3190 ##############################################
3191 # Setting time stamp of copied files to avoid
3192 # errors from pkgchk.
3193 ##############################################
3194
3195 sub set_time_stamp_for_file
3196 {
3197     my ($sourcefile, $destfile) = @_;
3198
3199     my $systemcall = "touch -r $sourcefile $destfile";
3200
3201     my $returnvalue = system($systemcall);
3202
3203     my $infoline = "Systemcall: $systemcall\n";
3204     push( @installer::globals::logfileinfo, $infoline);
3205
3206     if ($returnvalue)
3207     {
3208         $infoline = "ERROR: \"$systemcall\" failed!\n";
3209         push( @installer::globals::logfileinfo, $infoline);
3210     }
3211     else
3212     {
3213         $infoline = "Success: \"$systemcall\" !\n";
3214         push( @installer::globals::logfileinfo, $infoline);
3215     }
3216 }
3217
3218 ##############################################
3219 # Setting checksum and wordcount for changed
3220 # pkginfo file into pkgmap.
3221 ##############################################
3222
3223 sub change_onefile_in_pkgmap
3224 {
3225     my ($pkgmapfile, $fullfilename, $shortfilename) = @_;
3226
3227     # 1 i pkginfo 442 34577 1166716297
3228     # ->
3229     # 1 i pkginfo 443 34737 1166716297
3230     #
3231     # wc -c pkginfo | cut -f6 -d' '  -> 442  (variable)
3232     # sum pkginfo | cut -f1 -d' '  -> 34577  (variable)
3233     # grep 'pkginfo' pkgmap | cut -f6 -d' '  -> 1166716297  (fix)
3234
3235     my $checksum = call_sum($fullfilename);
3236     if ( $checksum =~ /^\s*(\d+)\s+.*$/ ) { $checksum = $1; }
3237
3238     my $wordcount = call_wc($fullfilename);
3239     if ( $wordcount =~ /^\s*(\d+)\s+.*$/ ) { $wordcount = $1; }
3240
3241     for ( my $i = 0; $i <= $#{$pkgmapfile}; $i++ )
3242     {
3243         if ( ${$pkgmapfile}[$i] =~ /(^.*\b\Q$shortfilename\E\b\s+)(\d+)(\s+)(\d+)(\s+)(\d+)(\s*$)/ )
3244         {
3245             my $newline = $1 . $wordcount . $3 . $checksum . $5 . $6 . $7;
3246             ${$pkgmapfile}[$i] = $newline;
3247             last;
3248         }
3249     }
3250 }
3251
3252 ################################################
3253 # Adding the content of the English license
3254 # file into the system integration packages.
3255 ################################################
3256
3257 sub add_license_into_systemintegrationpackages
3258 {
3259     my ($destdir, $packages) = @_;
3260
3261     for ( my $i = 0; $i <= $#{$packages}; $i++ )
3262     {
3263         my $copyrightfilename = ${$packages}[$i] . $installer::globals::separator . "install" . $installer::globals::separator . "copyright";
3264         if ( ! -f $copyrightfilename ) { installer::exiter::exit_program("ERROR: Could not find license file in system integration package: $copyrightfilename!", "add_license_into_systemintegrationpackages"); }
3265         my $copyrightfile = installer::files::read_file($copyrightfilename);
3266
3267         # Saving time stamp of old copyrightfile
3268         my $savcopyrightfilename = $copyrightfilename . ".sav";
3269         installer::systemactions::copy_one_file($copyrightfilename, $savcopyrightfilename);
3270         set_time_stamp_for_file($copyrightfilename, $savcopyrightfilename); # now $savcopyrightfile has the time stamp of $copyrightfile
3271
3272         # Adding license content to copyright file
3273         push(@{$copyrightfile}, "\n");
3274         for ( my $i = 0; $i <= $#{$installer::globals::englishlicense}; $i++ ) { push(@{$copyrightfile}, ${$installer::globals::englishlicense}[$i]); }
3275         installer::files::save_file($copyrightfilename, $copyrightfile);
3276
3277         # Setting the old time stamp saved with $savcopyrightfilename
3278         set_time_stamp_for_file($savcopyrightfilename, $copyrightfilename); # now $copyrightfile has the time stamp of $savcopyrightfile
3279         unlink($savcopyrightfilename);
3280
3281         # Changing content of copyright file in pkgmap
3282         my $pkgmapfilename = ${$packages}[$i] . $installer::globals::separator . "pkgmap";
3283         if ( ! -f $pkgmapfilename ) { installer::exiter::exit_program("ERROR: Could not find pkgmap in system integration package: $pkgmapfilename!", "add_license_into_systemintegrationpackages"); }
3284         my $pkgmap = installer::files::read_file($pkgmapfilename);
3285         change_onefile_in_pkgmap($pkgmap, $copyrightfilename, "copyright");
3286         installer::files::save_file($pkgmapfilename, $pkgmap);
3287     }
3288 }
3289
3290 #########################################################
3291 # Collecting all pkgmap files from an installation set
3292 #########################################################
3293
3294 sub collectpackagemaps
3295 {
3296     my ( $installdir, $languagestringref, $allvariables ) = @_;
3297
3298     installer::logger::include_header_into_logfile("Collecing all packagemaps (pkgmap):");
3299
3300     my $pkgmapdir = installer::systemactions::create_directories("pkgmap", $languagestringref);
3301     my $subdirname = $allvariables->{'UNIXPRODUCTNAME'} . "_pkgmaps";
3302     my $pkgmapsubdir = $pkgmapdir . $installer::globals::separator . $subdirname;
3303     if ( -d $pkgmapsubdir ) { installer::systemactions::remove_complete_directory($pkgmapsubdir); }
3304     if ( ! -d $pkgmapsubdir ) { installer::systemactions::create_directory($pkgmapsubdir); }
3305
3306     $installdir =~ s/\/\s*$//;
3307     # Collecting all packages in $installdir and its sub package ("packages")
3308     my $searchdir = $installdir . $installer::globals::separator . $installer::globals::epmoutpath;
3309
3310     my $allpackages = installer::systemactions::get_all_directories_without_path($searchdir);
3311
3312     for ( my $i = 0; $i <= $#{$allpackages}; $i++ )
3313     {
3314         my $pkgmapfile = $searchdir . $installer::globals::separator . ${$allpackages}[$i] . $installer::globals::separator . "pkgmap";
3315         my $destfilename = $pkgmapsubdir . $installer::globals::separator . ${$allpackages}[$i] . "_pkgmap";
3316         installer::systemactions::copy_one_file($pkgmapfile, $destfilename);
3317     }
3318
3319     # Create a tar gz file with all package maps
3320     my $tarfilename = $subdirname . ".tar";
3321     my $targzname = $tarfilename . ".gz";
3322     # my $systemcall = "cd $pkgmapdir; tar -cf - $subdirname > $tarfilename";
3323     $systemcall = "cd $pkgmapdir; tar -cf - $subdirname | gzip > $targzname";
3324     make_systemcall($systemcall);
3325     installer::systemactions::remove_complete_directory($pkgmapsubdir, 1);
3326 }
3327
3328 1;