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