solenv/bin/modules/installer/windows/msiglobal.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: msiglobal.pm,v $
  10 #
  11 # This file is part of OpenOffice.org.
  12 #
  13 # OpenOffice.org is free software: you can redistribute it and/or modify
  14 # it under the terms of the GNU Lesser General Public License version 3
  15 # only, as published by the Free Software Foundation.
  16 #
  17 # OpenOffice.org is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU Lesser General Public License version 3 for more details
  21 # (a copy is included in the LICENSE file that accompanied this code).
  22 #
  23 # You should have received a copy of the GNU Lesser General Public License
  24 # version 3 along with OpenOffice.org.  If not, see
  25 # <http://www.openoffice.org/license.html>
  26 # for a copy of the LGPLv3 License.
  27 #
  28 #*************************************************************************
  29
  30 package installer::windows::msiglobal;
  31
  32 use Cwd;
  33 use Digest::MD5;
  34 use installer::converter;
  35 use installer::exiter;
  36 use installer::files;
  37 use installer::globals;
  38 use installer::logger;
  39 use installer::pathanalyzer;
  40 use installer::remover;
  41 use installer::scriptitems;
  42 use installer::systemactions;
  43 use installer::worker;
  44 use installer::windows::idtglobal;
  45 use installer::windows::language;
  46
  47 ###########################################################################
  48 # Generating the header of the ddf file.
  49 # The usage of ddf files is needed, because makecab.exe can only include
  50 # one sourcefile into a cab file
  51 ###########################################################################
  52
  53 sub write_ddf_file_header
  54 {
  55     my ($ddffileref, $cabinetfile, $installdir) = @_;
  56
  57     my $oneline;
  58
  59     $oneline = ".Set CabinetName1=" . $cabinetfile . "\n";
  60     push(@{$ddffileref} ,$oneline);
  61     $oneline = ".Set ReservePerCabinetSize=128\n";      # This reserves space for a digital signature.
  62     push(@{$ddffileref} ,$oneline);
  63     $oneline = ".Set MaxDiskSize=CDROM\n";                      # This allows the .cab file to be as large as needed.
  64     push(@{$ddffileref} ,$oneline);
  65     $oneline = ".Set CompressionType=LZX\n";
  66     push(@{$ddffileref} ,$oneline);
  67     $oneline = ".Set Compress=ON\n";
  68     push(@{$ddffileref} ,$oneline);
  69     $oneline = ".Set CompressionLevel=$installer::globals::cabfilecompressionlevel\n";
  70     push(@{$ddffileref} ,$oneline);
  71     $oneline = ".Set Cabinet=ON\n";
  72     push(@{$ddffileref} ,$oneline);
  73     $oneline = ".Set DiskDirectoryTemplate=" . $installdir . "\n";
  74     push(@{$ddffileref} ,$oneline);
  75 }
  76
  77 ##########################################################################
  78 # Lines in ddf files must not contain more than 256 characters
  79 ##########################################################################
  80
  81 sub check_ddf_file
  82 {
  83     my ( $ddffile, $ddffilename ) = @_;
  84
  85     my $maxlength = 0;
  86     my $maxline = 0;
  87     my $linelength = 0;
  88     my $linenumber = 0;
  89
  90     for ( my $i = 0; $i <= $#{$ddffile}; $i++ )
  91     {
  92         my $oneline = ${$ddffile}[$i];
  93
  94         $linelength = length($oneline);
  95         $linenumber = $i + 1;
  96
  97         if ( $linelength > 256 )
  98         {
  99             installer::exiter::exit_program("ERROR \"$ddffilename\" line $linenumber: Lines in ddf files must not contain more than 256 characters!", "check_ddf_file");
 100         }
 101
 102         if ( $linelength > $maxlength )
 103         {
 104             $maxlength = $linelength;
 105             $maxline = $linenumber;
 106         }
 107     }
 108
 109     my $infoline = "Check of ddf file \"$ddffilename\": Maximum length \"$maxlength\" in line \"$maxline\" (allowed line length: 256 characters)\n";
 110     push(@installer::globals::logfileinfo, $infoline);
 111 }
 112
 113 ##########################################################################
 114 # Lines in ddf files must not be longer than 256 characters.
 115 # Therefore it can be useful to use relative pathes. Then it is
 116 # necessary to change into temp directory before calling
 117 # makecab.exe.
 118 ##########################################################################
 119
 120 sub make_relative_ddf_path
 121 {
 122     my ( $sourcepath ) = @_;
 123
 124     my $windowstemppath = $installer::globals::temppath;
 125
 126     if ( $^O =~ /cygwin/i )
 127     {
 128         $windowstemppath = $installer::globals::cyg_temppath;
 129     }
 130
 131     $sourcepath =~ s/\Q$windowstemppath\E//;
 132     $sourcepath =~ s/^\\//;
 133
 134     return $sourcepath;
 135 }
 136
 137 ##########################################################################
 138 # Returning the order of the sequences in the files array.
 139 ##########################################################################
 140
 141 sub get_sequenceorder
 142 {
 143     my ($filesref) = @_;
 144
 145     my %order = ();
 146
 147     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 148     {
 149         my $onefile = ${$filesref}[$i];
 150         if ( ! $onefile->{'assignedsequencenumber'} ) { installer::exiter::exit_program("ERROR: No sequence number assigned to $onefile->{'gid'} ($onefile->{'uniquename'})!", "get_sequenceorder"); }
 151         $order{$onefile->{'assignedsequencenumber'}} = $i;
 152     }
 153
 154     return \%order;
 155 }
 156
 157 ##########################################################################
 158 # Generation the list, in which the source of the files is connected
 159 # with the cabinet destination file. Because more than one file needs
 160 # to be included into a cab file, this has to be done via ddf files.
 161 ##########################################################################
 162
 163 sub generate_cab_file_list
 164 {
 165     my ($filesref, $installdir, $ddfdir, $allvariables) = @_;
 166
 167     my @cabfilelist = ();
 168
 169     installer::logger::include_header_into_logfile("Generating ddf files");
 170
 171     installer::logger::include_timestamp_into_logfile("Performance Info: ddf file generation start");
 172
 173     if ( $^O =~ /cygwin/i ) { installer::worker::generate_cygwin_pathes($filesref); }
 174
 175     if ( $installer::globals::use_packages_for_cabs )
 176     {
 177         my $sequenceorder = get_sequenceorder($filesref);
 178
 179         my $counter = 1;
 180         my $currentcabfile = "";
 181
 182         while ( ( exists($sequenceorder->{$counter}) ) || ( exists($installer::globals::allmergemodulefilesequences{$counter}) ) ) # Taking care of files from merge modules
 183         {
 184             if ( exists($installer::globals::allmergemodulefilesequences{$counter}) )
 185             {
 186                 # Skipping this sequence, it is not included in $filesref, because it is assigned to a file from a merge module.\n";
 187                 $counter++;
 188                 next;
 189             }
 190
 191             # Files with increasing sequencerorder are included in one cab file
 192             my $onefile = ${$filesref}[$sequenceorder->{$counter}];
 193             my $cabinetfile = $onefile->{'assignedcabinetfile'};
 194             my $sourcepath =  $onefile->{'sourcepath'};
 195             if ( $^O =~ /cygwin/i ) { $sourcepath = $onefile->{'cyg_sourcepath'}; }
 196             my $uniquename =  $onefile->{'uniquename'};
 197
 198             my $styles = "";
 199             my $doinclude = 1;
 200             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; };
 201             if ( $styles =~ /\bDONT_PACK\b/ ) { $doinclude = 0; }
 202
 203             # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 204             if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 205
 206             # all files with the same cabinetfile have increasing sequencenumbers
 207
 208             my @ddffile = ();
 209
 210             write_ddf_file_header(\@ddffile, $cabinetfile, $installdir);
 211
 212             my $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 213             if ( $doinclude ) { push(@ddffile, $ddfline); }
 214
 215             $counter++; # increasing the counter
 216             my $nextfile = "";
 217             my $nextcabinetfile = "";
 218             if ( exists($sequenceorder->{$counter}) ) { $nextfile = ${$filesref}[$sequenceorder->{$counter}]; }
 219             if ( $nextfile->{'assignedcabinetfile'} ) { $nextcabinetfile = $nextfile->{'assignedcabinetfile'}; }
 220
 221             while ( $nextcabinetfile eq $cabinetfile )
 222             {
 223                 $sourcepath =  $nextfile->{'sourcepath'};
 224                 if ( $^O =~ /cygwin/i ) { $sourcepath = $nextfile->{'cyg_sourcepath'}; }
 225                 # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 226                 if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 227                 $uniquename =  $nextfile->{'uniquename'};
 228                 my $localdoinclude = 1;
 229                 my $nextfilestyles = "";
 230                 if ( $nextfile->{'Styles'} ) { $nextfilestyles = $nextfile->{'Styles'}; }
 231                 if ( $nextfilestyles =~ /\bDONT_PACK\b/ ) { $localdoinclude = 0; }
 232                 $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 233                 if ( $localdoinclude ) { push(@ddffile, $ddfline); }
 234
 235                 $counter++;     # increasing the counter!
 236                 $nextcabinetfile = "_lastfile_";
 237                 if ( exists($sequenceorder->{$counter}) )
 238                 {
 239                     $nextfile = ${$filesref}[$sequenceorder->{$counter}];
 240                     $nextcabinetfile = $nextfile->{'assignedcabinetfile'};
 241                 }
 242             }
 243
 244             # creating the DDF file
 245
 246             my $ddffilename = $cabinetfile;
 247             $ddffilename =~ s/.cab/.ddf/;
 248             $ddfdir =~ s/\Q$installer::globals::separator\E\s*$//;
 249             $ddffilename = $ddfdir . $installer::globals::separator . $ddffilename;
 250
 251             installer::files::save_file($ddffilename ,\@ddffile);
 252             my $infoline = "Created ddf file: $ddffilename\n";
 253             push(@installer::globals::logfileinfo, $infoline);
 254
 255             # lines in ddf files must not be longer than 256 characters
 256             check_ddf_file(\@ddffile, $ddffilename);
 257
 258             # Writing the makecab system call
 259
 260             my $oneline = "makecab.exe /V3 /F " . $ddffilename . " 2\>\&1 |" . "\n";
 261
 262             push(@cabfilelist, $oneline);
 263
 264             # collecting all ddf files
 265             push(@installer::globals::allddffiles, $ddffilename);
 266         }
 267     }
 268     elsif ((( $installer::globals::cab_file_per_component ) || ( $installer::globals::fix_number_of_cab_files )) && ( $installer::globals::updatedatabase ))
 269     {
 270         my $sequenceorder = get_sequenceorder($filesref);
 271
 272         my $counter = 1;
 273         my $currentcabfile = "";
 274
 275         while ( ( exists($sequenceorder->{$counter}) ) || ( exists($installer::globals::allmergemodulefilesequences{$counter}) ) ) # Taking care of files from merge modules
 276         {
 277 #                       if ( exists($installer::globals::allmergemodulefilesequences{$counter}) )
 278 #                       {
 279 #                               # Skipping this sequence, it is not included in $filesref, because it is assigned to a file from a merge module.\n";
 280 #                               $counter++;
 281 #                               next;
 282 #                       }
 283
 284             my $onefile = ${$filesref}[$sequenceorder->{$counter}];
 285             $counter++;
 286
 287             my $cabinetfile = $onefile->{'cabinet'};
 288             my $sourcepath =  $onefile->{'sourcepath'};
 289             if ( $^O =~ /cygwin/i ) { $sourcepath = $onefile->{'cyg_sourcepath'}; }
 290             my $uniquename =  $onefile->{'uniquename'};
 291
 292             my $styles = "";
 293             my $doinclude = 1;
 294             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; };
 295             if ( $styles =~ /\bDONT_PACK\b/ ) { $doinclude = 0; }
 296
 297             # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 298             if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 299
 300             my @ddffile = ();
 301
 302             write_ddf_file_header(\@ddffile, $cabinetfile, $installdir);
 303
 304             my $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 305             if ( $doinclude ) { push(@ddffile, $ddfline); }
 306
 307             my $nextfile = "";
 308             if ( ${$filesref}[$sequenceorder->{$counter}] ) { $nextfile = ${$filesref}[$sequenceorder->{$counter}]; }
 309
 310             my $nextcabinetfile = "";
 311
 312             if ( $nextfile->{'cabinet'} ) { $nextcabinetfile = $nextfile->{'cabinet'}; }
 313
 314             while ( $nextcabinetfile eq $cabinetfile )
 315             {
 316                 $sourcepath =  $nextfile->{'sourcepath'};
 317                 if ( $^O =~ /cygwin/i ) { $sourcepath = $nextfile->{'cyg_sourcepath'}; }
 318                 # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 319                 if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 320                 $uniquename =  $nextfile->{'uniquename'};
 321                 my $localdoinclude = 1;
 322                 my $nextfilestyles = "";
 323                 if ( $nextfile->{'Styles'} ) { $nextfilestyles = $nextfile->{'Styles'}; }
 324                 if ( $nextfilestyles =~ /\bDONT_PACK\b/ ) { $localdoinclude = 0; }
 325                 $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 326                 if ( $localdoinclude ) { push(@ddffile, $ddfline); }
 327                 $counter++;                                                                                     # increasing the counter!
 328                 $nextfile = "";
 329                 $nextcabinetfile = "_lastfile_";
 330                 if (( exists($sequenceorder->{$counter}) ) && ( ${$filesref}[$sequenceorder->{$counter}] ))
 331                 {
 332                     $nextfile = ${$filesref}[$sequenceorder->{$counter}];
 333                     $nextcabinetfile = $nextfile->{'cabinet'};
 334                 }
 335             }
 336
 337             # creating the DDF file
 338
 339             my $ddffilename = $cabinetfile;
 340             $ddffilename =~ s/.cab/.ddf/;
 341             $ddfdir =~ s/\Q$installer::globals::separator\E\s*$//;
 342             $ddffilename = $ddfdir . $installer::globals::separator . $ddffilename;
 343
 344             installer::files::save_file($ddffilename ,\@ddffile);
 345             my $infoline = "Created ddf file: $ddffilename\n";
 346             push(@installer::globals::logfileinfo, $infoline);
 347
 348             # lines in ddf files must not be longer than 256 characters
 349             check_ddf_file(\@ddffile, $ddffilename);
 350
 351             # Writing the makecab system call
 352
 353             my $oneline = "makecab.exe /V3 /F " . $ddffilename . " 2\>\&1 |" . "\n";
 354
 355             push(@cabfilelist, $oneline);
 356
 357             # collecting all ddf files
 358             push(@installer::globals::allddffiles, $ddffilename);
 359         }
 360     }
 361     elsif (( $installer::globals::cab_file_per_component ) || ( $installer::globals::fix_number_of_cab_files ))
 362     {
 363         for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 364         {
 365             my $onefile = ${$filesref}[$i];
 366             my $cabinetfile = $onefile->{'cabinet'};
 367             my $sourcepath =  $onefile->{'sourcepath'};
 368             if ( $^O =~ /cygwin/i ) { $sourcepath = $onefile->{'cyg_sourcepath'}; }
 369             my $uniquename =  $onefile->{'uniquename'};
 370
 371             my $styles = "";
 372             my $doinclude = 1;
 373             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; };
 374             if ( $styles =~ /\bDONT_PACK\b/ ) { $doinclude = 0; }
 375
 376
 377             # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 378             if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 379
 380             # all files with the same cabinetfile are directly behind each other in the files collector
 381
 382             my @ddffile = ();
 383
 384             write_ddf_file_header(\@ddffile, $cabinetfile, $installdir);
 385
 386             my $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 387             if ( $doinclude ) { push(@ddffile, $ddfline); }
 388
 389             my $nextfile = ${$filesref}[$i+1];
 390             my $nextcabinetfile = "";
 391
 392             if ( $nextfile->{'cabinet'} ) { $nextcabinetfile = $nextfile->{'cabinet'}; }
 393
 394             while ( $nextcabinetfile eq $cabinetfile )
 395             {
 396                 $sourcepath =  $nextfile->{'sourcepath'};
 397                 if ( $^O =~ /cygwin/i ) { $sourcepath = $nextfile->{'cyg_sourcepath'}; }
 398                 # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 399                 if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 400                 $uniquename =  $nextfile->{'uniquename'};
 401                 my $localdoinclude = 1;
 402                 my $nextfilestyles = "";
 403                 if ( $nextfile->{'Styles'} ) { $nextfilestyles = $nextfile->{'Styles'}; }
 404                 if ( $nextfilestyles =~ /\bDONT_PACK\b/ ) { $localdoinclude = 0; }
 405                 $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 406                 if ( $localdoinclude ) { push(@ddffile, $ddfline); }
 407                 $i++;                                                                                   # increasing the counter!
 408                 $nextfile = ${$filesref}[$i+1];
 409                 if ( $nextfile ) { $nextcabinetfile = $nextfile->{'cabinet'}; }
 410                 else { $nextcabinetfile = "_lastfile_"; }
 411             }
 412
 413             # creating the DDF file
 414
 415             my $ddffilename = $cabinetfile;
 416             $ddffilename =~ s/.cab/.ddf/;
 417             $ddfdir =~ s/\Q$installer::globals::separator\E\s*$//;
 418             $ddffilename = $ddfdir . $installer::globals::separator . $ddffilename;
 419
 420             installer::files::save_file($ddffilename ,\@ddffile);
 421             my $infoline = "Created ddf file: $ddffilename\n";
 422             push(@installer::globals::logfileinfo, $infoline);
 423
 424             # lines in ddf files must not be longer than 256 characters
 425             check_ddf_file(\@ddffile, $ddffilename);
 426
 427             # Writing the makecab system call
 428
 429             my $oneline = "makecab.exe /V3 /F " . $ddffilename . " 2\>\&1 |" . "\n";
 430
 431             push(@cabfilelist, $oneline);
 432
 433             # collecting all ddf files
 434             push(@installer::globals::allddffiles, $ddffilename);
 435         }
 436     }
 437     elsif (( $installer::globals::one_cab_file ) && ( $installer::globals::updatedatabase ))
 438     {
 439         my $sequenceorder = get_sequenceorder($filesref);
 440
 441         my $counter = 1;
 442         my $currentcabfile = "";
 443
 444         while ( ( exists($sequenceorder->{$counter}) ) || ( exists($installer::globals::allmergemodulefilesequences{$counter}) ) ) # Taking care of files from merge modules
 445         {
 446             if ( exists($installer::globals::allmergemodulefilesequences{$counter}) )
 447             {
 448                 # Skipping this sequence, it is not included in $filesref, because it is assigned to a file from a merge module.\n";
 449                 $counter++;
 450                 next;
 451             }
 452
 453             my $onefile = ${$filesref}[$sequenceorder->{$counter}];
 454
 455             $cabinetfile = $onefile->{'cabinet'};
 456             my $sourcepath =  $onefile->{'sourcepath'};
 457             if ( $^O =~ /cygwin/i ) { $sourcepath = $onefile->{'cyg_sourcepath'}; }
 458             my $uniquename =  $onefile->{'uniquename'};
 459
 460             # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 461             if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 462
 463             if ( $counter == 1 ) { write_ddf_file_header(\@ddffile, $cabinetfile, $installdir); }
 464
 465             my $styles = "";
 466             my $doinclude = 1;
 467             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; };
 468             if ( $styles =~ /\bDONT_PACK\b/ ) { $doinclude = 0; }
 469
 470             my $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 471             if ( $doinclude ) { push(@ddffile, $ddfline); }
 472
 473             $counter++; # increasing the counter
 474         }
 475
 476         # creating the DDF file
 477
 478         my $ddffilename = $cabinetfile;
 479         $ddffilename =~ s/.cab/.ddf/;
 480         $ddfdir =~ s/[\/\\]\s*$//;
 481         $ddffilename = $ddfdir . $installer::globals::separator . $ddffilename;
 482
 483         installer::files::save_file($ddffilename ,\@ddffile);
 484         my $infoline = "Created ddf file: $ddffilename\n";
 485         push(@installer::globals::logfileinfo, $infoline);
 486
 487         # lines in ddf files must not be longer than 256 characters
 488         check_ddf_file(\@ddffile, $ddffilename);
 489
 490         # Writing the makecab system call
 491
 492         # my $oneline = "makecab.exe /F " . $ddffilename . "\n";
 493         my $oneline = "makecab.exe /V3 /F " . $ddffilename . " 2\>\&1 |" . "\n";
 494
 495         push(@cabfilelist, $oneline);
 496
 497         # collecting all ddf files
 498         push(@installer::globals::allddffiles, $ddffilename);
 499     }
 500     elsif ( $installer::globals::one_cab_file )
 501     {
 502         my @ddffile = ();
 503
 504         my $cabinetfile = "";
 505
 506         for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 507         {
 508             my $onefile = ${$filesref}[$i];
 509             $cabinetfile = $onefile->{'cabinet'};
 510             my $sourcepath =  $onefile->{'sourcepath'};
 511             if ( $^O =~ /cygwin/i ) { $sourcepath = $onefile->{'cyg_sourcepath'}; }
 512             my $uniquename =  $onefile->{'uniquename'};
 513
 514             # to avoid lines with more than 256 characters, it can be useful to use relative pathes
 515             if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} ) { $sourcepath = make_relative_ddf_path($sourcepath); }
 516
 517             if ( $i == 0 ) { write_ddf_file_header(\@ddffile, $cabinetfile, $installdir); }
 518
 519             my $styles = "";
 520             my $doinclude = 1;
 521             if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; };
 522             if ( $styles =~ /\bDONT_PACK\b/ ) { $doinclude = 0; }
 523
 524             my $ddfline = "\"" . $sourcepath . "\"" . " " . $uniquename . "\n";
 525             if ( $doinclude ) { push(@ddffile, $ddfline); }
 526         }
 527
 528         # creating the DDF file
 529
 530         my $ddffilename = $cabinetfile;
 531         $ddffilename =~ s/.cab/.ddf/;
 532         $ddfdir =~ s/[\/\\]\s*$//;
 533         $ddffilename = $ddfdir . $installer::globals::separator . $ddffilename;
 534
 535         installer::files::save_file($ddffilename ,\@ddffile);
 536         my $infoline = "Created ddf file: $ddffilename\n";
 537         push(@installer::globals::logfileinfo, $infoline);
 538
 539         # lines in ddf files must not be longer than 256 characters
 540         check_ddf_file(\@ddffile, $ddffilename);
 541
 542         # Writing the makecab system call
 543
 544         my $oneline = "makecab.exe /F " . $ddffilename . "\n";
 545
 546         push(@cabfilelist, $oneline);
 547
 548         # collecting all ddf files
 549         push(@installer::globals::allddffiles, $ddffilename);
 550     }
 551     else
 552     {
 553         installer::exiter::exit_program("ERROR: No cab file specification in globals.pm !", "create_media_table");
 554     }
 555
 556     installer::logger::include_timestamp_into_logfile("Performance Info: ddf file generation end");
 557
 558     return \@cabfilelist;       # contains all system calls for packaging process
 559 }
 560
 561 ########################################################################
 562 # Returning the file sequence of a specified file.
 563 ########################################################################
 564
 565 sub get_file_sequence
 566 {
 567     my ($filesref, $uniquefilename) = @_;
 568
 569     my $sequence = "";
 570     my $found_sequence = 0;
 571
 572     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 573     {
 574         my $onefile = ${$filesref}[$i];
 575         my $uniquename = $onefile->{'uniquename'};
 576
 577         if ( $uniquename eq $uniquefilename )
 578         {
 579             $sequence = $onefile->{'sequencenumber'};
 580             $found_sequence = 1;
 581             last;
 582         }
 583     }
 584
 585     if ( ! $found_sequence ) { installer::exiter::exit_program("ERROR: No sequence found for $uniquefilename !", "get_file_sequence"); }
 586
 587     return $sequence;
 588 }
 589
 590 ########################################################################
 591 # For update and patch reasons the pack order needs to be saved.
 592 # The pack order is saved in the ddf files; the names and locations
 593 # of the ddf files are saved in @installer::globals::allddffiles.
 594 # The outputfile "packorder.txt" can be saved in
 595 # $installer::globals::infodirectory .
 596 ########################################################################
 597
 598 sub save_packorder
 599 {
 600     installer::logger::include_header_into_logfile("Saving pack order");
 601
 602     installer::logger::include_timestamp_into_logfile("Performance Info: saving pack order start");
 603
 604     my $packorderfilename = "packorder.txt";
 605     $packorderfilename = $installer::globals::infodirectory . $installer::globals::separator . $packorderfilename;
 606
 607     my @packorder = ();
 608
 609     my $headerline = "\# Syntax\: Filetable_Sequence Cabinetfilename Physical_FileName Unique_FileName\n\n";
 610     push(@packorder, $headerline);
 611
 612     for ( my $i = 0; $i <= $#installer::globals::allddffiles; $i++ )
 613     {
 614         my $ddffilename = $installer::globals::allddffiles[$i];
 615         my $ddffile = installer::files::read_file($ddffilename);
 616         my $cabinetfile = "";
 617
 618         for ( my $j = 0; $j <= $#{$ddffile}; $j++ )
 619         {
 620             my $oneline = ${$ddffile}[$j];
 621
 622             # Getting the Cabinet file name
 623
 624             if ( $oneline =~ /^\s*\.Set\s+CabinetName.*\=(.*?)\s*$/ ) { $cabinetfile = $1; }
 625             if ( $oneline =~ /^\s*\.Set\s+/ ) { next; }
 626
 627             if ( $oneline =~ /^\s*\"(.*?)\"\s+(.*?)\s*$/ )
 628             {
 629                 my $sourcefile = $1;
 630                 my $uniquefilename = $2;
 631
 632                 installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$sourcefile);
 633
 634                 # Using the hash created in create_files_table for performance reasons to get the sequence number
 635                 my $filesequence = "";
 636                 if ( exists($installer::globals::uniquefilenamesequence{$uniquefilename}) ) { $filesequence = $installer::globals::uniquefilenamesequence{$uniquefilename}; }
 637                 else { installer::exiter::exit_program("ERROR: No sequence number value for $uniquefilename !", "save_packorder"); }
 638
 639                 my $line = $filesequence . "\t" . $cabinetfile . "\t" . $sourcefile . "\t" . $uniquefilename . "\n";
 640                 push(@packorder, $line);
 641             }
 642         }
 643     }
 644
 645     installer::files::save_file($packorderfilename ,\@packorder);
 646
 647     installer::logger::include_timestamp_into_logfile("Performance Info: saving pack order end");
 648 }
 649
 650 #################################################################
 651 # Returning the name of the msi database
 652 #################################################################
 653
 654 sub get_msidatabasename
 655 {
 656     my ($allvariableshashref, $language) = @_;
 657
 658     my $databasename = $allvariableshashref->{'PRODUCTNAME'} . $allvariableshashref->{'PRODUCTVERSION'};
 659     $databasename = lc($databasename);
 660     $databasename =~ s/\.//g;
 661     $databasename =~ s/\-//g;
 662     $databasename =~ s/\s//g;
 663
 664     # possibility to overwrite the name with variable DATABASENAME
 665     if ( $allvariableshashref->{'DATABASENAME'} )
 666     {
 667         $databasename = $allvariableshashref->{'DATABASENAME'};
 668     }
 669
 670     if ( $language )
 671     {
 672         if (!($language eq ""))
 673         {
 674             $databasename .= "_$language";
 675         }
 676     }
 677
 678     $databasename .= ".msi";
 679
 680     return $databasename;
 681 }
 682
 683 #################################################################
 684 # Creating the msi database
 685 # This works only on Windows
 686 #################################################################
 687
 688 sub create_msi_database
 689 {
 690     my ($idtdirbase ,$msifilename) = @_;
 691
 692     # -f : path containing the idt files
 693     # -d : msi database, including path
 694     # -c : create database
 695     # -i : include the following tables ("*" includes all available tables)
 696
 697     my $msidb = "msidb.exe";    # Has to be in the path
 698     my $extraslash = "";                # Has to be set for non-ActiveState perl
 699
 700     installer::logger::include_header_into_logfile("Creating msi database");
 701
 702     $idtdirbase = installer::converter::make_path_conform($idtdirbase);
 703
 704     $msifilename = installer::converter::make_path_conform($msifilename);
 705
 706     if ( $^O =~ /cygwin/i ) {
 707         # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
 708         $idtdirbase =~ s/\//\\\\/g;
 709         $msifilename =~ s/\//\\\\/g;
 710         $extraslash = "\\";
 711     }
 712     my $systemcall = $msidb . " -f " . $idtdirbase . " -d " . $msifilename . " -c " . "-i " . $extraslash . "*";
 713
 714     my $returnvalue = system($systemcall);
 715
 716     my $infoline = "Systemcall: $systemcall\n";
 717     push( @installer::globals::logfileinfo, $infoline);
 718
 719     if ($returnvalue)
 720     {
 721         $infoline = "ERROR: Could not execute $msidb!\n";
 722         push( @installer::globals::logfileinfo, $infoline);
 723     }
 724     else
 725     {
 726         $infoline = "Success: Executed $msidb successfully!\n";
 727         push( @installer::globals::logfileinfo, $infoline);
 728     }
 729 }
 730
 731 #####################################################################
 732 # Returning the value from sis.mlf for Summary Information Stream
 733 #####################################################################
 734
 735 sub get_value_from_sis_lng
 736 {
 737     my ($language, $languagefile, $searchstring) = @_;
 738
 739     my $language_block = installer::windows::idtglobal::get_language_block_from_language_file($searchstring, $languagefile);
 740     my $newstring = installer::windows::idtglobal::get_language_string_from_language_block($language_block, $language, $searchstring);
 741     $newstring = "\"" . $newstring . "\"";
 742
 743     return $newstring;
 744 }
 745
 746 #################################################################
 747 # Returning the msi version for the Summary Information Stream
 748 #################################################################
 749
 750 sub get_msiversion_for_sis
 751 {
 752     my $msiversion = "200";
 753     return $msiversion;
 754 }
 755
 756 #################################################################
 757 # Returning the word count for the Summary Information Stream
 758 #################################################################
 759
 760 sub get_wordcount_for_sis
 761 {
 762     my $wordcount = "0";
 763     return $wordcount;
 764 }
 765
 766 #################################################################
 767 # Returning the codepage for the Summary Information Stream
 768 #################################################################
 769
 770 sub get_codepage_for_sis
 771 {
 772     my ( $language ) = @_;
 773
 774     my $codepage = installer::windows::language::get_windows_encoding($language);
 775
 776     # Codepage 65001 does not work in Summary Information Stream
 777     if ( $codepage == 65001 ) { $codepage = 0; }
 778
 779     # my $codepage = "1252";    # determine dynamically in a function
 780     # my $codepage = "65001";           # UTF-8
 781     return $codepage;
 782 }
 783
 784 #################################################################
 785 # Returning the template for the Summary Information Stream
 786 #################################################################
 787
 788 sub get_template_for_sis
 789 {
 790     my ( $language ) = @_;
 791
 792     my $windowslanguage = installer::windows::language::get_windows_language($language);
 793
 794     my $value = "\"Intel;" . $windowslanguage;  # adding the Windows language
 795
 796     $value = $value . "\"";                                             # adding ending '"'
 797
 798     return $value ;
 799 }
 800
 801 #################################################################
 802 # Returning the PackageCode for the Summary Information Stream
 803 #################################################################
 804
 805 sub get_packagecode_for_sis
 806 {
 807     # always generating a new package code for each package
 808
 809     my $guidref = get_guid_list(1, 1);  # only one GUID shall be generated
 810
 811     ${$guidref}[0] =~ s/\s*$//;         # removing ending spaces
 812
 813     my $guid = "\{" . ${$guidref}[0] . "\}";
 814
 815     my $infoline = "PackageCode: $guid\n";
 816     push( @installer::globals::logfileinfo, $infoline);
 817
 818     return $guid;
 819 }
 820
 821 #################################################################
 822 # Returning the title for the Summary Information Stream
 823 #################################################################
 824
 825 sub get_title_for_sis
 826 {
 827     my ( $language, $languagefile, $searchstring ) = @_;
 828
 829     my $title = get_value_from_sis_lng($language, $languagefile, $searchstring );
 830
 831     return $title;
 832 }
 833
 834 #################################################################
 835 # Returning the author for the Summary Information Stream
 836 #################################################################
 837
 838 sub get_author_for_sis
 839 {
 840     my $author = $installer::globals::longmanufacturer;
 841
 842     $author = "\"" . $author . "\"";
 843
 844     return $author;
 845 }
 846
 847 #################################################################
 848 # Returning the subject for the Summary Information Stream
 849 #################################################################
 850
 851 sub get_subject_for_sis
 852 {
 853     my ( $allvariableshashref ) = @_;
 854
 855     my $subject = $allvariableshashref->{'PRODUCTNAME'} . " " . $allvariableshashref->{'PRODUCTVERSION'};
 856
 857     $subject = "\"" . $subject . "\"";
 858
 859     return $subject;
 860 }
 861
 862 #################################################################
 863 # Returning the comment for the Summary Information Stream
 864 #################################################################
 865
 866 sub get_comment_for_sis
 867 {
 868     my ( $language, $languagefile, $searchstring ) = @_;
 869
 870     my $comment = get_value_from_sis_lng($language, $languagefile, $searchstring );
 871
 872     return $comment;
 873 }
 874
 875 #################################################################
 876 # Returning the keywords for the Summary Information Stream
 877 #################################################################
 878
 879 sub get_keywords_for_sis
 880 {
 881     my ( $language, $languagefile, $searchstring ) = @_;
 882
 883     my $keywords = get_value_from_sis_lng($language, $languagefile, $searchstring );
 884
 885     return $keywords;
 886 }
 887
 888 ######################################################################
 889 # Returning the application name for the Summary Information Stream
 890 ######################################################################
 891
 892 sub get_appname_for_sis
 893 {
 894     my ( $language, $languagefile, $searchstring ) = @_;
 895
 896     my $appname = get_value_from_sis_lng($language, $languagefile, $searchstring );
 897
 898     return $appname;
 899 }
 900
 901 ######################################################################
 902 # Returning the security for the Summary Information Stream
 903 ######################################################################
 904
 905 sub get_security_for_sis
 906 {
 907     my $security = "0";
 908     return $security;
 909 }
 910
 911 #################################################################
 912 # Writing the Summary information stream into the msi database
 913 # This works only on Windows
 914 #################################################################
 915
 916 sub write_summary_into_msi_database
 917 {
 918     my ($msifilename, $language, $languagefile, $allvariableshashref) = @_;
 919
 920     # -g : requrired msi version
 921     # -c : codepage
 922     # -p : template
 923
 924     installer::logger::include_header_into_logfile("Writing summary information stream");
 925
 926     my $msiinfo = "msiinfo.exe";        # Has to be in the path
 927
 928     my $sislanguage = "en-US";  # title, comment, keyword and appname alway in english
 929
 930     my $msiversion = get_msiversion_for_sis();
 931     my $codepage = get_codepage_for_sis($language);
 932     my $template = get_template_for_sis($language);
 933     my $guid = get_packagecode_for_sis();
 934     my $title = get_title_for_sis($sislanguage,$languagefile, "OOO_SIS_TITLE");
 935     my $author = get_author_for_sis();
 936     my $subject = get_subject_for_sis($allvariableshashref);
 937     my $comment = get_comment_for_sis($sislanguage,$languagefile, "OOO_SIS_COMMENT");
 938     my $keywords = get_keywords_for_sis($sislanguage,$languagefile, "OOO_SIS_KEYWORDS");
 939     my $appname = get_appname_for_sis($sislanguage,$languagefile, "OOO_SIS_APPNAME");
 940     my $security = get_security_for_sis();
 941     my $wordcount = get_wordcount_for_sis();
 942
 943     $msifilename = installer::converter::make_path_conform($msifilename);
 944
 945     my $systemcall = $msiinfo . " " . $msifilename . " -g " . $msiversion . " -c " . $codepage
 946                     . " -p " . $template . " -v " . $guid . " -t " . $title . " -a " . $author
 947                     . " -j " . $subject . " -o " . $comment . " -k " . $keywords . " -n " . $appname
 948                     . " -u " . $security . " -w " . $wordcount;
 949
 950     my $returnvalue = system($systemcall);
 951
 952     my $infoline = "Systemcall: $systemcall\n";
 953     push( @installer::globals::logfileinfo, $infoline);
 954
 955     if ($returnvalue)
 956     {
 957         $infoline = "ERROR: Could not execute $msiinfo!\n";
 958         push( @installer::globals::logfileinfo, $infoline);
 959     }
 960     else
 961     {
 962         $infoline = "Success: Executed $msiinfo successfully!\n";
 963         push( @installer::globals::logfileinfo, $infoline);
 964     }
 965 }
 966
 967 #########################################################################
 968 # For more than one language in the installation set:
 969 # Use one database and create Transformations for all other languages
 970 #########################################################################
 971
 972 sub create_transforms
 973 {
 974     my ($languagesarray, $defaultlanguage, $installdir, $allvariableshashref) = @_;
 975
 976     installer::logger::include_header_into_logfile("Creating Transforms");
 977
 978     my $msitran = "msitran.exe";        # Has to be in the path
 979
 980     $installdir = installer::converter::make_path_conform($installdir);
 981
 982     # Syntax for creating a transformation
 983     # msitran.exe -g <baseDB> <referenceDB> <transformfile> [<errorhandling>}
 984
 985     my $basedbname = get_msidatabasename($allvariableshashref, $defaultlanguage);
 986     $basedbname = $installdir . $installer::globals::separator . $basedbname;
 987
 988     my $errorhandling = "f";    # Suppress "change codepage" error
 989
 990     # Iterating over all files
 991
 992     foreach ( @{$languagesarray} )
 993     {
 994         my $onelanguage = $_;
 995
 996         if ( $onelanguage eq $defaultlanguage ) { next; }
 997
 998         my $referencedbname = get_msidatabasename($allvariableshashref, $onelanguage);
 999         $referencedbname = $installdir . $installer::globals::separator . $referencedbname;
1000
1001         my $transformfile = $installdir . $installer::globals::separator . "trans_" . $onelanguage . ".mst";
1002
1003         my $systemcall = $msitran . " " . " -g " . $basedbname . " " . $referencedbname . " " . $transformfile . " " . $errorhandling;
1004
1005         my $returnvalue = system($systemcall);
1006
1007         my $infoline = "Systemcall: $systemcall\n";
1008         push( @installer::globals::logfileinfo, $infoline);
1009
1010         # Problem: msitran.exe in version 4.0 always returns "1", even if no failure occured.
1011         # Therefore it has to be checked, if this is version 4.0. If yes, if the mst file
1012         # exists and if it is larger than 0 bytes. If this is true, then no error occured.
1013         # File Version of msitran.exe: 4.0.6000.16384 has checksum: "b66190a70145a57773ec769e16777b29".
1014         # Same for msitran.exe from wntmsci12: "aa25d3445b94ffde8ef0c1efb77a56b8"
1015
1016         if ($returnvalue)
1017         {
1018             $infoline = "WARNING: Returnvalue of $msitran is not 0. Checking version of $msitran!\n";
1019             push( @installer::globals::logfileinfo, $infoline);
1020
1021             open(FILE, "<$installer::globals::msitranpath") or die "ERROR: Can't open $installer::globals::msitranpath for creating file hash";
1022             binmode(FILE);
1023             my $digest = Digest::MD5->new->addfile(*FILE)->hexdigest;
1024             close(FILE);
1025
1026             my @problemchecksums = ("b66190a70145a57773ec769e16777b29", "aa25d3445b94ffde8ef0c1efb77a56b8");
1027             my $isproblemchecksum = 0;
1028
1029             foreach my $problemchecksum ( @problemchecksums )
1030             {
1031                 $infoline = "Checksum of problematic MsiTran.exe: $problemchecksum\n";
1032                 push( @installer::globals::logfileinfo, $infoline);
1033                 $infoline = "Checksum of used MsiTran.exe: $digest\n";
1034                 push( @installer::globals::logfileinfo, $infoline);
1035                 if ( $digest eq $problemchecksum ) { $isproblemchecksum = 1; }
1036             }
1037
1038             if ( $isproblemchecksum )
1039             {
1040                 # Check existence of mst
1041                 if ( -f $transformfile )
1042                 {
1043                     $infoline = "File $transformfile exists.\n";
1044                     push( @installer::globals::logfileinfo, $infoline);
1045                     my $filesize = ( -s $transformfile );
1046                     $infoline = "Size of $transformfile: $filesize\n";
1047                     push( @installer::globals::logfileinfo, $infoline);
1048
1049                     if ( $filesize > 0 )
1050                     {
1051                         $infoline = "Info: Returnvalue $returnvalue of $msitran is no problem :-) .\n";
1052                         push( @installer::globals::logfileinfo, $infoline);
1053                         $returnvalue = 0; # reset the error
1054                     }
1055                     else
1056                     {
1057                         $infoline = "Filesize indicates that an error occured.\n";
1058                         push( @installer::globals::logfileinfo, $infoline);
1059                     }
1060                 }
1061                 else
1062                 {
1063                     $infoline = "File $transformfile does not exist -> An error occured.\n";
1064                     push( @installer::globals::logfileinfo, $infoline);
1065                 }
1066             }
1067             else
1068             {
1069                 $infoline = "This is not a problematic version of msitran.exe. Therefore the error is not caused by problematic msitran.exe.\n";
1070                 push( @installer::globals::logfileinfo, $infoline);
1071             }
1072         }
1073
1074         if ($returnvalue)
1075         {
1076             $infoline = "ERROR: Could not execute $msitran!\n";
1077             push( @installer::globals::logfileinfo, $infoline);
1078         }
1079         else
1080         {
1081             $infoline = "Success: Executed $msitran successfully!\n";
1082             push( @installer::globals::logfileinfo, $infoline);
1083         }
1084
1085         # The reference database can be deleted
1086
1087         my $result = unlink($referencedbname);
1088         # $result contains the number of deleted files
1089
1090         if ( $result == 0 )
1091         {
1092             $infoline = "ERROR: Could not remove file $$referencedbname !\n";
1093             push( @installer::globals::logfileinfo, $infoline);
1094             installer::exiter::exit_program($infoline, "create_transforms");
1095         }
1096     }
1097 }
1098
1099 #########################################################################
1100 # The default language msi database does not need to contain
1101 # the language in the database name. Therefore the file
1102 # is renamed. Example: "openofficeorg20_01.msi" to "openofficeorg20.msi"
1103 #########################################################################
1104
1105 sub rename_msi_database_in_installset
1106 {
1107     my ($defaultlanguage, $installdir, $allvariableshashref) = @_;
1108
1109     installer::logger::include_header_into_logfile("Renaming msi database");
1110
1111     my $olddatabasename = get_msidatabasename($allvariableshashref, $defaultlanguage);
1112     $olddatabasename = $installdir . $installer::globals::separator . $olddatabasename;
1113
1114     my $newdatabasename = get_msidatabasename($allvariableshashref);
1115
1116     $installer::globals::shortmsidatabasename = $newdatabasename;
1117
1118     $newdatabasename = $installdir . $installer::globals::separator . $newdatabasename;
1119
1120     installer::systemactions::rename_one_file($olddatabasename, $newdatabasename);
1121
1122     $installer::globals::msidatabasename = $newdatabasename;
1123 }
1124
1125 #########################################################################
1126 # Adding the language to the name of the msi databasename,
1127 # if this is required (ADDLANGUAGEINDATABASENAME)
1128 #########################################################################
1129
1130 sub add_language_to_msi_database
1131 {
1132     my ($defaultlanguage, $installdir, $allvariables) = @_;
1133
1134     my $languagestring = $defaultlanguage;
1135     if ( $allvariables->{'USELANGUAGECODE'} ) { $languagestring = installer::windows::language::get_windows_language($defaultlanguage); }
1136     my $newdatabasename = $installer::globals::shortmsidatabasename;
1137     $newdatabasename =~ s/\.msi\s*$/_$languagestring\.msi/;
1138     $installer::globals::shortmsidatabasename = $newdatabasename;
1139     $newdatabasename = $installdir . $installer::globals::separator . $newdatabasename;
1140
1141     my $olddatabasename = $installer::globals::msidatabasename;
1142
1143     installer::systemactions::rename_one_file($olddatabasename, $newdatabasename);
1144
1145     $installer::globals::msidatabasename = $newdatabasename;
1146 }
1147
1148 ##########################################################################
1149 # Writing the databasename into the setup.ini.
1150 ##########################################################################
1151
1152 sub put_databasename_into_setupini
1153 {
1154     my ($setupinifile, $allvariableshashref) = @_;
1155
1156     my $databasename = get_msidatabasename($allvariableshashref);
1157     my $line = "database=" . $databasename . "\n";
1158
1159     push(@{$setupinifile}, $line);
1160 }
1161
1162 ##########################################################################
1163 # Writing the required msi version into setup.ini
1164 ##########################################################################
1165
1166 sub put_msiversion_into_setupini
1167 {
1168     my ($setupinifile) = @_;
1169
1170     my $msiversion = "2.0";
1171     my $line = "msiversion=" . $msiversion . "\n";
1172
1173     push(@{$setupinifile}, $line);
1174 }
1175
1176 ##########################################################################
1177 # Writing the productname into setup.ini
1178 ##########################################################################
1179
1180 sub put_productname_into_setupini
1181 {
1182     my ($setupinifile, $allvariableshashref) = @_;
1183
1184     my $productname = $allvariableshashref->{'PRODUCTNAME'};
1185     my $line = "productname=" . $productname . "\n";
1186
1187     push(@{$setupinifile}, $line);
1188 }
1189
1190 ##########################################################################
1191 # Writing the productcode into setup.ini
1192 ##########################################################################
1193
1194 sub put_productcode_into_setupini
1195 {
1196     my ($setupinifile) = @_;
1197
1198     my $productcode = $installer::globals::productcode;
1199     my $line = "productcode=" . $productcode . "\n";
1200
1201     push(@{$setupinifile}, $line);
1202 }
1203
1204 ##########################################################################
1205 # Writing the ProductVersion from Property table into setup.ini
1206 ##########################################################################
1207
1208 sub put_productversion_into_setupini
1209 {
1210     my ($setupinifile) = @_;
1211
1212     my $line = "productversion=" . $installer::globals::msiproductversion . "\n";
1213     push(@{$setupinifile}, $line);
1214 }
1215
1216 ##########################################################################
1217 # Writing the key for Minor Upgrades into setup.ini
1218 ##########################################################################
1219
1220 sub put_upgradekey_into_setupini
1221 {
1222     my ($setupinifile) = @_;
1223
1224     if ( $installer::globals::minorupgradekey ne "" )
1225     {
1226         my $line = "upgradekey=" . $installer::globals::minorupgradekey . "\n";
1227         push(@{$setupinifile}, $line);
1228     }
1229 }
1230
1231 ##########################################################################
1232 # Writing the number of languages into setup.ini
1233 ##########################################################################
1234
1235 sub put_languagecount_into_setupini
1236 {
1237     my ($setupinifile, $languagesarray) = @_;
1238
1239     my $languagecount = $#{$languagesarray} + 1;
1240     my $line = "count=" . $languagecount . "\n";
1241
1242     push(@{$setupinifile}, $line);
1243 }
1244
1245 ##########################################################################
1246 # Writing the defaultlanguage into setup.ini
1247 ##########################################################################
1248
1249 sub put_defaultlanguage_into_setupini
1250 {
1251     my ($setupinifile, $defaultlanguage) = @_;
1252
1253     my $windowslanguage = installer::windows::language::get_windows_language($defaultlanguage);
1254     my $line = "default=" . $windowslanguage . "\n";
1255     push(@{$setupinifile}, $line);
1256 }
1257
1258 ##########################################################################
1259 # Writing the information about transformations into setup.ini
1260 ##########################################################################
1261
1262 sub put_transforms_into_setupini
1263 {
1264     my ($setupinifile, $onelanguage, $counter) = @_;
1265
1266     my $windowslanguage = installer::windows::language::get_windows_language($onelanguage);
1267     my $transformfilename = "trans_" . $onelanguage . ".mst";
1268
1269     my $line = "lang" . $counter . "=" . $windowslanguage . "," . $transformfilename . "\n";
1270
1271     push(@{$setupinifile}, $line);
1272 }
1273
1274 ###################################################
1275 # Including Windows line ends in ini files
1276 # Profiles on Windows shall have \r\n line ends
1277 ###################################################
1278
1279 sub include_windows_lineends
1280 {
1281     my ($onefile) = @_;
1282
1283     for ( my $i = 0; $i <= $#{$onefile}; $i++ )
1284     {
1285         ${$onefile}[$i] =~ s/\r?\n$/\r\n/;
1286     }
1287 }
1288
1289 ##########################################################################
1290 # Generation the file setup.ini, that is used by the loader setup.exe.
1291 ##########################################################################
1292
1293 sub create_setup_ini
1294 {
1295     my ($languagesarray, $defaultlanguage, $installdir, $allvariableshashref) = @_;
1296
1297     installer::logger::include_header_into_logfile("Creating setup.ini");
1298
1299     my $setupinifilename = $installdir . $installer::globals::separator . "setup.ini";
1300
1301     my @setupinifile = ();
1302     my $setupinifile = \@setupinifile;
1303
1304     my $line = "\[setup\]\n";
1305     push(@setupinifile, $line);
1306
1307     put_databasename_into_setupini($setupinifile, $allvariableshashref);
1308     put_msiversion_into_setupini($setupinifile);
1309     put_productname_into_setupini($setupinifile, $allvariableshashref);
1310     put_productcode_into_setupini($setupinifile);
1311     put_productversion_into_setupini($setupinifile);
1312     put_upgradekey_into_setupini($setupinifile);
1313
1314     $line = "\[languages\]\n";
1315     push(@setupinifile, $line);
1316
1317     put_languagecount_into_setupini($setupinifile, $languagesarray);
1318     put_defaultlanguage_into_setupini($setupinifile, $defaultlanguage);
1319
1320     if ( $#{$languagesarray} > 0 )      # writing the transforms information
1321     {
1322         my $counter = 1;
1323
1324         for ( my $i = 0; $i <= $#{$languagesarray}; $i++ )
1325         {
1326             if ( ${$languagesarray}[$i] eq $defaultlanguage ) { next; }
1327
1328             put_transforms_into_setupini($setupinifile, ${$languagesarray}[$i], $counter);
1329             $counter++;
1330         }
1331     }
1332
1333     if ( $installer::globals::iswin && $installer::globals::plat =~ /cygwin/i)          # Windows line ends only for Cygwin
1334     {
1335         include_windows_lineends($setupinifile);
1336     }
1337
1338     installer::files::save_file($setupinifilename, $setupinifile);
1339
1340     $infoline = "Generated file $setupinifilename !\n";
1341     push( @installer::globals::logfileinfo, $infoline);
1342 }
1343
1344 #################################################################
1345 # Copying the files defined as ScpActions into the
1346 # installation set.
1347 #################################################################
1348
1349 sub copy_scpactions_into_installset
1350 {
1351     my ($defaultlanguage, $installdir, $allscpactions) = @_;
1352
1353     installer::logger::include_header_into_logfile("Copying ScpAction files into installation set");
1354
1355     for ( my $i = 0; $i <= $#{$allscpactions}; $i++ )
1356     {
1357         my $onescpaction = ${$allscpactions}[$i];
1358
1359         if ( $onescpaction->{'Name'} eq "loader.exe" ) { next; }        # do not copy this ScpAction loader
1360
1361         # only copying language independent files or files with the correct language (the defaultlanguage)
1362
1363         my $filelanguage = $onescpaction->{'specificlanguage'};
1364
1365         if ( ($filelanguage eq $defaultlanguage) || ($filelanguage eq "") )
1366         {
1367             my $sourcefile = $onescpaction->{'sourcepath'};
1368             my $destfile = $installdir . $installer::globals::separator . $onescpaction->{'DestinationName'};
1369
1370             installer::systemactions::copy_one_file($sourcefile, $destfile);
1371         }
1372     }
1373 }
1374
1375 #################################################################
1376 # Copying the files for the Windows installer into the
1377 # installation set (setup.exe).
1378 #################################################################
1379
1380 sub copy_windows_installer_files_into_installset
1381 {
1382     my ($installdir, $includepatharrayref, $allvariables) = @_;
1383
1384     installer::logger::include_header_into_logfile("Copying Windows installer files into installation set");
1385
1386     @copyfile = ();
1387     push(@copyfile, "loader2.exe");
1388
1389     if ( $allvariables->{'NOLOADERREQUIRED'} ) { @copyfile = (); }
1390
1391     for ( my $i = 0; $i <= $#copyfile; $i++ )
1392     {
1393         my $filename = $copyfile[$i];
1394         my $sourcefileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 1);
1395
1396         if ( ! -f $$sourcefileref ) { installer::exiter::exit_program("ERROR: msi file not found: $$sourcefileref !", "copy_windows_installer_files_into_installset"); }
1397
1398         my $destfile;
1399         if ( $copyfile[$i] eq "loader2.exe" ) { $destfile = "setup.exe"; }      # renaming the loader
1400         else { $destfile = $copyfile[$i]; }
1401
1402         $destfile = $installdir . $installer::globals::separator . $destfile;
1403
1404         installer::systemactions::copy_one_file($$sourcefileref, $destfile);
1405     }
1406 }
1407
1408 #################################################################
1409 # Copying MergeModules for the Windows installer into the
1410 # installation set. The list of MergeModules is located
1411 # in %installer::globals::copy_msm_files
1412 #################################################################
1413
1414 sub copy_merge_modules_into_installset
1415 {
1416     my ($installdir) = @_;
1417
1418     installer::logger::include_header_into_logfile("Copying Merge files into installation set");
1419
1420     my $cabfile;
1421     foreach $cabfile ( keys  %installer::globals::copy_msm_files )
1422     {
1423         my $sourcefile  = $installer::globals::copy_msm_files{$cabfile};
1424         my $destfile = $installdir . $installer::globals::separator . $cabfile;
1425
1426         installer::systemactions::copy_one_file($sourcefile, $destfile);
1427     }
1428 }
1429
1430 #################################################################
1431 # Copying the child projects into the
1432 # installation set
1433 #################################################################
1434
1435 sub copy_child_projects_into_installset
1436 {
1437     my ($installdir, $allvariables) = @_;
1438
1439     my $sourcefile = "";
1440     my $destdir = "";
1441
1442     # adding Java
1443
1444     if ( $allvariables->{'JAVAPRODUCT'} )
1445     {
1446         $sourcefile = $installer::globals::javafile->{'sourcepath'};
1447         $destdir = $installdir . $installer::globals::separator . $installer::globals::javafile->{'Subdir'};
1448         if ( ! -d $destdir) { installer::systemactions::create_directory($destdir); }
1449         installer::systemactions::copy_one_file($sourcefile, $destdir);
1450     }
1451
1452     if ( $allvariables->{'UREPRODUCT'} )
1453     {
1454         $sourcefile = $installer::globals::urefile->{'sourcepath'};
1455         $destdir = $installdir . $installer::globals::separator . $installer::globals::urefile->{'Subdir'};
1456         if ( ! -d $destdir) { installer::systemactions::create_directory($destdir); }
1457         installer::systemactions::copy_one_file($sourcefile, $destdir);
1458     }
1459 }
1460
1461 #################################################################
1462 # Getting a list of GUID using uuidgen.exe.
1463 # This works only on Windows
1464 #################################################################
1465
1466 sub get_guid_list
1467 {
1468     my ($number, $log) = @_;
1469
1470     if ( $log ) { installer::logger::include_header_into_logfile("Generating $number GUID"); }
1471
1472     my $uuidgen = "uuidgen.exe";                # Has to be in the path
1473
1474     # "-c" for uppercase output
1475
1476     # my $systemcall = "$uuidgen -n$number -c |";
1477     my $systemcall = "$uuidgen -n$number |";
1478     open (UUIDGEN, "$systemcall" ) or die("uuidgen is missing.");
1479     my @uuidlist = <UUIDGEN>;
1480     close (UUIDGEN);
1481
1482     my $infoline = "Systemcall: $systemcall\n";
1483     if ( $log ) { push( @installer::globals::logfileinfo, $infoline); }
1484
1485     my $comparenumber = $#uuidlist + 1;
1486
1487     if ( $comparenumber == $number )
1488     {
1489         $infoline = "Success: Executed $uuidgen successfully!\n";
1490         if ( $log ) { push( @installer::globals::logfileinfo, $infoline); }
1491     }
1492     else
1493     {
1494         $infoline = "ERROR: Could not execute $uuidgen successfully!\n";
1495         if ( $log ) { push( @installer::globals::logfileinfo, $infoline); }
1496     }
1497
1498     # uppercase, no longer "-c", because this is only supported in uuidgen.exe v.1.01
1499     for ( my $i = 0; $i <= $#uuidlist; $i++ ) { $uuidlist[$i] = uc($uuidlist[$i]); }
1500
1501     return \@uuidlist;
1502 }
1503
1504 #################################################################
1505 # Calculating a GUID with a string using md5.
1506 #################################################################
1507
1508 sub calculate_guid
1509 {
1510     my ( $string ) = @_;
1511
1512     my $guid = "";
1513
1514     my $md5 = Digest::MD5->new;
1515     $md5->add($string);
1516     my $digest = $md5->hexdigest;
1517     $digest = uc($digest);
1518
1519     # my $id = pack("A32", $digest);
1520     my ($first, $second, $third, $fourth, $fifth) = unpack ('A8 A4 A4 A4 A12', $digest);
1521     $guid = "$first-$second-$third-$fourth-$fifth";
1522
1523     return $guid;
1524 }
1525
1526 #################################################################
1527 # Filling the component hash with the values of the
1528 # component file.
1529 #################################################################
1530
1531 sub fill_component_hash
1532 {
1533     my ($componentfile) = @_;
1534
1535     my %components = ();
1536
1537     for ( my $i = 0; $i <= $#{$componentfile}; $i++ )
1538     {
1539         my $line = ${$componentfile}[$i];
1540
1541         if ( $line =~ /^\s*(.*?)\t(.*?)\s*$/ )
1542         {
1543             my $key = $1;
1544             my $value = $2;
1545
1546             $components{$key} = $value;
1547         }
1548     }
1549
1550     return \%components;
1551 }
1552
1553 #################################################################
1554 # Creating a new component file, if new guids were generated.
1555 #################################################################
1556
1557 sub create_new_component_file
1558 {
1559     my ($componenthash) = @_;
1560
1561     my @componentfile = ();
1562
1563     my $key;
1564
1565     foreach $key (keys %{$componenthash})
1566     {
1567         my $value = $componenthash->{$key};
1568         my $input = "$key\t$value\n";
1569         push(@componentfile ,$input);
1570     }
1571
1572     return \@componentfile;
1573 }
1574
1575 #################################################################
1576 # Filling real component GUID into the component table.
1577 # This works only on Windows
1578 #################################################################
1579
1580 sub set_uuid_into_component_table
1581 {
1582     my ($idtdirbase, $allvariables) = @_;
1583
1584     my $componenttablename  = $idtdirbase . $installer::globals::separator . "Componen.idt";
1585
1586     my $componenttable = installer::files::read_file($componenttablename);
1587
1588     # For update and patch reasons (small update) the GUID of an existing component must not change!
1589     # The collection of component GUIDs is saved in the directory $installer::globals::idttemplatepath in the file "components.txt"
1590
1591     my $infoline = "";
1592     my $counter = 0;
1593     # my $componentfile = installer::files::read_file($installer::globals::componentfilename);
1594     # my $componenthash = fill_component_hash($componentfile);
1595
1596     for ( my $i = 3; $i <= $#{$componenttable}; $i++ )  # ignoring the first three lines
1597     {
1598         my $oneline = ${$componenttable}[$i];
1599         my $componentname = "";
1600         if ( $oneline =~ /^\s*(\S+?)\t/ ) { $componentname = $1; }
1601
1602         my $uuid = "";
1603
1604     #   if ( $componenthash->{$componentname} )
1605     #   {
1606     #           $uuid = $componenthash->{$componentname};
1607     #   }
1608     #   else
1609     #   {
1610
1611             if ( exists($installer::globals::calculated_component_guids{$componentname}))
1612             {
1613                 $uuid = $installer::globals::calculated_component_guids{$componentname};
1614             }
1615             else
1616             {
1617                 # Calculating new GUID with the help of the component name.
1618                 my $useooobaseversion = 1;
1619                 if ( exists($installer::globals::base_independent_components{$componentname})) { $useooobaseversion = 0; }
1620                 my $sourcestring = $componentname;
1621
1622                 if ( $useooobaseversion )
1623                 {
1624                     if ( ! exists($allvariables->{'OOOBASEVERSION'}) ) { installer::exiter::exit_program("ERROR: Could not find variable \"OOOBASEVERSION\" (required value for GUID creation)!", "set_uuid_into_component_table"); }
1625                     $sourcestring = $sourcestring . "_" . $allvariables->{'OOOBASEVERSION'};
1626                 }
1627                 $uuid = calculate_guid($sourcestring);
1628                 $counter++;
1629
1630                 # checking, if there is a conflict with an already created guid
1631                 if ( exists($installer::globals::allcalculated_guids{$uuid}) ) { installer::exiter::exit_program("ERROR: \"$uuid\" was already created before!", "set_uuid_into_component_table"); }
1632                 $installer::globals::allcalculated_guids{$uuid} = 1;
1633                 $installer::globals::calculated_component_guids{$componentname} = $uuid;
1634
1635                 # Setting new uuid
1636                 # $componenthash->{$componentname} = $uuid;
1637
1638                 # Setting flag
1639                 # $installer::globals::created_new_component_guid = 1;  # this is very important!
1640             }
1641     #   }
1642
1643         ${$componenttable}[$i] =~ s/COMPONENTGUID/$uuid/;
1644     }
1645
1646     installer::files::save_file($componenttablename, $componenttable);
1647
1648 #       if ( $installer::globals::created_new_component_guid )
1649 #       {
1650 #               # create new component file!
1651 #               $componentfile = create_new_component_file($componenthash);
1652 #               installer::worker::sort_array($componentfile);
1653 #
1654 #               # To avoid conflict the components file cannot be saved at the same place
1655 #               # All important data have to be saved in the directory: $installer::globals::infodirectory
1656 #               my $localcomponentfilename = $installer::globals::componentfilename;
1657 #               installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$localcomponentfilename);
1658 #               $localcomponentfilename = $installer::globals::infodirectory . $installer::globals::separator . $localcomponentfilename;
1659 #               installer::files::save_file($localcomponentfilename, $componentfile);
1660 #
1661 #               # installer::files::save_file($installer::globals::componentfilename, $componentfile);  # version using new file in solver
1662 #
1663 #               $infoline = "COMPONENTCODES: Created $counter new GUIDs for components ! \n";
1664 #               push( @installer::globals::logfileinfo, $infoline);
1665 #       }
1666 #       else
1667 #       {
1668 #               $infoline = "SUCCESS COMPONENTCODES: All component codes exist! \n";
1669 #               push( @installer::globals::logfileinfo, $infoline);
1670 #       }
1671
1672 }
1673
1674 #################################################################
1675 # Include all cab files into the msi database.
1676 # This works only on Windows
1677 #################################################################
1678
1679 sub include_cabs_into_msi
1680 {
1681     my ($installdir) = @_;
1682
1683     installer::logger::include_header_into_logfile("Including cabs into msi database");
1684
1685     my $from = cwd();
1686     my $to = $installdir;
1687
1688     chdir($to);
1689
1690     my $infoline = "Changing into directory: $to";
1691     push( @installer::globals::logfileinfo, $infoline);
1692
1693     my $msidb = "msidb.exe";    # Has to be in the path
1694     my $extraslash = "";                # Has to be set for non-ActiveState perl
1695
1696     my $msifilename = $installer::globals::msidatabasename;
1697
1698     $msifilename = installer::converter::make_path_conform($msifilename);
1699
1700     # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
1701     $idtdirbase =~ s/\//\\\\/g;
1702     $msifilename =~ s/\//\\\\/g;
1703     $extraslash = "\\";
1704
1705     my $allcabfiles = installer::systemactions::find_file_with_file_extension("cab", $installdir);
1706
1707     for ( my $i = 0; $i <= $#{$allcabfiles}; $i++ )
1708     {
1709         my $systemcall = $msidb . " -d " . $msifilename . " -a " . ${$allcabfiles}[$i];
1710
1711         my $returnvalue = system($systemcall);
1712
1713         $infoline = "Systemcall: $systemcall\n";
1714         push( @installer::globals::logfileinfo, $infoline);
1715
1716         if ($returnvalue)
1717         {
1718             $infoline = "ERROR: Could not execute $systemcall !\n";
1719             push( @installer::globals::logfileinfo, $infoline);
1720         }
1721         else
1722         {
1723             $infoline = "Success: Executed $systemcall successfully!\n";
1724             push( @installer::globals::logfileinfo, $infoline);
1725         }
1726
1727         # deleting the cab file
1728
1729         unlink(${$allcabfiles}[$i]);
1730
1731         $infoline = "Deleted cab file: ${$allcabfiles}[$i]\n";
1732         push( @installer::globals::logfileinfo, $infoline);
1733     }
1734
1735     $infoline = "Changing back into directory: $from";
1736     push( @installer::globals::logfileinfo, $infoline);
1737
1738     chdir($from);
1739 }
1740
1741 #################################################################
1742 # Executing the created batch file to pack all files.
1743 # This works only on Windows
1744 #################################################################
1745
1746 sub execute_packaging
1747 {
1748     my ($localpackjobref, $loggingdir, $allvariables) = @_;
1749
1750     installer::logger::include_header_into_logfile("Packaging process");
1751
1752     installer::logger::include_timestamp_into_logfile("Performance Info: Execute packaging start");
1753
1754     my $infoline = "";
1755     my $from = cwd();
1756     my $to = $loggingdir;
1757
1758     chdir($to);
1759     $infoline = "chdir: $to \n";
1760     push( @installer::globals::logfileinfo, $infoline);
1761
1762     # if the ddf file contains relative pathes, it is necessary to change into the temp directory
1763     if ( $allvariables->{'RELATIVE_PATHES_IN_DDF'} )
1764     {
1765         $to = $installer::globals::temppath;
1766         chdir($to);
1767         $infoline = "chdir: $to \n";
1768         push( @installer::globals::logfileinfo, $infoline);
1769     }
1770
1771     # changing the tmp directory, because makecab.exe generates temporary cab files
1772     my $origtemppath = "";
1773     if ( $ENV{'TMP'} ) { $origtemppath = $ENV{'TMP'}; }
1774     $ENV{'TMP'} = $installer::globals::temppath;        # setting TMP to the new unique directory!
1775
1776     my $maxmakecabcalls = 3;
1777     my $allmakecabcalls = $#{$localpackjobref} + 1;
1778
1779     for ( my $i = 0; $i <= $#{$localpackjobref}; $i++ )
1780     {
1781         my $systemcall = ${$localpackjobref}[$i];
1782
1783         my $callscounter = $i + 1;
1784
1785         installer::logger::print_message( "... makecab.exe ($callscounter/$allmakecabcalls) ... \n" );
1786
1787         # my $returnvalue = system($systemcall);
1788
1789         for ( my $n = 1; $n <= $maxmakecabcalls; $n++ )
1790         {
1791             my @ddfoutput = ();
1792
1793             $infoline = "Systemcall: $systemcall";
1794             push( @installer::globals::logfileinfo, $infoline);
1795
1796             open (DDF, "$systemcall");
1797             while (<DDF>) {push(@ddfoutput, $_); }
1798             close (DDF);
1799
1800             my $returnvalue = $?;       # $? contains the return value of the systemcall
1801
1802             if ($returnvalue)
1803             {
1804                 if ( $n < $maxmakecabcalls )
1805                 {
1806                     installer::logger::print_message( "makecab_error (Try $n): Trying again \n" );
1807                     $infoline = "makecab_error (Try $n): $systemcall !";
1808                 }
1809                 else
1810                 {
1811                     installer::logger::print_message( "ERROR (Try $n): Abort packing \n" );
1812                     $infoline = "ERROR (Try $n): $systemcall !";
1813                 }
1814
1815                 push( @installer::globals::logfileinfo, $infoline);
1816                 # for ( my $j = 0; $j <= $#ddfoutput; $j++ ) { push( @installer::globals::logfileinfo, "$ddfoutput[$j]"); }
1817
1818                 for ( my $m = 0; $m <= $#ddfoutput; $m++ )
1819                 {
1820                     if ( $ddfoutput[$m] =~ /(ERROR\:.*?)\s*$/ )
1821                     {
1822                         $infoline = $1 . "\n";
1823                         if ( $n < $maxmakecabcalls ) { $infoline =~ s/ERROR\:/makecab_error\:/i; }
1824                         installer::logger::print_message( $infoline );
1825                         push( @installer::globals::logfileinfo, $infoline);
1826                     }
1827                 }
1828
1829                 if ( $n == $maxmakecabcalls ) { installer::exiter::exit_program("ERROR: \"$systemcall\"!", "execute_packaging"); }
1830             }
1831             else
1832             {
1833                 # installer::logger::print_message( "Success (Try $n): \"$systemcall\"\n" );
1834                 $infoline = "Success (Try $n): $systemcall";
1835                 push( @installer::globals::logfileinfo, $infoline);
1836                 last;
1837             }
1838         }
1839     }
1840
1841     installer::logger::include_timestamp_into_logfile("Performance Info: Execute packaging end");
1842
1843     # setting back to the original tmp directory
1844     $ENV{'TMP'} = $origtemppath;
1845
1846     chdir($from);
1847     $infoline = "chdir: $from \n";
1848     push( @installer::globals::logfileinfo, $infoline);
1849 }
1850
1851 ###############################################################
1852 # Setting the global variables ProductCode and the UpgradeCode
1853 ###############################################################
1854
1855 sub set_global_code_variables
1856 {
1857     my ( $languagesref, $languagestringref, $allvariableshashref, $alloldproperties ) = @_;
1858
1859     # In the msi template directory a files "codes.txt" has to exist, in which the ProductCode
1860     # and the UpgradeCode for the product are defined.
1861     # The name "codes.txt" can be overwritten in Product definition with CODEFILENAME .
1862     # Default $installer::globals::codefilename is defined in parameter.pm.
1863
1864     if ( $allvariableshashref->{'CODEFILENAME'} )
1865     {
1866         $installer::globals::codefilename = $installer::globals::idttemplatepath  . $installer::globals::separator . $allvariableshashref->{'CODEFILENAME'};
1867         installer::files::check_file($installer::globals::codefilename);
1868     }
1869
1870     my $infoline = "Using Codes file: $installer::globals::codefilename \n";
1871     push( @installer::globals::logfileinfo, $infoline);
1872
1873     my $codefile = installer::files::read_file($installer::globals::codefilename);
1874
1875     my $isopensource = 0;
1876     if ( $allvariableshashref->{'OPENSOURCE'} ) { $isopensource = $allvariableshashref->{'OPENSOURCE'}; }
1877
1878     my $onelanguage = "";
1879
1880     if ( $#{$languagesref} > 0 )        # more than one language
1881     {
1882         if (( ${$languagesref}[1] =~ /jp/ ) ||
1883             ( ${$languagesref}[1] =~ /ko/ ) ||
1884             ( ${$languagesref}[1] =~ /zh/ ))
1885         {
1886             $onelanguage = "multiasia";
1887         }
1888         else
1889         {
1890             $onelanguage = "multiwestern";
1891         }
1892     }
1893     else        # only one language
1894     {
1895         $onelanguage = ${$languagesref}[0];
1896     }
1897
1898     # ProductCode must not change, if Windows patches shall be applied
1899     if ( $installer::globals::updatedatabase )
1900     {
1901         $installer::globals::productcode = $alloldproperties->{'ProductCode'};
1902     }
1903     elsif ( $installer::globals::prepare_winpatch )
1904     {
1905         # ProductCode has to be specified in each language
1906         my $searchstring = "PRODUCTCODE";
1907         my $codeblock = installer::windows::idtglobal::get_language_block_from_language_file($searchstring, $codefile);
1908         $installer::globals::productcode = installer::windows::idtglobal::get_code_from_code_block($codeblock, $onelanguage);
1909     } else {
1910         my $guidref = get_guid_list(1, 1);      # only one GUID shall be generated
1911         ${$guidref}[0] =~ s/\s*$//;             # removing ending spaces
1912         $installer::globals::productcode = "\{" . ${$guidref}[0] . "\}";
1913     }
1914
1915     if ( $installer::globals::patch ) # patch upgrade codes are defined in soffice.lst
1916     {
1917         if ( $allvariableshashref->{'PATCHUPGRADECODE'} ) { $installer::globals::upgradecode = $allvariableshashref->{'PATCHUPGRADECODE'}; }
1918         else { installer::exiter::exit_program("ERROR: PATCHUPGRADECODE not defined in list file!", "set_global_code_variables"); }
1919     }
1920     else
1921     {
1922         # UpgradeCode can take english as default, if not defined in specified language
1923
1924         $searchstring = "UPGRADECODE";  # searching in the codes.txt file
1925         $codeblock = installer::windows::idtglobal::get_language_block_from_language_file($searchstring, $codefile);
1926         $installer::globals::upgradecode = installer::windows::idtglobal::get_language_string_from_language_block($codeblock, $onelanguage, "");
1927     }
1928
1929     # if (( $installer::globals::productcode eq "" ) && ( ! $isopensource )) { installer::exiter::exit_program("ERROR: ProductCode for language $onelanguage not defined in $installer::globals::codefilename !", "set_global_code_variables"); }
1930     if ( $installer::globals::upgradecode eq "" ) { installer::exiter::exit_program("ERROR: UpgradeCode not defined in $installer::globals::codefilename !", "set_global_code_variables"); }
1931
1932     $infoline = "Setting ProductCode to: $installer::globals::productcode \n";
1933     push( @installer::globals::logfileinfo, $infoline);
1934     $infoline = "Setting UpgradeCode to: $installer::globals::upgradecode \n";
1935     push( @installer::globals::logfileinfo, $infoline);
1936
1937     # Adding both variables into the variables array
1938
1939     $allvariableshashref->{'PRODUCTCODE'} = $installer::globals::productcode;
1940     $allvariableshashref->{'UPGRADECODE'} = $installer::globals::upgradecode;
1941
1942     $infoline = "Defined variable PRODUCTCODE: $installer::globals::productcode \n";
1943     push( @installer::globals::logfileinfo, $infoline);
1944
1945     $infoline = "Defined variable UPGRADECODE: $installer::globals::upgradecode \n";
1946     push( @installer::globals::logfileinfo, $infoline);
1947
1948 }
1949
1950 ###############################################################
1951 # Setting the product version used in property table and
1952 # upgrade table. Saving in global variable $msiproductversion
1953 ###############################################################
1954
1955 sub set_msiproductversion
1956 {
1957     my ( $allvariables ) = @_;
1958
1959     my $productversion = $allvariables->{'PRODUCTVERSION'};
1960
1961     if (( $productversion =~ /^\s*\d+\s*$/ ) && ( $productversion > 255 )) { $productversion = $productversion%256; }
1962
1963     if ( $productversion =~ /^\s*(\d+)\.(\d+)\.(\d+)\s*$/ )
1964     {
1965         $productversion = $1 . "\." . $2 . $3 . "\." . $installer::globals::buildid;
1966     }
1967     elsif  ( $productversion =~ /^\s*(\d+)\.(\d+)\s*$/ )
1968     {
1969         $productversion = $1 . "\." . $2 . "\." . $installer::globals::buildid;
1970     }
1971     else
1972     {
1973         my $productminor = "00";
1974         if (( $allvariables->{'PACKAGEVERSION'} ) && ( $allvariables->{'PACKAGEVERSION'} ne "" ))
1975         {
1976             if ( $allvariables->{'PACKAGEVERSION'} =~ /^\s*(\d+)\.(\d+)\.(\d+)\s*$/ ) { $productminor = $2; }
1977         }
1978
1979         $productversion = $productversion . "\." . $productminor . "\." . $installer::globals::buildid;
1980     }
1981
1982     $installer::globals::msiproductversion = $productversion;
1983
1984     # Setting $installer::globals::msimajorproductversion, to differ between old version in upgrade table
1985
1986     if ( $installer::globals::msiproductversion =~ /^\s*(\d+)\./ )
1987     {
1988         my $major = $1;
1989         $installer::globals::msimajorproductversion = $major . "\.0\.0";
1990     }
1991 }
1992
1993 #################################################################################
1994 # Including the msi product version into the bootstrap.ini, Windows only
1995 #################################################################################
1996
1997 sub put_msiproductversion_into_bootstrapfile
1998 {
1999     my ($filesref) = @_;
2000
2001     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
2002     {
2003         my $onefile = ${$filesref}[$i];
2004
2005         if ( $onefile->{'gid'} eq "gid_Profile_Version_Ini" )
2006         {
2007             my $file = installer::files::read_file($onefile->{'sourcepath'});
2008
2009             for ( my $j = 0; $j <= $#{$file}; $j++ )
2010             {
2011                 ${$file}[$j] =~ s/\<msiproductversion\>/$installer::globals::msiproductversion/;
2012             }
2013
2014             installer::files::save_file($onefile->{'sourcepath'}, $file);
2015
2016             last;
2017         }
2018     }
2019 }
2020
2021 ####################################################################################
2022 # Updating the file Property.idt dynamically
2023 # Content:
2024 # Property Value
2025 ####################################################################################
2026
2027 sub update_reglocat_table
2028 {
2029     my ($basedir, $allvariables) = @_;
2030
2031     my $reglocatfilename = $basedir . $installer::globals::separator . "RegLocat.idt";
2032
2033     # Only do something, if this file exists
2034
2035     if ( -f $reglocatfilename )
2036     {
2037         my $reglocatfile = installer::files::read_file($reglocatfilename);
2038
2039         my $layername = "";
2040         if ( $allvariables->{'REGISTRYLAYERNAME'} )
2041         {
2042             $layername = $allvariables->{'REGISTRYLAYERNAME'};
2043         }
2044         else
2045         {
2046             for ( my $i = 0; $i <= $#{$reglocatfile}; $i++ )
2047             {
2048                 if ( ${$reglocatfile}[$i] =~ /\bLAYERNAMETEMPLATE\b/ )
2049                 {
2050                     installer::exiter::exit_program("ERROR: Variable \"REGISTRYLAYERNAME\" has to be defined", "update_reglocat_table");
2051                 }
2052             }
2053         }
2054
2055         if ( $layername ne "" )
2056         {
2057             # Updating the layername in
2058
2059             for ( my $i = 0; $i <= $#{$reglocatfile}; $i++ )
2060             {
2061                 ${$reglocatfile}[$i] =~ s/\bLAYERNAMETEMPLATE\b/$layername/;
2062             }
2063
2064             # Saving the file
2065             installer::files::save_file($reglocatfilename ,$reglocatfile);
2066             my $infoline = "Updated idt file: $reglocatfilename\n";
2067             push(@installer::globals::logfileinfo, $infoline);
2068         }
2069     }
2070 }
2071
2072
2073
2074 ####################################################################################
2075 # Updating the file RemoveRe.idt dynamically (RemoveRegistry.idt)
2076 # The name of the component has to be replaced.
2077 ####################################################################################
2078
2079 sub update_removere_table
2080 {
2081     my ($basedir) = @_;
2082
2083     my $removeregistryfilename = $basedir . $installer::globals::separator . "RemoveRe.idt";
2084
2085     # Only do something, if this file exists
2086
2087     if ( -f $removeregistryfilename )
2088     {
2089         my $removeregistryfile = installer::files::read_file($removeregistryfilename);
2090
2091         for ( my $i = 0; $i <= $#{$removeregistryfile}; $i++ )
2092         {
2093             for ( my $i = 0; $i <= $#{$removeregistryfile}; $i++ )
2094             {
2095                 ${$removeregistryfile}[$i] =~ s/\bREGISTRYROOTCOMPONENT\b/$installer::globals::registryrootcomponent/;
2096             }
2097         }
2098
2099         # Saving the file
2100         installer::files::save_file($removeregistryfilename ,$removeregistryfile);
2101         my $infoline = "Updated idt file: $removeregistryfilename \n";
2102         push(@installer::globals::logfileinfo, $infoline);
2103     }
2104 }
2105
2106 ##########################################################################
2107 # Reading saved mappings in Files.idt and Director.idt.
2108 # This is required, if installation sets shall be created,
2109 # that can be used for creation of msp files.
2110 ##########################################################################
2111
2112 sub read_saved_mappings
2113 {
2114     installer::logger::include_header_into_logfile("Reading saved mappings from older installation sets:");
2115
2116     installer::logger::include_timestamp_into_logfile("Performance Info: Reading saved mappings start");
2117
2118     if ( $installer::globals::previous_idt_dir )
2119     {
2120         my @errorlines = ();
2121         my $errorstring = "";
2122         my $error_occured = 0;
2123         my $file_error_occured = 0;
2124         my $dir_error = 0;
2125
2126         my $idtdir = $installer::globals::previous_idt_dir;
2127         $idtdir =~ s/\Q$installer::globals::separator\E\s*$//;
2128
2129         # Reading File.idt
2130
2131         my $idtfile = $idtdir . $installer::globals::separator . "File.idt";
2132         push( @installer::globals::globallogfileinfo, "\nAnalyzing file: $idtfile\n" );
2133         if ( ! -f $idtfile ) { push( @installer::globals::globallogfileinfo, "Warning: File $idtfile does not exist!\n" ); }
2134
2135         my $n = 0;
2136         open (F, "<$idtfile") || installer::exiter::exit_program("ERROR: Cannot open file $idtfile for reading", "read_saved_mappings");
2137         <F>; <F>; <F>;
2138         while (<F>)
2139         {
2140             m/^([^\t]+)\t([^\t]+)\t((.*)\|)?([^\t]*)/;
2141             print "OUT1: \$1: $1, \$2: $2, \$3: $3, \$4: $4, \$5: $5\n";
2142             next if ("$1" eq "$5") && (!defined($3));
2143             my $lc1 = lc($1);
2144
2145             if ( exists($installer::globals::savedmapping{"$2/$5"}))
2146             {
2147                 if ( ! $file_error_occured )
2148                 {
2149                     $errorstring = "\nErrors in $idtfile: \n";
2150                     push(@errorlines, $errorstring);
2151                 }
2152                 $errorstring = "Duplicate savedmapping{" . "$2/$5}\n";
2153                 push(@errorlines, $errorstring);
2154                 $error_occured = 1;
2155                 $file_error_occured = 1;
2156             }
2157
2158             if ( exists($installer::globals::savedrevmapping{$lc1}))
2159             {
2160                 if ( ! $file_error_occured )
2161                 {
2162                     $errorstring = "\nErrors in $idtfile: \n";
2163                     push(@errorlines, $errorstring);
2164                 }
2165                 $errorstring = "Duplicate savedrevmapping{" . "$lc1}\n";
2166                 push(@errorlines, $errorstring);
2167                 $error_occured = 1;
2168                 $file_error_occured = 1;
2169             }
2170
2171             my $shortname = $4 || '';
2172
2173             # Don't reuse illegal 8.3 mappings that we used to generate in 2.0.4
2174             if (index($shortname, '.') > 8 ||
2175                 (index($shortname, '.') == -1 && length($shortname) > 8))
2176             {
2177                 $shortname = '';
2178             }
2179
2180             if (( $shortname ne '' ) && ( index($shortname, '~') > 0 ) && ( exists($installer::globals::savedrev83mapping{$shortname}) ))
2181             {
2182                 if ( ! $file_error_occured )
2183                 {
2184                     $errorstring = "\nErrors in $idtfile: \n";
2185                     push(@errorlines, $errorstring);
2186                 }
2187                 $errorstring = "Duplicate savedrev83mapping{" . "$shortname}\n";
2188                 push(@errorlines, $errorstring);
2189                 $error_occured = 1;
2190                 $file_error_occured = 1;
2191             }
2192
2193             $installer::globals::savedmapping{"$2/$5"} = "$1;$shortname";
2194             $installer::globals::savedrevmapping{lc($1)} = "$2/$5";
2195             $installer::globals::savedrev83mapping{$shortname} = "$2/$5" if $shortname ne '';
2196             $n++;
2197         }
2198
2199         close (F);
2200
2201         push( @installer::globals::globallogfileinfo, "Read $n old file table key or 8.3 name mappings from $idtfile\n" );
2202
2203         # Reading Director.idt
2204
2205         $idtfile = $idtdir . $installer::globals::separator . "Director.idt";
2206         push( @installer::globals::globallogfileinfo, "\nAnalyzing file $idtfile\n" );
2207         if ( ! -f $idtfile ) { push( @installer::globals::globallogfileinfo, "Warning: File $idtfile does not exist!\n" ); }
2208
2209         $n = 0;
2210         open (F, "<$idtfile") || installer::exiter::exit_program("ERROR: Cannot open file $idtfile for reading", "read_saved_mappings");
2211         <F>; <F>; <F>;
2212         while (<F>)
2213         {
2214             m/^([^\t]+)\t([^\t]+)\t(([^~]+~\d.*)\|)?([^\t]*)/;
2215             next if (!defined($3));
2216             my $lc1 = lc($1);
2217
2218             print "OUT2: \$1: $1, \$2: $2, \$3: $3\n";
2219
2220             if ( exists($installer::globals::saved83dirmapping{$1}) )
2221             {
2222                 if ( ! $dir_error_occured )
2223                 {
2224                     $errorstring = "\nErrors in $idtfile: \n";
2225                     push(@errorlines, $errorstring);
2226                 }
2227                 $errorstring = "Duplicate saved83dirmapping{" . "$1}\n";
2228                 push(@errorlines, $errorstring);
2229                 $error_occured = 1;
2230                 $dir_error_occured = 1;
2231             }
2232
2233             $installer::globals::saved83dirmapping{$1} = $4;
2234             $n++;
2235         }
2236         close (F);
2237
2238         push( @installer::globals::globallogfileinfo, "Read $n old directory 8.3 name mappings from $idtfile\n" );
2239
2240         # Analyzing errors
2241
2242         if ( $error_occured )
2243         {
2244             for ( my $i = 0; $i <= $#errorlines; $i++ )
2245             {
2246                 print "$errorlines[$i]";
2247                 push( @installer::globals::globallogfileinfo, "$errorlines[$i]");
2248             }
2249             installer::exiter::exit_program("ERROR: Duplicate entries in saved mappings!", "read_saved_mappings");
2250         }
2251     } else {
2252         # push( @installer::globals::globallogfileinfo, "WARNING: Windows patch shall be prepared, but PREVIOUS_IDT_DIR is not set!\n" );
2253         installer::exiter::exit_program("ERROR: Windows patch shall be prepared, but environment variable PREVIOUS_IDT_DIR is not set!", "read_saved_mappings");
2254     }
2255
2256     installer::logger::include_timestamp_into_logfile("Performance Info: Reading saved mappings end");
2257 }
2258
2259 1;
2260